diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-21 23:51:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-21 23:51:20 +0000 |
| commit | 170ada5b9bf163a3274de2a2f6186262013cca09 (patch) | |
| tree | 5673f6fab5f73676513a06d6b9121b06ff73cc12 /toplevel | |
| parent | cd20d6508c910f2069864bdde885b63d0d036939 (diff) | |
Amélioration message Cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2240 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index fb702de0f..b0da5c41b 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -546,6 +546,7 @@ let explain_non_exhaustive env pats = let explain_cannot_infer_predicate env typs = let pr_branch (cstr,typ) = + let cstr,_ = decompose_app cstr in [< 'sTR "For "; prterm_env env cstr; 'sTR " : "; prterm_env env typ >] in [<'sTR "Unable to unify the types found in the branches:"; |