From 86952ac8ad1dba395cb4724ac0b4f54774448944 Mon Sep 17 00:00:00 2001 From: barras Date: Thu, 29 Nov 2001 09:21:25 +0000 Subject: nouvel algo de conversion plus uniforme git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2246 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/ring/ring.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'contrib/ring/ring.ml') diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml index 1043ecbdb..97258c506 100644 --- a/contrib/ring/ring.ml +++ b/contrib/ring/ring.ml @@ -815,12 +815,12 @@ let constants_to_unfold = open RedFlags let polynom_unfold_tac = let flags = - (UNIFORM, mkflags(fBETA::fIOTA::(List.map fCONST constants_to_unfold))) in + (mkflags(fBETA::fIOTA::(List.map fCONST constants_to_unfold))) in reduct_in_concl (cbv_norm_flags flags) let polynom_unfold_tac_in_term gl = let flags = - (UNIFORM,mkflags(fBETA::fIOTA::fZETA::(List.map fCONST constants_to_unfold))) + (mkflags(fBETA::fIOTA::fZETA::(List.map fCONST constants_to_unfold))) in cbv_norm_flags flags (pf_env gl) (project gl) -- cgit v1.2.3