From f23266511a92a6260dde8bfee6e6b5d840a1c6fd Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 17 Apr 2002 11:35:59 +0000 Subject: Uniformisation (Qed/Save et Implicits Arguments) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2651 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/ring/Setoid_ring_normalize.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'contrib/ring/Setoid_ring_normalize.v') 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))). -- cgit v1.2.3