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/printer.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/printer.ml')
| -rw-r--r-- | printing/printer.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index be0139da06..3f7837fd6e 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -982,14 +982,6 @@ let pr_assumptionset env sigma s = ] in prlist_with_sep fnl (fun x -> x) (Option.List.flatten assums) -let pr_cumulative poly cum = - if poly then - if cum then str "Cumulative " else str "NonCumulative " - else mt () - -let pr_polymorphic b = - if b then str"Polymorphic " else str"Monomorphic " - (* print the proof step, possibly with diffs highlighted, *) let print_and_diff oldp newp = match newp with |