diff options
| author | Pierre-Marie Pédrot | 2018-06-07 00:56:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-06-07 00:56:12 +0200 |
| commit | 82f18a32e4740c1429ac62506faff83955423417 (patch) | |
| tree | fa1fba2891811139dfa30c1df7cfaad0581fb4d0 /vernac/comInductive.ml | |
| parent | 6748d06e9618a91a63cd09b4809e67b665818acd (diff) | |
| parent | 31a35fe712a836c90562edebc01bfcf3d1c6646a (diff) | |
Merge PR #6874: [econstr] Some minor tweaks
Diffstat (limited to 'vernac/comInductive.ml')
| -rw-r--r-- | vernac/comInductive.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml index 101c14266d..b93e8d9ac8 100644 --- a/vernac/comInductive.ml +++ b/vernac/comInductive.ml @@ -27,7 +27,6 @@ open Impargs open Reductionops open Indtypes open Pretyping -open Evarutil open Indschemes open Context.Rel.Declaration open Entries @@ -158,7 +157,7 @@ let sign_level env evd sign = | LocalDef _ -> lev, push_rel d env | LocalAssum _ -> let s = destSort (Reduction.whd_all env - (EConstr.Unsafe.to_constr (nf_evar evd (Retyping.get_type_of env evd (EConstr.of_constr (RelDecl.get_type d)))))) + (EConstr.to_constr evd (Retyping.get_type_of env evd (EConstr.of_constr (RelDecl.get_type d))))) in let u = univ_of_sort s in (Univ.sup u lev, push_rel d env)) |