diff options
| author | Amin Timany | 2017-04-26 15:24:35 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-16 04:51:16 +0200 |
| commit | 7b5fcef8a0fb3b97a3980f10596137234061990f (patch) | |
| tree | 41512a4619f9b68641cb9da31b56059846e8a0b9 /vernac/record.ml | |
| parent | 40f56eb0f79e208fc4b1b4ed2f0fb49c69c13a2f (diff) | |
Fix bugs
Diffstat (limited to 'vernac/record.ml')
| -rw-r--r-- | vernac/record.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index 84312594d5..093a31c194 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 |