diff options
| author | Gaëtan Gilbert | 2018-12-10 16:59:15 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-12-17 14:49:23 +0100 |
| commit | c4397eab9f92f29fb32dd7e3cc3e4c81c63efe7d (patch) | |
| tree | 3ec7e72f94d3ade7b065473dda55e1892c763000 /printing/prettyp.ml | |
| parent | 854d3e1b404fb3ee9087ffb07cbba7cc9196c1f9 (diff) | |
Stop printing Monomorphic/Polymorphic in Print.
You can tell which it is from the `@{}` if you really care, and seeing
`Monomorphic List (A:Type)` with no indication that `Monomorphic` is
about universes can confuse people.
Diffstat (limited to 'printing/prettyp.ml')
| -rw-r--r-- | printing/prettyp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 8f7e4470f9..c417ef8a66 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -575,7 +575,7 @@ let print_constant with_values sep sp udecl = in let env = Global.env () and sigma = Evd.from_ctx ctx in let pr_ltype = pr_ltype_env env sigma in - hov 0 (pr_polymorphic (Declareops.constant_is_polymorphic cb) ++ + hov 0 ( match val_0 with | None -> str"*** [ " ++ |