diff options
| author | letouzey | 2010-01-14 14:18:31 +0000 |
|---|---|---|
| committer | letouzey | 2010-01-14 14:18:31 +0000 |
| commit | 41beba06c59bd5c4e954b46f27c7667be58f4982 (patch) | |
| tree | 26341903cdc4e2b3f1967269fea6ca190550da30 /theories/Numbers/Natural | |
| parent | d4e303c65b5539112ba42d642dcc064cbed3bdba (diff) | |
Avoid some more re-declarations of Equivalence instances
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12671 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Natural')
| -rw-r--r-- | theories/Numbers/Natural/Binary/NBinary.v | 2 | ||||
| -rw-r--r-- | theories/Numbers/Natural/Peano/NPeano.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Numbers/Natural/Binary/NBinary.v b/theories/Numbers/Natural/Binary/NBinary.v index 93922aa437..7211112f26 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 962bc8de0b..d42bb810d2 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. |