diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:59:36 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 19:38:45 +0200 |
commit | 371d69b334837c51d0dc998ddefbd072ac8dde2f (patch) | |
tree | d030b2e5fbd6fe9c7bba68e5fb80d2546ab96f92 /checker/reduction.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/reduction.ml')
-rw-r--r-- | checker/reduction.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index f1aa5d919..b280df54a 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -167,8 +167,9 @@ let sort_cmp env univ pb s0 s1 = CUMUL -> () | _ -> raise NotConvertible) | (Type u1, Type u2) -> - if snd (engagement env) == StratifiedType - && not + (** FIXME: handle type-in-type option here *) + if (* snd (engagement env) == StratifiedType && *) + not (match pb with | CONV -> Univ.check_eq univ u1 u2 | CUMUL -> Univ.check_leq univ u1 u2) |