diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-14 08:59:15 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-14 08:59:15 +0000 |
| commit | f60fcb9ddae0c8df56a2d05233b48fccd7abe816 (patch) | |
| tree | 370ae8ae50428a93d806a912faddd42f3f5fcb24 /printing | |
| parent | 12e1e2267dff48b13f4a8c3ef2527b2135698dbe (diff) | |
Removing useless uses of Gmap.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16520 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 5 | ||||
| -rw-r--r-- | printing/printer.mli | 3 |
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 : |