diff --git a/src/Rewriter/Util/plugins/inductive_from_elim.ml.v821 b/src/Rewriter/Util/plugins/inductive_from_elim.ml.v821 index 1039f9266..1e498a055 100644 --- a/src/Rewriter/Util/plugins/inductive_from_elim.ml.v821 +++ b/src/Rewriter/Util/plugins/inductive_from_elim.ml.v821 @@ -45,7 +45,7 @@ let make_inductive_from_elim sigma (name : Names.Id.t option) (elim_ty : EConstr let univs, ubinders = Evd.check_univ_decl ~poly:false sigma UState.default_univ_decl in let uctx = match univs with | UState.Monomorphic_entry ctx -> - let () = Global.push_context_set ~strict:true ctx in + let () = Global.push_context_set ctx in Entries.Monomorphic_ind_entry | UState.Polymorphic_entry uctx -> Entries.Polymorphic_ind_entry uctx in