diff options
| -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 acded3ac5..e1da61908 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 |