From 384bfc99d2e19d14176261b60665766aad803c54 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Nov 2000 17:12:14 +0000
Subject: Code mort

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

(limited to 'kernel')

diff --git a/kernel/term.ml b/kernel/term.ml
index 13fbb5de72..d331df98bb 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -748,21 +748,11 @@ let compare_constr f c1 c2 =
 (*     Type of assumptions                                                 *)
 (***************************************************************************)
 
-(*
-type 'a judge = { body : constr; typ : 'a }
-type types = sorts judge
-
-let type_app f tt = { body = f tt.body; typ = tt.typ }
-
-let body_of_type ty = ty.body
-*)
-
 type types = constr
 
 let type_app f tt = f tt
 
 let body_of_type ty = ty
-(**)
 
 type named_declaration = identifier * constr option * types
 type rel_declaration = name * constr option * types
-- 
cgit v1.2.3