diff options
| author | Pierre-Marie Pédrot | 2016-06-18 18:59:36 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-18 19:38:45 +0200 |
| commit | 371d69b334837c51d0dc998ddefbd072ac8dde2f (patch) | |
| tree | d030b2e5fbd6fe9c7bba68e5fb80d2546ab96f92 /checker/typeops.ml | |
| parent | ecb032467557631ea60324c6afa55c91c133e40d (diff) | |
Fixing the checker.
I had to remove code handling the -type-in-type option introduced by commit
9c732a5. We should fix it at some point, but I am not sure that using the
checker with a system known to be blatantly inconsistent makes much sense
anyway.
Diffstat (limited to 'checker/typeops.ml')
| -rw-r--r-- | checker/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/typeops.ml b/checker/typeops.ml index da9842a8db..0c7e538be2 100644 --- a/checker/typeops.ml +++ b/checker/typeops.ml @@ -128,7 +128,7 @@ let sort_of_product env domsort rangsort = | (Prop _, Prop Pos) -> rangsort (* Product rule (Type,Set,?) *) | (Type u1, Prop Pos) -> - if fst (engagement env) = ImpredicativeSet then + if engagement env = ImpredicativeSet then (* Rule is (Type,Set,Set) in the Set-impredicative calculus *) rangsort else |