From 57836d30da692ebbe79c4f3644803c8fa3ec34cc Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 9 Sep 2001 15:19:10 +0000
Subject: Suppression de Type_1, inutile, et non prévu dans le modèle des
 univers algébriques

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1937 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml  | 3 +--
 kernel/term.mli | 1 -
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/kernel/term.ml b/kernel/term.ml
index c6022b999c..1637fcafba 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -1059,9 +1059,8 @@ let mkType u = mkSort (Type u)
 
 let prop = Prop Null
 and spec = Prop Pos
-and types = Type dummy_univ
+and types = Type implicit_univ (* For eliminations *)
 and type_0 = Type prop_univ
-and type_1 = Type prop_univ_univ
 
 (* Constructs the term t1::t2, i.e. the term t1 casted with the type t2 *)
 (* (that means t2 is declared as the type of t1) *)
diff --git a/kernel/term.mli b/kernel/term.mli
index 8a5a402a74..4c7d23cc4c 100644
--- a/kernel/term.mli
+++ b/kernel/term.mli
@@ -154,7 +154,6 @@ val prop : sorts
 val spec : sorts
 val types : sorts 
 val type_0 : sorts
-val type_1 : sorts
 
 (* Construct an implicit (see implicit arguments in the RefMan).
    Used for extraction *)
-- 
cgit v1.2.3