File tree Expand file tree Collapse file tree 1 file changed +36
-0
lines changed Expand file tree Collapse file tree 1 file changed +36
-0
lines changed Original file line number Diff line number Diff line change 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+
You can’t perform that action at this time.
0 commit comments