diff options
| author | Pierre-Marie Pédrot | 2016-06-18 20:07:02 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-18 20:07:02 +0200 |
| commit | b2495b2326083776f9b15355acac77cde73545e1 (patch) | |
| tree | d030b2e5fbd6fe9c7bba68e5fb80d2546ab96f92 /printing | |
| parent | 561dbba4ce47aa1920b27a6fa3ea1fdb03835557 (diff) | |
| parent | 371d69b334837c51d0dc998ddefbd072ac8dde2f (diff) | |
Merge PR# 169: Local type-in-type flag.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/prettyp.ml | 7 | ||||
| -rw-r--r-- | printing/printer.ml | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 9745a79250..ad67becd01 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -215,6 +215,12 @@ let print_polymorphism ref = else "not universe polymorphic") ] else [] +let print_type_in_type ref = + let unsafe = Global.is_type_in_type ref in + if unsafe then + [ pr_global ref ++ str " relies on an unsafe universe hierarchy"] + else [] + let print_primitive_record recflag mipv = function | Some (Some (_, ps,_)) -> let eta = match recflag with @@ -244,6 +250,7 @@ let print_name_infos ref = else [] in print_polymorphism ref @ + print_type_in_type ref @ print_primitive ref @ type_info_for_implicit @ print_renames_list (mt()) renames @ diff --git a/printing/printer.ml b/printing/printer.ml index 509e982dcb..8af2af98a5 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -775,7 +775,7 @@ module ContextObjectMap = Map.Make (OrderedContextObject) let pr_assumptionset env s = if ContextObjectMap.is_empty s && - engagement env = (PredicativeSet, StratifiedType) then + engagement env = PredicativeSet then str "Closed under the global context" else let safe_pr_constant env kn = |