diff options
author | 2003-03-31 21:18:53 +0000 | |
---|---|---|
committer | 2003-03-31 21:18:53 +0000 | |
commit | 00608fac2d8e217232d5f2ddd28a43971bf259b7 (patch) | |
tree | 0bd65009594d83c85a6e3f4f5bf8a0e77e0b4fc6 /tactics/tacticals.ml | |
parent | ca29570a25be8f9b8757399f5f0b72b4a9bd5e43 (diff) |
Ajout d'un message à FailTac
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3825 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacticals.ml')
-rw-r--r-- | tactics/tacticals.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 08004e971..f6be87bcf 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -85,7 +85,7 @@ let tclLAST_HYP = tclNTH_HYP 1 let tclTRY_sign (tac : constr->tactic) sign gl = let rec arec = function - | [] -> tclFAIL 0 + | [] -> tclFAIL 0 "no applicable hypothesis" | [s] -> tac (mkVar s) (*added in order to get useful error messages *) | (s::sl) -> tclORELSE (tac (mkVar s)) (arec sl) in @@ -97,7 +97,7 @@ let tclTRY_HYPS (tac : constr->tactic) gl = (* OR-branch *) let tryClauses tac = let rec firstrec = function - | [] -> tclFAIL 0 + | [] -> tclFAIL 0 "no applicable hypothesis" | [cls] -> tac cls (* added in order to get a useful error message *) | cls::tl -> (tclORELSE (tac cls) (firstrec tl)) in |