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/indtypes.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/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index f10e59c9c7..2307a405f5 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -74,8 +74,7 @@ let mind_check_names mie = declaration, and checks that they are all present (and all the same) for all the given types. *) -let mind_extract_params n c = - let (l,c') = decompose_prod_n_assum n c in (l,c') +let mind_extract_params = decompose_prod_n_assum let mind_check_arities env mie = let check_arity id c = |