diff options
| -rw-r--r-- | theories/Numbers/Integer/Binary/ZBinary.v | 2 | ||||
| -rw-r--r-- | theories/Numbers/NatInt/NZOrder.v | 2 | ||||
| -rw-r--r-- | theories/Numbers/Natural/Binary/NBinary.v | 2 | ||||
| -rw-r--r-- | theories/Numbers/Natural/Peano/NPeano.v | 2 | ||||
| -rw-r--r-- | theories/QArith/QOrderedType.v | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/theories/Numbers/Integer/Binary/ZBinary.v b/theories/Numbers/Integer/Binary/ZBinary.v index cf3986b72..835f79585 100644 --- a/theories/Numbers/Integer/Binary/ZBinary.v +++ b/theories/Numbers/Integer/Binary/ZBinary.v @@ -34,7 +34,7 @@ Qed. (** Basic operations. *) -Instance eq_equiv : Equivalence (@eq Z). +Definition eq_equiv : Equivalence (@eq Z) := eq_equivalence. Local Obligation Tactic := simpl_relation. Program Instance succ_wd : Proper (eq==>eq) Zsucc. Program Instance pred_wd : Proper (eq==>eq) Zpred. diff --git a/theories/Numbers/NatInt/NZOrder.v b/theories/Numbers/NatInt/NZOrder.v index ed59bca43..aa41a35ea 100644 --- a/theories/Numbers/NatInt/NZOrder.v +++ b/theories/Numbers/NatInt/NZOrder.v @@ -127,7 +127,7 @@ Module OrderElts <: TotalOrder. Definition eq := eq. Definition lt := lt. Definition le := le. - Instance eq_equiv : Equivalence eq. + Definition eq_equiv := eq_equiv. Instance lt_strorder : StrictOrder lt. Proof. split; [ exact lt_irrefl | exact lt_trans ]. Qed. Instance lt_compat : Proper (eq==>eq==>iff) lt. diff --git a/theories/Numbers/Natural/Binary/NBinary.v b/theories/Numbers/Natural/Binary/NBinary.v index 93922aa43..7211112f2 100644 --- a/theories/Numbers/Natural/Binary/NBinary.v +++ b/theories/Numbers/Natural/Binary/NBinary.v @@ -31,7 +31,7 @@ Qed. (** Basic operations. *) -Instance eq_equiv : Equivalence (@eq N). +Definition eq_equiv : Equivalence (@eq N) := eq_equivalence. Local Obligation Tactic := simpl_relation. Program Instance succ_wd : Proper (eq==>eq) Nsucc. Program Instance pred_wd : Proper (eq==>eq) Npred. diff --git a/theories/Numbers/Natural/Peano/NPeano.v b/theories/Numbers/Natural/Peano/NPeano.v index 962bc8de0..d42bb810d 100644 --- a/theories/Numbers/Natural/Peano/NPeano.v +++ b/theories/Numbers/Natural/Peano/NPeano.v @@ -27,7 +27,7 @@ Qed. (** Basic operations. *) -Instance eq_equiv : Equivalence (@eq nat). +Definition eq_equiv : Equivalence (@eq nat) := eq_equivalence. Local Obligation Tactic := simpl_relation. Program Instance succ_wd : Proper (eq==>eq) S. Program Instance pred_wd : Proper (eq==>eq) pred. diff --git a/theories/QArith/QOrderedType.v b/theories/QArith/QOrderedType.v index f3229d723..4d92aadb1 100644 --- a/theories/QArith/QOrderedType.v +++ b/theories/QArith/QOrderedType.v @@ -15,7 +15,7 @@ Local Open Scope Q_scope. Module Q_as_DT <: DecidableTypeFull. Definition t := Q. Definition eq := Qeq. - Instance eq_equiv : Equivalence Qeq. + Definition eq_equiv := Q_setoid. Definition eqb := Qeq_bool. Definition eqb_eq := Qeq_bool_iff. |