diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-28 16:36:49 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-28 16:36:49 +0000 |
| commit | a9fe19e2fa8f2c8b9d06f2053e0f08cf52317705 (patch) | |
| tree | 7ec0d0105203ef7bf762d317f81a280a260d840b | |
| parent | 9682c61c1651087b4a68147e378610f0c2451d1e (diff) | |
Message inductive large
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4730 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/indtypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index d009a668f..ba7389915 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -152,7 +152,7 @@ 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 in Set need option -strongly-constructive" + error "Large inductive types must be in Type, unless option -strongly-constructive is set" | _,_ -> cst let type_one_constructor env_ar_par params arsort c = |