diff options
| author | glondu | 2010-11-08 10:55:25 +0000 |
|---|---|---|
| committer | glondu | 2010-11-08 10:55:25 +0000 |
| commit | 51f5f4d37fdc3db1e7da951db11119bdb5a7554b (patch) | |
| tree | 63ac1e15a81599a51e67f7a871cae01e9dc43234 | |
| parent | 2f097c1aa32591a997acda45ce6a0b3e31855710 (diff) | |
Refresh universes in params when generating schemes (Closes: #2429)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13631 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/indrec.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index acded3ac58..e1da61908a 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -50,7 +50,11 @@ let mkLambda_string s t c = mkLambda (Name (id_of_string s), t, c) (* Christine Paulin, 1996 *) let mis_make_case_com dep env sigma ind (mib,mip as specif) kind = - let lnamespar = mib.mind_params_ctxt in + let lnamespar = List.map + (fun (n, c, t) -> (n, c, Termops.refresh_universes t)) + mib.mind_params_ctxt + in + if not (List.mem kind (elim_sorts specif)) then raise (RecursionSchemeError |