diff options
| author | Maxime Dénès | 2017-10-09 15:33:45 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-10-09 15:33:45 +0200 |
| commit | d5534aab708e5d3bd6c3633dc9d028016eeb3076 (patch) | |
| tree | b74bcffce9869dc8aaec115e4614fb7e89ac5a3d /kernel/typeops.ml | |
| parent | 73a858469479651cc4baf631a45a9ff1d69d0c66 (diff) | |
| parent | d19e8bafe6cc18cc47bbb3e3f7aa0d2d719014c0 (diff) | |
Merge PR #1109: Handle some misc todos
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 044877e82a..b40badd7c8 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -65,6 +65,10 @@ let type_of_type u = let uu = Universe.super u in mkType uu +let type_of_sort = function + | Prop c -> type1 + | Type u -> type_of_type u + (*s Type of a de Bruijn index. *) let type_of_relative env n = @@ -323,11 +327,7 @@ let rec execute env cstr = let open Context.Rel.Declaration in match kind_of_term cstr with (* Atomic terms *) - | Sort (Prop c) -> - type1 - - | Sort (Type u) -> - type_of_type u + | Sort s -> type_of_sort s | Rel n -> type_of_relative env n |