diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-05-13 18:19:15 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:54:43 +0200 |
| commit | 575da16f72ac125ba7e50b1bfe63302dee639973 (patch) | |
| tree | 7e967e4b8031059b301f537b068f198b54213daf /kernel/term_typing.ml | |
| parent | 561dbba4ce47aa1920b27a6fa3ea1fdb03835557 (diff) | |
Adding a local type-in-type flag in kernel declarations.
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index f0c116d27..a7c6ef057 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -269,6 +269,7 @@ let suggest_proof_using = ref (fun _ _ _ _ _ -> "") let set_suggest_proof_using f = suggest_proof_using := f let build_constant_declaration ~flags kn env (def,typ,proj,poly,univs,inline_code,ctx) = + let flags = { flags with check_universes = flags.check_universes && not (type_in_type env) } in let open Context.Named.Declaration in let check declared inferred = let mk_set l = List.fold_right Id.Set.add (List.map get_id l) Id.Set.empty in |