From 90d64647d3fd5dbf5c337944dc0038f0b19b8a51 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 17 Jun 2014 14:26:02 +0200
Subject: Removing dead code.

---
 printing/ppvernac.ml | 5 -----
 printing/printer.ml  | 2 --
 2 files changed, 7 deletions(-)

(limited to 'printing')

diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index 6fa5b8896e..d89731147b 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -375,11 +375,6 @@ let pr_priority = function
 | None -> mt ()
 | Some i -> spc () ++ str "|" ++ spc () ++ int i
 
-let pr_poly p = 
-  if Flags.is_universe_polymorphism () then
-    if not p then str"Monomorphic " else mt ()
-  else if p then str"Polymorphic " else mt ()
-
 (**************************************)
 (* Pretty printer for vernac commands *)
 (**************************************)
diff --git a/printing/printer.ml b/printing/printer.ml
index cb10f9661a..3b5c80c62f 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -727,8 +727,6 @@ let pr_assumptionset env s =
     ] in
     prlist_with_sep fnl (fun x -> x) (Option.List.flatten assums)
 
-open Typeclasses
-
 let xor a b = 
   (a && not b) || (not a && b)
 
-- 
cgit v1.2.3