diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-30 23:11:06 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-30 23:11:06 +0000 |
| commit | d0f7823ee36cf443bd1c9632c272b54816599f99 (patch) | |
| tree | d2e8c2a77ee25ac7bf2296bef38de03b6a3955e1 /pretyping | |
| parent | 5545e216c21c13ed1cd5560af0b373796f40d0c4 (diff) | |
Gestion des erreurs pour nombre incorrect d'argument des constructeurs (et de
l'inductif si clause "in I ...")
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7960 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.mli | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index 7da7abcce..da9dce2a6 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -23,6 +23,7 @@ type pattern_matching_error = | BadPattern of constructor * constr | BadConstructor of constructor * inductive | WrongNumargConstructor of constructor * int + | WrongNumargInductive of inductive * int | WrongPredicateArity of constr * constr * constr | NeedsInversion of constr * constr | UnusedClause of cases_pattern list @@ -31,6 +32,10 @@ type pattern_matching_error = exception PatternMatchingError of env * pattern_matching_error +val error_wrong_numarg_constructor_loc : loc -> env -> constructor -> int -> 'a + +val error_wrong_numarg_inductive_loc : loc -> env -> inductive -> int -> 'a + (*s Used for old cases in pretyping *) val branch_scheme : |