diff options
| author | Enrico Tassi | 2016-02-25 15:20:35 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2016-02-25 15:20:35 +0100 |
| commit | fb9ccea7f34b7fcd01a5f0f97b5c52b188154f5b (patch) | |
| tree | 58f719d44d005779176fd26ffadb77d007d9a249 /mathcomp/ssrtest | |
| parent | ef79db4628963c46ae66fe25f3e2aeea6db8c2e7 (diff) | |
ssrpattern: compose nicely with Tactic Notation
Diffstat (limited to 'mathcomp/ssrtest')
| -rw-r--r-- | mathcomp/ssrtest/Make | 1 | ||||
| -rw-r--r-- | mathcomp/ssrtest/tacnotationpattern.v | 14 |
2 files changed, 15 insertions, 0 deletions
diff --git a/mathcomp/ssrtest/Make b/mathcomp/ssrtest/Make index ab4c666..716dc4a 100644 --- a/mathcomp/ssrtest/Make +++ b/mathcomp/ssrtest/Make @@ -39,6 +39,7 @@ view_case.v wlogletin.v wlog_suff.v wlong_intro.v +tacnotationpattern.v -R ../theories Ssreflect -I ../src/ diff --git a/mathcomp/ssrtest/tacnotationpattern.v b/mathcomp/ssrtest/tacnotationpattern.v new file mode 100644 index 0000000..13de4bc --- /dev/null +++ b/mathcomp/ssrtest/tacnotationpattern.v @@ -0,0 +1,14 @@ +Require Import mathcomp.ssreflect.ssreflect. +Tactic Notation "at" ssrpatternarg(p) tactic(t) + := + ssrpattern p; let top := fresh in intro top; + t top; try unfold top in * |- *; try clear top. + +Goal forall x y, x + y = 4. +intros. +at [RHS] (fun top => remember top as E eqn:E_def). +match goal with +| |- x + y = E => idtac +| |- _ => fail +end. +Admitted. |