diff options
| author | Gaëtan Gilbert | 2019-10-29 23:55:31 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-29 23:55:31 +0100 |
| commit | 99ed41bf8d6d72fc4d5a13d231663bbf48e9ec25 (patch) | |
| tree | 44f6c91dd445aededf68a0567de7836c7a44a906 /theories | |
| parent | e9dddcb2b5297f2e601a2e2d65a131ee5fde19e4 (diff) | |
| parent | b213691875112530a8d491caff942a761c6508ea (diff) | |
Merge PR #10966: `assert_succeeds`&`assert_fails`: multisuccess fix
Reviewed-by: SkySkimmer
Reviewed-by: Zimmi48
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Init/Tactics.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v index ad6f1765a3..6de9f8f88d 100644 --- a/theories/Init/Tactics.v +++ b/theories/Init/Tactics.v @@ -325,9 +325,9 @@ Ltac time_constr tac := (** Useful combinators *) Ltac assert_fails tac := - tryif tac then fail 0 tac "succeeds" else idtac. + tryif (once tac) then gfail 0 tac "succeeds" else idtac. Ltac assert_succeeds tac := - tryif (assert_fails tac) then fail 0 tac "fails" else idtac. + tryif (assert_fails tac) then gfail 0 tac "fails" else idtac. Tactic Notation "assert_succeeds" tactic3(tac) := assert_succeeds tac. Tactic Notation "assert_fails" tactic3(tac) := |