diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-23 15:13:07 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-23 15:13:07 +0000 |
commit | dc2e676c9cdedea43805c21a4b3203832a985f95 (patch) | |
tree | 849760ef13d1460d603ce9436c244922e13a6080 /pretyping/cases.mli | |
parent | a023ff2e48aaf7ebfb15e10dc7cdb80ab2991e8e (diff) |
amelioration des messages d'erreurs vis a vis des evars
ajout automatique des chemins vers les sources au moment du Drop
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1761 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cases.mli')
-rw-r--r-- | pretyping/cases.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index a7dddb5cb..7e5fda903 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -35,7 +35,7 @@ val branch_scheme : env -> 'a evar_defs -> bool -> inductive_family -> constr array val pred_case_ml_onebranch : loc -> env -> 'c evar_map -> bool -> - inductive_type -> int * constr * constr -> constr + inductive_type -> int * unsafe_judgment -> constr (* Compilation of pattern-matching. *) |