1 files changed, 0 insertions, 15 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index 6d53349fa1..26202ef4ca 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -14,7 +14,6 @@ open Util
 open Pp
 open CAst
 open Names
-open Nameops
 open Libnames
 open Pputils
 open Ppextend
@@ -230,20 +229,6 @@ let tag_var = tag Tag.variable
     | { CAst.v = CHole (_,IntroAnonymous,_) } -> mt ()
     | t ->  str " :" ++ pr_sep_com (fun()->brk(1,2)) (pr ltop) t
 
-  let pr_lident {loc; v=id} =
-    match loc with
-    | None     -> pr_id id
-    | Some loc -> let (b,_) = Loc.unloc loc in
-                  pr_located pr_id (Some (Loc.make_loc (b,b + String.length (Id.to_string id))), id)
-
-  let pr_lname = function
-    | {CAst.loc; v=Name id} -> pr_lident CAst.(make ?loc id)
-    | x -> pr_ast Name.print x
-
-  let pr_or_var pr = function
-    | Locus.ArgArg x -> pr x
-    | Locus.ArgVar id -> pr_lident id
-
   let pr_prim_token = function
     | Numeral (n,s) -> str (if s then n else "-"^n)
     | String s -> qs s