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

---
 kernel/names.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'kernel/names.ml')

diff --git a/kernel/names.ml b/kernel/names.ml
index 480b37e89..f217c932c 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
-- 
cgit v1.2.3