Code mort

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@842 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 0 insertions, 10 deletions

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