diff options
| author | Enrico Tassi | 2018-04-20 10:34:04 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-04-20 10:34:04 +0200 |
| commit | 09bebb67443c0512e01d2c32f4207e09e93f4956 (patch) | |
| tree | 1b88236cab5e750861008e44014ef6114b4010dc /mathcomp/ssrtest/gen_pattern.v | |
| parent | 32496ef57916dc9fc24b53f52832ef29cf206468 (diff) | |
| parent | d54b8dff818f0b1218df14cfb2b813da93154fa9 (diff) | |
Merge remote-tracking branch 'origin/pr/189'
Diffstat (limited to 'mathcomp/ssrtest/gen_pattern.v')
| -rw-r--r-- | mathcomp/ssrtest/gen_pattern.v | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/mathcomp/ssrtest/gen_pattern.v b/mathcomp/ssrtest/gen_pattern.v deleted file mode 100644 index eb4aee8..0000000 --- a/mathcomp/ssrtest/gen_pattern.v +++ /dev/null @@ -1,24 +0,0 @@ -(* (c) Copyright 2006-2016 Microsoft Corporation and Inria. *) -(* Distributed under the terms of CeCILL-B. *) -Require Import mathcomp.ssreflect.ssreflect. -From mathcomp -Require Import ssrbool ssrnat. - -Notation "( a 'in' c )" := (a + c) (only parsing) : myscope. -Delimit Scope myscope with myscope. - -Notation "( a 'in' c )" := (a + c) (only parsing). - -Lemma foo x y : x + x.+1 = x.+1 + y. -move: {x} (x.+1) {1}x y (x.+1 in RHS). - match goal with |- forall a b c d, b + a = d + c => idtac end. -Admitted. - -Lemma bar x y : x + x.+1 = x.+1 + y. -move E: ((x.+1 in y)) => w. - match goal with |- x + x.+1 = w => rewrite -{w}E end. -move E: (x.+1 in y)%myscope => w. - match goal with |- x + x.+1 = w => rewrite -{w}E end. -move E: ((x + y).+1 as RHS) => w. - match goal with |- x + x.+1 = w => rewrite -{}E -addSn end. -Admitted.
\ No newline at end of file |
