diff options
| author | herbelin | 2001-09-09 15:19:10 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-09 15:19:10 +0000 |
| commit | 57836d30da692ebbe79c4f3644803c8fa3ec34cc (patch) | |
| tree | 726d7a74162b6d38d1cc5267a4f9aa1732c0c25e | |
| parent | 2ec6a91a4270d2941cee84f67599a3d28285833f (diff) | |
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
| -rw-r--r-- | kernel/term.ml | 3 | ||||
| -rw-r--r-- | kernel/term.mli | 1 |
2 files changed, 1 insertions, 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 *) |