diff options
| author | Pierre-Marie Pédrot | 2019-11-11 14:04:00 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-11-11 14:04:00 +0100 |
| commit | 2bdb83ef9eac0566d6fee6ac65e6317e0fe9f938 (patch) | |
| tree | 31d9bfdd957ab3b95124680b16855c573f3f37ea /vernac | |
| parent | d433d9e61cf030391e33cda70c41b635b286d934 (diff) | |
| parent | fea52cee63b678dfda766a0a63435c134d28d77c (diff) | |
Merge PR #11052: Fix #11048: uncaught destKO in inductive type
Reviewed-by: ppedrot
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/comInductive.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml index 36aa7a37a2..80fcb7bc45 100644 --- a/vernac/comInductive.ml +++ b/vernac/comInductive.ml @@ -12,7 +12,6 @@ open Pp open CErrors open Sorts open Util -open Constr open Context open Environ open Names @@ -164,9 +163,7 @@ let sign_level env evd sign = match d with | LocalDef _ -> lev, push_rel d env | LocalAssum _ -> - let s = destSort (Reduction.whd_all env - (EConstr.to_constr evd (Retyping.get_type_of env evd (EConstr.of_constr (RelDecl.get_type d))))) - in + let s = Retyping.get_sort_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)) sign (Univ.Universe.sprop,env)) |