From 6c28c8f38c6f47cc772d42e5cc54398785d63bc0 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 23 Nov 1999 17:39:25 +0000
Subject: modules Indrec, Tacentries, Hiddentac

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@131 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'kernel/term.ml')

diff --git a/kernel/term.ml b/kernel/term.ml
index 4694a75a25..543c41baa8 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -52,6 +52,11 @@ type sorts =
 let mk_Set  = Prop Pos
 let mk_Prop = Prop Null
 
+let print_sort = function
+  | Prop Pos -> [< 'sTR "Set" >]
+  | Prop Null -> [< 'sTR "Prop" >]
+  | Type _ -> [< 'sTR "Type" >]
+
 type constr = sorts oper term
 
 type 'a judge = { body : constr; typ : 'a }
-- 
cgit v1.2.3