Display functions for primitive projections.

2 files changed, 8 insertions, 0 deletions

diff --git a/kernel/names.ml b/kernel/names.ml
index 480b37e897..f217c932cc 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -819,6 +819,10 @@ struct
   let map f (c, b as x) =
     let c' = f c in
       if c' == c then x else (c', b)
+
+  let to_string p = Constant.to_string (constant p)
+  let print p = Constant.print (constant p)
+
 end
 
 type projection = Projection.t
diff --git a/kernel/names.mli b/kernel/names.mli
index 92ee58f260..7cc4443752 100644
--- a/kernel/names.mli
+++ b/kernel/names.mli
@@ -652,6 +652,10 @@ module Projection : sig
   val compare : t -> t -> int
     
   val map : (constant -> constant) -> t -> t
+
+  val to_string : t -> string
+  val print : t -> Pp.std_ppcmds
+
 end
 
 type projection = Projection.t