Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/Rewriter/Util/plugins/inductive_from_elim.ml.v93
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,7 @@ let make_inductive_from_elim sigma (name : Names.Id.t option) (elim_ty : EConstr
let ctor_type_to_constr cty =
EConstr.to_constr sigma (EConstr.Vars.subst_var sigma name cty)
in
let sigma = Evd.collapse_sort_variables sigma in
let sigma = Evd.collapse_sort_variables ~only_above_prop:false sigma in
let univs, ubinders = Evd.check_univ_decl ~poly:PolyFlags.default sigma UState.default_univ_decl in
let uctx = match univs with
| UState.Monomorphic_entry ctx ->
Expand Down
Loading