From a9665989a93014355ab152920c0a0e58cf0a7dfe Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Wed, 1 Jul 2015 12:39:57 +0200
Subject: Display functions for primitive projections.

---
 kernel/names.ml  | 4 ++++
 kernel/names.mli | 4 ++++
 2 files changed, 8 insertions(+)

(limited to 'kernel')

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
-- 
cgit v1.2.3