diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-14 18:22:55 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-14 18:22:55 +0000 |
| commit | 2814ee0f33045842b7ebfb5f36629062e1ad511d (patch) | |
| tree | df74944f9c46b2a941853ea2225a18630cc4f983 | |
| parent | f2a0a590ebe2840ae74649075af4b946de33c045 (diff) | |
Pas fier
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8717 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 4ad85af9a..0874d56e5 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -793,7 +793,7 @@ let prepare_unif_pb typ cs = let typ' = if noccur_between_without_evar 1 n typ then lift (-n) typ else (* TODO4-1 *) - error "Inference of annotation not yet implemented in this case" in + error "Unable to infer return clause of this pattern-matching problem" in let args = extended_rel_list (-n) cs.cs_args in let ci = applist (mkConstruct cs.cs_cstr, cs.cs_params@args) in |