We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 64a6980 commit 7886ea4Copy full SHA for 7886ea4
src/Rewriter/Util/plugins/inductive_from_elim.ml.v92
@@ -42,7 +42,7 @@ let make_inductive_from_elim sigma (name : Names.Id.t option) (elim_ty : EConstr
42
let ctor_type_to_constr cty =
43
EConstr.to_constr sigma (EConstr.Vars.subst_var sigma name cty)
44
in
45
- let univs, ubinders = Evd.check_sort_poly_decl ~poly:false sigma UState.default_sort_poly_decl in
+ let univs, ubinders = Evd.check_univ_decl ~poly:false sigma UState.default_univ_decl in
46
let uctx = match univs with
47
| UState.Monomorphic_entry ctx ->
48
let () = Global.push_context_set ctx in
0 commit comments