diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-11-10 13:23:32 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-02-10 01:34:19 +0100 |
| commit | 1ed0836a7e0c8e05b0288f85e344ef5249d5d228 (patch) | |
| tree | e36199b1ff1f6a7ddf83ba164c131339b5061f6c /interp/declare.ml | |
| parent | 35fba70509d9fb219b2a88f8e7bd246b2671b39b (diff) | |
Inference of inductive subtyping does not need an evar map.
Diffstat (limited to 'interp/declare.ml')
| -rw-r--r-- | interp/declare.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/interp/declare.ml b/interp/declare.ml index 55f825c25..0bfc9060b 100644 --- a/interp/declare.ml +++ b/interp/declare.ml @@ -364,13 +364,8 @@ let infer_inductive_subtyping (pth, mind_ent) = | Cumulative_ind_entry cumi -> begin let env = Global.env () in - let env' = - Environ.push_context - (Univ.CumulativityInfo.univ_context cumi) env - in (* let (env'', typed_params) = Typeops.infer_local_decls env' (mind_ent.mind_entry_params) in *) - let evd = Evd.from_env env' in - (pth, Inductiveops.infer_inductive_subtyping env' evd mind_ent) + (pth, Inductiveops.infer_inductive_subtyping env mind_ent) end type inductive_obj = Dischargedhypsmap.discharged_hyps * mutual_inductive_entry |