diff options
| author | filliatr | 1999-08-27 16:58:43 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-27 16:58:43 +0000 |
| commit | b69aafe250ca1fbb21eb2f318873fe65856511c0 (patch) | |
| tree | 0a44fc61206e9abe1d6863ac7dd8e282808cd6c1 /kernel/indtypes.ml | |
| parent | dd279791aca531cd0f38ce79b675c68e08a4ff63 (diff) | |
suppression champs inutiles dans constantes et inductifs; verification definitions inductives
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@29 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml new file mode 100644 index 0000000000..82da97329a --- /dev/null +++ b/kernel/indtypes.ml @@ -0,0 +1,13 @@ + +(* $Id$ *) + +open Inductive +open Environ +open Reduction + +let mind_check_arities env mie = + let check_arity id c = + if not (is_arity env c) then raise (InductiveError (NotAnArity id)) + in + List.iter (fun (id,ar,_,_) -> check_arity id ar) mie.mind_entry_inds + |