aboutsummaryrefslogtreecommitdiffhomepage
path: root/printing
diff options
context:
space:
mode:
Diffstat (limited to 'printing')
-rw-r--r--printing/printer.ml5
-rw-r--r--printing/printer.mli3
2 files changed, 0 insertions, 8 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index 5d63d179d..696f25695 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -698,11 +698,6 @@ open Typeclasses
let pr_instance i =
pr_global (instance_impl i)
-let pr_instance_gmap insts =
- prlist_with_sep fnl (fun (gr, insts) ->
- prlist_with_sep fnl pr_instance (cmap_to_list insts))
- (Gmap.to_list insts)
-
(** Inductive declarations *)
open Termops
diff --git a/printing/printer.mli b/printing/printer.mli
index fea8c0673..7c3a64b85 100644
--- a/printing/printer.mli
+++ b/printing/printer.mli
@@ -168,9 +168,6 @@ val set_printer_pr : printer_pr -> unit
val default_printer_pr : printer_pr
-val pr_instance_gmap : (global_reference, Typeclasses.instance Names.Cmap.t) Gmap.t ->
- Pp.std_ppcmds
-
(** Inductive declarations *)
val pr_mutual_inductive_body :