From f1874a538ef7e5886b72c2ec2ce21b23d05aa8d7 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 30 Aug 1999 13:17:26 +0000
Subject: ajout des inductifs (sans types singletons pour l'instant)

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

(limited to 'kernel/term.ml')

diff --git a/kernel/term.ml b/kernel/term.ml
index 94ce20615e..46bcebcd84 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -59,6 +59,8 @@ type 'a judge = { body : constr; typ : 'a }
 type typed_type = sorts judge
 type typed_term = typed_type judge
 
+let make_typed t s = { body = t; typ = s }
+
 let typed_app f tt = { body = f tt.body; typ = tt.typ }
 
 let body_of_type ty = ty.body
-- 
cgit v1.2.3