diff options
Diffstat (limited to 'interp/declare.ml')
-rw-r--r-- | interp/declare.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/declare.ml b/interp/declare.ml index 0bfc9060b..72cdabfd2 100644 --- a/interp/declare.ml +++ b/interp/declare.ml @@ -365,7 +365,7 @@ let infer_inductive_subtyping (pth, mind_ent) = begin let env = Global.env () in (* let (env'', typed_params) = Typeops.infer_local_decls env' (mind_ent.mind_entry_params) in *) - (pth, Inductiveops.infer_inductive_subtyping env mind_ent) + (pth, InferCumulativity.infer_inductive env mind_ent) end type inductive_obj = Dischargedhypsmap.discharged_hyps * mutual_inductive_entry |