diff options
| author | sacerdot | 2004-10-21 09:34:51 +0000 |
|---|---|---|
| committer | sacerdot | 2004-10-21 09:34:51 +0000 |
| commit | ab3a1293a77b390381753177acd8c2041501794a (patch) | |
| tree | d8b7c1ab4aaa2b33a056a83c183840b421409939 | |
| parent | b89a2bbbc644e240b98150bfb82d3c1e950bd40f (diff) | |
Error message improved.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6248 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/setoid_replace.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index a1873770ba..e80783aae0 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -714,9 +714,9 @@ let unify_relation_carrier_with_type env rel t = let raise_error quantifiers_no = errorlabstrm "New Morphism" (str "One morphism argument or its output has type " ++ prterm t ++ - str " but the signature requires an argument of type (" ++ - prterm rel.rel_a ++ prvect_with_sep pr_spc (fun _ -> str "?") - (Array.make quantifiers_no 0)) in + str " but the signature requires an argument of type \"" ++ + prterm rel.rel_a ++ str " " ++ prvect_with_sep pr_spc (fun _ -> str "?") + (Array.make quantifiers_no 0) ++ str "\"") in let args = match kind_of_term t with App (he',args') -> |