diff options
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 f0c116d275..a7c6ef0572 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 |