diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-04-17 11:35:59 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-04-17 11:35:59 +0000 |
| commit | f23266511a92a6260dde8bfee6e6b5d840a1c6fd (patch) | |
| tree | 14a33c7de9be0d17ed348fdeb5688620bf20fb72 /contrib/ring/Setoid_ring_normalize.v | |
| parent | cc1be0bf512b421336e81099aa6906ca47e4257a (diff) | |
Uniformisation (Qed/Save et Implicits Arguments)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2651 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/ring/Setoid_ring_normalize.v')
| -rw-r--r-- | contrib/ring/Setoid_ring_normalize.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/ring/Setoid_ring_normalize.v b/contrib/ring/Setoid_ring_normalize.v index 8b889b23f..ec5f32fc2 100644 --- a/contrib/ring/Setoid_ring_normalize.v +++ b/contrib/ring/Setoid_ring_normalize.v @@ -11,7 +11,7 @@ Require Setoid_ring_theory. Require Quote. -Implicit Arguments On. +Set Implicit Arguments. Lemma index_eq_prop: (n,m:index)(Is_true (index_eq n m)) -> n=m. Proof. @@ -348,7 +348,7 @@ Fixpoint interp_setsp [p:setspolynomial] : A := (* End interpretation. *) -Implicit Arguments Off. +Unset Implicit Arguments. (* Section properties. *) @@ -1014,7 +1014,7 @@ Implicits SetSPmult. Section setoid_rings. -Implicit Arguments On. +Set Implicit Arguments. Variable vm : (varmap A). Variable T : (Setoid_Ring_Theory A Aequiv Aplus Amult Aone Azero Aopp Aeq). @@ -1098,7 +1098,7 @@ Fixpoint interp_setp [p:setpolynomial] : A := (*** Properties *) -Implicit Arguments Off. +Unset Implicit Arguments. Lemma setspolynomial_of_ok : (p:setpolynomial) (Aequiv (interp_setp p) (interp_setsp vm (setspolynomial_of p))). |