From f60fcb9ddae0c8df56a2d05233b48fccd7abe816 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 14 May 2013 08:59:15 +0000
Subject: Removing useless uses of Gmap.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16520 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 printing/printer.ml  | 5 -----
 printing/printer.mli | 3 ---
 2 files changed, 8 deletions(-)

(limited to 'printing')

diff --git a/printing/printer.ml b/printing/printer.ml
index 5d63d179db..696f25695b 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 fea8c06735..7c3a64b851 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 :
-- 
cgit v1.2.3