From cb2f5d06481f9021f600eaefbdc6b33118bd346d Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 9 Nov 2009 09:42:24 +0000 Subject: Quick fix for restoring a left-to-right rewriting lemma compatible with the guard condition + typo in the generation of _rec schemes in the impredicative case. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12484 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/indschemes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'toplevel') diff --git a/toplevel/indschemes.ml b/toplevel/indschemes.ml index 9f05c3e6c..abf53fd97 100644 --- a/toplevel/indschemes.ml +++ b/toplevel/indschemes.ml @@ -194,7 +194,7 @@ let optimize_non_type_induction_scheme kind dep sort ind = mib.mind_nparams in snd (weaken_sort_scheme (new_sort_in_family sort) npars c t) else - build_induction_scheme (Global.env()) Evd.empty ind dep InProp + build_induction_scheme (Global.env()) Evd.empty ind dep sort let build_induction_scheme_in_type dep sort ind = build_induction_scheme (Global.env()) Evd.empty ind dep sort -- cgit v1.2.3