diff options
author | Jason Gross <jgross@mit.edu> | 2018-12-04 15:37:51 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2018-12-04 15:37:51 -0500 |
commit | e6044c2fe0cc7b5662076bb1f26342a4d590132e (patch) | |
tree | ab67a9fff8bee7744cdc444f79ae197310c733f3 /src/Util/Tactics/DestructHead.v | |
parent | b60db17b237fc5df0e1606d55d7056e9e11b10ea (diff) |
Add inversion_clear tactics
Diffstat (limited to 'src/Util/Tactics/DestructHead.v')
-rw-r--r-- | src/Util/Tactics/DestructHead.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Util/Tactics/DestructHead.v b/src/Util/Tactics/DestructHead.v index c5c8a86bc..bfe615f10 100644 --- a/src/Util/Tactics/DestructHead.v +++ b/src/Util/Tactics/DestructHead.v @@ -15,6 +15,10 @@ Ltac inversion_head T := inversion_all_matches ltac:(destruct_head_matcher T). Ltac inversion_one_head T := inversion_one_match ltac:(destruct_head_matcher T). Ltac inversion_head' T := inversion_all_matches' ltac:(destruct_head_matcher T). +Ltac inversion_clear_head T := inversion_clear_all_matches ltac:(destruct_head_matcher T). +Ltac inversion_clear_one_head T := inversion_clear_one_match ltac:(destruct_head_matcher T). +Ltac inversion_clear_head' T := inversion_clear_all_matches' ltac:(destruct_head_matcher T). + Ltac head_hnf_matcher T HT := match head_hnf HT with @@ -28,6 +32,10 @@ Ltac inversion_head_hnf T := inversion_all_matches ltac:(head_hnf_matcher T). Ltac inversion_one_head_hnf T := inversion_one_match ltac:(head_hnf_matcher T). Ltac inversion_head_hnf' T := inversion_all_matches' ltac:(head_hnf_matcher T). +Ltac inversion_clear_head_hnf T := inversion_clear_all_matches ltac:(head_hnf_matcher T). +Ltac inversion_clear_one_head_hnf T := inversion_clear_one_match ltac:(head_hnf_matcher T). +Ltac inversion_clear_head_hnf' T := inversion_clear_all_matches' ltac:(head_hnf_matcher T). + (** Faster versions for some common connectives *) Ltac destruct_one_head'_ex := match goal with H : ex _ |- _ => destruct H end. Ltac destruct_one_head_ex := destruct_one_head'_ex; simpl in *. |