diff options
Diffstat (limited to 'theories/Numbers')
-rw-r--r-- | theories/Numbers/Integer/Binary/ZBinary.v | 1 | ||||
-rw-r--r-- | theories/Numbers/Natural/Binary/NBinary.v | 1 | ||||
-rw-r--r-- | theories/Numbers/Natural/Peano/NPeano.v | 2 |
3 files changed, 4 insertions, 0 deletions
diff --git a/theories/Numbers/Integer/Binary/ZBinary.v b/theories/Numbers/Integer/Binary/ZBinary.v index 6a2745d34..cf3986b72 100644 --- a/theories/Numbers/Integer/Binary/ZBinary.v +++ b/theories/Numbers/Integer/Binary/ZBinary.v @@ -35,6 +35,7 @@ Qed. (** Basic operations. *) Instance eq_equiv : Equivalence (@eq Z). +Local Obligation Tactic := simpl_relation. Program Instance succ_wd : Proper (eq==>eq) Zsucc. Program Instance pred_wd : Proper (eq==>eq) Zpred. Program Instance add_wd : Proper (eq==>eq==>eq) Zplus. diff --git a/theories/Numbers/Natural/Binary/NBinary.v b/theories/Numbers/Natural/Binary/NBinary.v index e94644c48..93922aa43 100644 --- a/theories/Numbers/Natural/Binary/NBinary.v +++ b/theories/Numbers/Natural/Binary/NBinary.v @@ -32,6 +32,7 @@ Qed. (** Basic operations. *) Instance eq_equiv : Equivalence (@eq N). +Local Obligation Tactic := simpl_relation. Program Instance succ_wd : Proper (eq==>eq) Nsucc. Program Instance pred_wd : Proper (eq==>eq) Npred. Program Instance add_wd : Proper (eq==>eq==>eq) Nplus. diff --git a/theories/Numbers/Natural/Peano/NPeano.v b/theories/Numbers/Natural/Peano/NPeano.v index 73affd90d..962bc8de0 100644 --- a/theories/Numbers/Natural/Peano/NPeano.v +++ b/theories/Numbers/Natural/Peano/NPeano.v @@ -28,6 +28,7 @@ Qed. (** Basic operations. *) Instance eq_equiv : Equivalence (@eq nat). +Local Obligation Tactic := simpl_relation. Program Instance succ_wd : Proper (eq==>eq) S. Program Instance pred_wd : Proper (eq==>eq) pred. Program Instance add_wd : Proper (eq==>eq==>eq) plus. @@ -228,6 +229,7 @@ Module NDivMod <: NDivSig. Definition modulo := modulo. Definition div_mod := div_mod. Definition mod_upper_bound := mod_upper_bound. + Local Obligation Tactic := simpl_relation. Program Instance div_wd : Proper (eq==>eq==>eq) div. Program Instance mod_wd : Proper (eq==>eq==>eq) modulo. End NDivMod. |