diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 20:07:02 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 20:07:02 +0200 |
commit | b2495b2326083776f9b15355acac77cde73545e1 (patch) | |
tree | d030b2e5fbd6fe9c7bba68e5fb80d2546ab96f92 /checker/indtypes.ml | |
parent | 561dbba4ce47aa1920b27a6fa3ea1fdb03835557 (diff) | |
parent | 371d69b334837c51d0dc998ddefbd072ac8dde2f (diff) |
Merge PR# 169: Local type-in-type flag.
Diffstat (limited to 'checker/indtypes.ml')
-rw-r--r-- | checker/indtypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/indtypes.ml b/checker/indtypes.ml index a667bb8a3..29b16392b 100644 --- a/checker/indtypes.ml +++ b/checker/indtypes.ml @@ -176,7 +176,7 @@ let typecheck_arity env params inds = (* Allowed eliminations *) let check_predicativity env s small level = - match s, fst (engagement env) with + match s, engagement env with Type u, _ -> (* let u' = fresh_local_univ () in *) (* let cst = *) |