File tree 1 file changed +36
-0
lines changed
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