diff options
author | 2017-04-26 15:24:35 +0200 | |
---|---|---|
committer | 2017-06-16 04:51:16 +0200 | |
commit | 7b5fcef8a0fb3b97a3980f10596137234061990f (patch) | |
tree | 41512a4619f9b68641cb9da31b56059846e8a0b9 /vernac | |
parent | 40f56eb0f79e208fc4b1b4ed2f0fb49c69c13a2f (diff) |
Fix bugs
Diffstat (limited to 'vernac')
-rw-r--r-- | vernac/command.ml | 2 | ||||
-rw-r--r-- | vernac/record.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 116a7aee1..6c5997623 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -662,7 +662,7 @@ let interp_mutual_inductive (paramsl,indl) notations poly prv finite = } in (if poly then - Inductiveops.infer_inductive_subtyping env_ar_params evd mind_ent + Inductiveops.infer_inductive_subtyping env_ar evd mind_ent else mind_ent), pl, impls (* Very syntactical equality *) diff --git a/vernac/record.ml b/vernac/record.ml index 84312594d..093a31c19 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -410,9 +410,9 @@ let declare_structure finite poly ctx id idbuild paramimpls params arity templat begin let env = Global.env () in let env' = Environ.push_context (Univ.UInfoInd.univ_context ctx) env in - let env'' = Environ.push_rel_context params env' in - let evd = Evd.from_env env'' in - Inductiveops.infer_inductive_subtyping env'' evd mie + (* let env'' = Environ.push_rel_context params env' in *) + let evd = Evd.from_env env' in + Inductiveops.infer_inductive_subtyping env' evd mie end else mie |