diff options
| author | Enrico Tassi | 2015-03-09 11:07:53 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2015-03-09 11:24:38 +0100 |
| commit | fc84c27eac260dffd8f2fb1cb56d599f1e3486d9 (patch) | |
| tree | c16205f1637c80833a4c4598993c29fa0fd8c373 /mathcomp/ssrtest/view_case.v | |
Initial commit
Diffstat (limited to 'mathcomp/ssrtest/view_case.v')
| -rw-r--r-- | mathcomp/ssrtest/view_case.v | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/mathcomp/ssrtest/view_case.v b/mathcomp/ssrtest/view_case.v new file mode 100644 index 0000000..f6de3df --- /dev/null +++ b/mathcomp/ssrtest/view_case.v @@ -0,0 +1,18 @@ +Require Import ssreflect ssrbool ssrnat eqtype seq fintype zmodp. + +Axiom P : forall T, seq T -> Prop. + +Goal (forall T (s : seq T), P _ s). +move=> T s. +elim: s => [| x /lastP [| s] IH]. +Admitted. + +Goal forall x : 'I_1, x = 0 :> nat. +move=> /ord1 -> /=; exact: refl_equal. +Qed. + +Goal forall x : 'I_1, x = 0 :> nat. +move=> x. +move=> /ord1 -> in x |- *. +exact: refl_equal. +Qed. |