diff options
-rw-r--r-- | pretyping/retyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/retyping.ml b/pretyping/retyping.ml index e4c900b31..5ed6e6051 100644 --- a/pretyping/retyping.ml +++ b/pretyping/retyping.ml @@ -96,7 +96,7 @@ let typeur sigma metamap = | _ -> outsort env sigma (type_of env t) and sort_family_of env t = - match kind_of_term t with + match kind_of_term (whd_betadeltaiota env sigma t) with | IsCast (c,s) when isSort s -> family_of_sort (destSort s) | IsSort (Prop c) -> InType | IsSort (Type u) -> InType |