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/elim_pattern.v | |
| parent | 32496ef57916dc9fc24b53f52832ef29cf206468 (diff) | |
| parent | d54b8dff818f0b1218df14cfb2b813da93154fa9 (diff) | |
Merge remote-tracking branch 'origin/pr/189'
Diffstat (limited to 'mathcomp/ssrtest/elim_pattern.v')
| -rw-r--r-- | mathcomp/ssrtest/elim_pattern.v | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/mathcomp/ssrtest/elim_pattern.v b/mathcomp/ssrtest/elim_pattern.v deleted file mode 100644 index 24bd0fb..0000000 --- a/mathcomp/ssrtest/elim_pattern.v +++ /dev/null @@ -1,19 +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 eqtype ssrnat. -Axiom daemon : False. Ltac myadmit := case: daemon. - -Lemma test x : (x == x) = (x + x.+1 == 2 * x + 1). -case: (X in _ = X) / eqP => _. -match goal with |- (x == x) = true => myadmit end. -match goal with |- (x == x) = false => myadmit end. -Qed. - -Lemma test1 x : (x == x) = (x + x.+1 == 2 * x + 1). -elim: (x in RHS). -match goal with |- (x == x) = _ => myadmit end. -match goal with |- forall n, (x == x) = _ -> (x == x) = _ => myadmit end. -Qed. - |