diff options
| author |  notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-26 18:40:45 +0000 |
|---|---|---|
| committer | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-26 18:40:45 +0000 |
| commit | 940f383ce173c178b9dd1a1d2890c3ae8198e940 (patch) | |
| tree | ab25ab74723f9d41fa91e0954ee776a386beaeef /tactics | |
| parent | 48178a09bce619ba8aa74578debff9728e319c3b (diff) | |
Affichage d'un message d'erreur losque qu'une relation n'a pas été déclarée (Setoid_replace.find_relation_class) (ferme le bug #1259)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9289 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/setoid_replace.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index 16c8b0f1f..a79d13ee4 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -271,7 +271,9 @@ let find_relation_class rel = match kind_of_term rel with | App (eq,[|ty|]) when eq_constr eq (Lazy.force coq_eq) -> Leibniz (Some ty) | _ when eq_constr rel (Lazy.force coq_eq) -> Leibniz None - | _ -> raise Not_found + | _ -> errorlabstrm + "Setoid_replace.find_relation_class" + (pr_lconstr rel ++ spc() ++ str "is not a registered relation.") let coq_iff_relation = lazy (find_relation_class (Lazy.force coq_iff)) let coq_impl_relation = lazy (find_relation_class (Lazy.force coq_impl)) |