aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/ssrtest/elim_pattern.v
diff options
context:
space:
mode:
authorEnrico Tassi2018-04-12 09:54:36 +0200
committerEnrico Tassi2018-04-12 09:54:36 +0200
commitd54b8dff818f0b1218df14cfb2b813da93154fa9 (patch)
treeb89257dd429d6d57c7efbe6403b9a231392b2a8b /mathcomp/ssrtest/elim_pattern.v
parentc17414bbef21bb3d0b96ee004c29ef7d56e55e2e (diff)
remove ssrtest: it now belongs to Coq
Diffstat (limited to 'mathcomp/ssrtest/elim_pattern.v')
-rw-r--r--mathcomp/ssrtest/elim_pattern.v19
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.
-