diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-11-23 17:51:16 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-11-24 14:39:05 +0100 |
| commit | 1467c22548453cd07ceba0029e37c8bbdfd039ea (patch) | |
| tree | ed5438340a39b290ef933bcc3764a97561987e6d /pretyping/retyping.ml | |
| parent | 3e4a4fbb1e0f00aff08664321d916167166dbab3 (diff) | |
Fixing an old typo in Retyping, found by Matej.
Diffstat (limited to 'pretyping/retyping.ml')
| -rw-r--r-- | pretyping/retyping.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/retyping.ml b/pretyping/retyping.ml index fb5526552..a169a4577 100644 --- a/pretyping/retyping.ml +++ b/pretyping/retyping.ml @@ -158,8 +158,7 @@ let retype ?(polyprop=true) sigma = and sort_family_of env t = match kind_of_term t with | Cast (c,_, s) when isSort s -> family_of_sort (destSort s) - | Sort (Prop c) -> InType - | Sort (Type u) -> InType + | Sort s -> family_of_sort s | Prod (name,t,c2) -> let s2 = sort_family_of (push_rel (name,None,t) env) c2 in if not (is_impredicative_set env) && |