Skip to content

Commit 6fac6fe

Browse files
committed
removed 'easy' to 'done' replacements
1 parent 2a8e123 commit 6fac6fe

File tree

1 file changed

+36
-0
lines changed

1 file changed

+36
-0
lines changed

misc/stdpp_tactics.v

Lines changed: 36 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,36 @@
1+
From Coq Require Export RelationClasses Relation_Definitions Lia.
2+
3+
Module FastDoneTactic.
4+
5+
Lemma not_symmetry {A} `{R : relation A, !Symmetric R} x y : ~ R x y -> ~ R y x.
6+
Proof. intuition. Qed.
7+
8+
Ltac fast_done :=
9+
solve
10+
[ eassumption
11+
| symmetry; eassumption
12+
| apply not_symmetry; eassumption
13+
| reflexivity ].
14+
Tactic Notation "fast_by" tactic(tac) :=
15+
tac; fast_done.
16+
17+
End FastDoneTactic.
18+
19+
Import FastDoneTactic.
20+
21+
Ltac done :=
22+
solve
23+
[ repeat first
24+
[ fast_done
25+
| solve [trivial]
26+
(* All the tactics below will introduce themselves anyway, or make no sense
27+
for goals of product type. So this is a good place for us to do it. *)
28+
| progress intros
29+
| solve [symmetry; trivial]
30+
| solve [apply not_symmetry; trivial]
31+
| discriminate
32+
| contradiction
33+
| split
34+
| match goal with H : ~ _ |- _ => case H; clear H; fast_done end ]
35+
].
36+

0 commit comments

Comments
 (0)