diff options
| author | filliatr | 1999-08-23 09:14:48 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-23 09:14:48 +0000 |
| commit | a86e0c41f5e9932140574b316343c3dfd321703c (patch) | |
| tree | 568d5d18799db01c86b2aa263310a4f8a66eb331 /kernel/term.ml | |
| parent | cd9afd3c84949dff733ab59f3bf838bc5863b532 (diff) | |
- suppression de CONV_X et CONV_X_LEQ : les univers sont maintenant toujours
ajustés
- déplacement du type pb_conv dans Reduction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@20 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 2f7838b2d9..87cc1aaaec 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -61,8 +61,6 @@ type typed_term = typed_type judge let typed_app f tt = { body = f tt.body; typ = tt.typ } -type conv_pb = CONV | CONV_LEQ | CONV_X | CONV_X_LEQ - (****************************************************************************) (* Functions for dealing with constr terms *) (****************************************************************************) @@ -825,17 +823,6 @@ let sort_hdchar = function | Prop(_) -> "P" | Type(_) -> "T" -let pb_is_univ_adjust pb = - pb = CONV or pb = CONV_LEQ - -let pb_is_equal pb = - pb = CONV or pb = CONV_X - -let pb_equal = function - | CONV_LEQ -> CONV - | CONV_X_LEQ -> CONV_X - | pb -> pb - (* Level comparison for information extraction : Prop <= Type *) let le_kind l m = (isprop l) or (is_Type m) |