aboutsummaryrefslogtreecommitdiff
path: root/printing/printer.ml
diff options
context:
space:
mode:
authorMaxime Dénès2018-12-21 10:52:36 +0100
committerMaxime Dénès2018-12-21 10:52:36 +0100
commitba6b5839add7587837b4cea890f2d505ce76d489 (patch)
tree56f1a87240d53a3a4cc814e9e64f8646a1c50731 /printing/printer.ml
parent8d41928c9f0bb54ed41e3ab0d7a6f76d556bb588 (diff)
parentc4397eab9f92f29fb32dd7e3cc3e4c81c63efe7d (diff)
Merge PR #9182: Stop printing Monomorphic/Polymorphic in Print.
Diffstat (limited to 'printing/printer.ml')
-rw-r--r--printing/printer.ml8
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