diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-09 09:42:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-09 09:42:24 +0000 |
| commit | cb2f5d06481f9021f600eaefbdc6b33118bd346d (patch) | |
| tree | 8ae02c329fc3530368137996398c2c576a368574 /toplevel | |
| parent | c70d2b83582f5ea7b2218843859ad230afdb96a0 (diff) | |
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
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/indschemes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |