diff options
| author | herbelin | 2003-11-08 09:53:47 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-08 09:53:47 +0000 |
| commit | a98cbb0391769b2904a8127d73cbb731521e8fce (patch) | |
| tree | 333ad3ffd9007308b57588bfce68ab22673a434b /kernel/indtypes.ml | |
| parent | 55b5299ec4c4812e22a5125356332e2a1aedfd56 (diff) | |
Suppression StronglyClassical, StronglyConstructive devient plus concretement ImpredicativeSet
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4828 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index ba7389915d..c5b2989552 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -151,8 +151,8 @@ let small_unit constrsinfos = let enforce_type_constructor env arsort smax cst = match smax, arsort with | Type uc, Type ua -> enforce_geq ua uc cst - | Type uc, Prop Pos when engagement env <> Some StronglyConstructive -> - error "Large inductive types must be in Type, unless option -strongly-constructive is set" + | Type uc, Prop Pos when engagement env <> Some ImpredicativeSet -> + error "Large non-propositional inductive types must be in Type" | _,_ -> cst let type_one_constructor env_ar_par params arsort c = |