diff options
| -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 4ad85af9a8..0874d56e5d 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 |