diff options
| author | Enrico Tassi | 2018-04-12 09:54:36 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-04-12 09:54:36 +0200 |
| commit | d54b8dff818f0b1218df14cfb2b813da93154fa9 (patch) | |
| tree | b89257dd429d6d57c7efbe6403b9a231392b2a8b /mathcomp/ssrtest/elim_pattern.v | |
| parent | c17414bbef21bb3d0b96ee004c29ef7d56e55e2e (diff) | |
remove ssrtest: it now belongs to Coq
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. - |
