aboutsummaryrefslogtreecommitdiff
path: root/theories/Structures
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2019-03-31 23:01:41 +0200
committerPierre-Marie Pédrot2019-03-31 23:01:41 +0200
commitcb502e44aac8328ffd6c37429e050a01f72b2c53 (patch)
tree9d8f62a6b86af6d1eb233c199ab5cc5416834e6e /theories/Structures
parent44e5afe99d8b40c3ed0d546f56a446427c7c4da4 (diff)
parent3fdb62dee9830bb551798ee9c3dd2a3af1493e8d (diff)
Merge PR #8829: Error when [foo.(bar)] is used with nonprojection [bar], warn if [bar] nonprimitive projection.
Reviewed-by: ppedrot
Diffstat (limited to 'theories/Structures')
-rw-r--r--theories/Structures/Equalities.v6
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Structures/Equalities.v b/theories/Structures/Equalities.v
index 346c300ee5..4591c7ed94 100644
--- a/theories/Structures/Equalities.v
+++ b/theories/Structures/Equalities.v
@@ -128,9 +128,9 @@ Module Type DecidableTypeFull' := DecidableTypeFull <+ EqNotation.
[EqualityType] and [DecidableType] *)
Module BackportEq (E:Eq)(F:IsEq E) <: IsEqOrig E.
- Definition eq_refl := F.eq_equiv.(@Equivalence_Reflexive _ _).
- Definition eq_sym := F.eq_equiv.(@Equivalence_Symmetric _ _).
- Definition eq_trans := F.eq_equiv.(@Equivalence_Transitive _ _).
+ Definition eq_refl := @Equivalence_Reflexive _ _ F.eq_equiv.
+ Definition eq_sym := @Equivalence_Symmetric _ _ F.eq_equiv.
+ Definition eq_trans := @Equivalence_Transitive _ _ F.eq_equiv.
End BackportEq.
Module UpdateEq (E:Eq)(F:IsEqOrig E) <: IsEq E.