diff options
| author | filliatr | 2000-12-15 14:26:58 +0000 |
|---|---|---|
| committer | filliatr | 2000-12-15 14:26:58 +0000 |
| commit | d608222a594861efbae01e71018b8dcfc143e09a (patch) | |
| tree | dbcd4e2ac871b95c15471de3939873bc3684b7e7 /kernel/safe_typing.ml | |
| parent | 7872cda8545ba82827d34e6940b83f5809990f9d (diff) | |
- suppression mind_extract_params
- contraintes univers parametres inductifs prises en compte
- exception UniverseInconsistency donne un message
"Error: Universe Inconsistency"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1125 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index a6934b9dc0..925ca9bf0f 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -470,7 +470,7 @@ let add_mind sp mie env = (ind'::inds, Constraint.union cst cst')) mie.mind_entry_inds params_arity_list - ([],Constraint.empty) in + ([],cst) in (* Finally, we build the inductive packet and push it to env *) let kind = kind_of_path sp in |