diff options
| author | herbelin | 2001-09-19 16:55:41 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-19 16:55:41 +0000 |
| commit | f83572bc45b9ab6b72688eb22d125896541ccf16 (patch) | |
| tree | 37e08a39ea53751d9fdd7dff4449f4125e3f7bfd /kernel/indtypes.ml | |
| parent | 3607bb83605ff596445e0f18016d1fbb3d66d584 (diff) | |
Type 'sorts_family' (ex elimination_sorts) pour caractériser les familles des sortes (InProp, InSet, InType)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2009 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 662692ecaa..c28055ae6b 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -101,12 +101,12 @@ let mind_check_wellformed env mie = let allowed_sorts issmall isunit = function | Type _ -> - [ElimOnProp;ElimOnSet;ElimOnType] + [InProp;InSet;InType] | Prop Pos -> - if issmall then [ElimOnProp;ElimOnSet;ElimOnType] - else [ElimOnProp;ElimOnSet] + if issmall then [InProp;InSet;InType] + else [InProp;InSet] | Prop Null -> - if isunit then [ElimOnProp;ElimOnSet] else [ElimOnProp] + if isunit then [InProp;InSet] else [InProp] type ill_formed_ind = | LocalNonPos of int |