diff options
| author | herbelin | 2005-09-09 19:38:57 +0000 |
|---|---|---|
| committer | herbelin | 2005-09-09 19:38:57 +0000 |
| commit | 48073edfba762df190e1b066c54e27948359497f (patch) | |
| tree | 7b72be9121675c91c497681c73fb8dc2e0e22f09 /kernel | |
| parent | da349d639dee435ab9668059a99547fe0419639d (diff) | |
Suppression code inactif et commentaire apparemment incorrect (pour éviter confusions suite à question de CSC)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7360 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/indtypes.ml | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index afff821e46..6fac5c3918 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -472,15 +472,8 @@ let allowed_sorts env issmall isunit = function if issmall then all_sorts else impredicative_sorts | Prop Null -> -(* Added InType which is derivable :when the type is unit and small *) -(* unit+small types have all elimination - In predicative system, the - other inductive definitions have only Prop elimination. - In impredicative system, large unit type have also Set elimination -*) if isunit then - if issmall then all_sorts - else if Environ.engagement env = None - then logical_sorts else impredicative_sorts +(* 29/1/02: added InType which is derivable when the type is unit and small *) + if isunit then all_sorts else logical_sorts let build_inductive env env_ar record finite inds recargs cst = |