chore(tests/lean): delete old tests
This commit is contained in:
parent
f1a244b858
commit
186716cbcd
4 changed files with 0 additions and 137 deletions
|
|
@ -1,10 +0,0 @@
|
|||
open nat
|
||||
|
||||
theorem simple (a : nat) : a ≥ 0 :=
|
||||
zero_le a
|
||||
|
||||
print simple
|
||||
|
||||
reveal simple
|
||||
|
||||
print simple
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
theorem simple : ∀ (a : ℕ), a ≥ 0
|
||||
'simple' is still in the theorem queue, use command 'reveal simple' to access its definition.
|
||||
theorem simple : ∀ (a : ℕ), a ≥ 0 :=
|
||||
zero_le
|
||||
|
|
@ -1,38 +0,0 @@
|
|||
--
|
||||
open tactic
|
||||
|
||||
inductive vector (A : Type) : nat → Type
|
||||
| nil {} : vector 0
|
||||
| cons : Π {n}, A -> vector n -> vector (nat.succ n)
|
||||
|
||||
definition vmap {A B : Type} (f : A -> B) : Π {n}, vector A n -> vector B n
|
||||
| vmap vector.nil := vector.nil
|
||||
| vmap (vector.cons x xs) := vector.cons (f x) (vmap xs)
|
||||
|
||||
definition vappend {A} : Π {n m}, vector A n -> vector A m -> vector A (m + n)
|
||||
| vappend vector.nil vector.nil := vector.nil
|
||||
| vappend vector.nil (vector.cons x xs) := vector.cons x xs
|
||||
| vappend (vector.cons x xs) vector.nil := vector.cons x (vappend xs vector.nil)
|
||||
| vappend (vector.cons x xs) (vector.cons y ys) := vector.cons x (vappend xs (vector.cons y ys))
|
||||
|
||||
axiom Sorry : ∀ A, A
|
||||
|
||||
theorem vappend_assoc :
|
||||
Π {A : Type} {n m k : nat} (v1 : vector A n) (v2 : vector A m) (v3 : vector A k),
|
||||
vappend (vappend v1 v2) v3 == vappend v1 (vappend v2 v3) :=
|
||||
by do
|
||||
intros,
|
||||
-- should not unfold anything since term does not contains any of the patterns above.
|
||||
unfold [`vappend],
|
||||
trace_state, trace "-----------",
|
||||
get_local `v1 >>= cases,
|
||||
trace_state, trace "-----------",
|
||||
-- should not unfold anything since term does not contains any of the patterns above.
|
||||
unfold [`vappend],
|
||||
trace_state, trace "-----------",
|
||||
get_local `v2 >>= cases,
|
||||
trace_state, trace "-----------",
|
||||
-- now it should unfold
|
||||
unfold [`vappend],
|
||||
trace_state, trace "-----------",
|
||||
repeat $ mk_const `Sorry >>= apply
|
||||
|
|
@ -1,85 +0,0 @@
|
|||
A : Type,
|
||||
n m k : ℕ,
|
||||
v1 : vector A n,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k
|
||||
⊢ vappend (vappend v1 v2) v3 == vappend v1 (vappend v2 v3)
|
||||
-----------
|
||||
A : Type,
|
||||
m k : ℕ,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k,
|
||||
n : ℕ
|
||||
⊢ vappend (vappend vector.nil v2) v3 == vappend vector.nil (vappend v2 v3)
|
||||
|
||||
A : Type,
|
||||
m k : ℕ,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k,
|
||||
n n : ℕ,
|
||||
a : A,
|
||||
a : vector A n
|
||||
⊢ vappend (vappend (vector.cons a a_1) v2) v3 == vappend (vector.cons a a_1) (vappend v2 v3)
|
||||
-----------
|
||||
A : Type,
|
||||
m k : ℕ,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k,
|
||||
n : ℕ
|
||||
⊢ vappend (vappend vector.nil v2) v3 == vappend vector.nil (vappend v2 v3)
|
||||
|
||||
A : Type,
|
||||
m k : ℕ,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k,
|
||||
n n : ℕ,
|
||||
a : A,
|
||||
a : vector A n
|
||||
⊢ vappend (vappend (vector.cons a a_1) v2) v3 == vappend (vector.cons a a_1) (vappend v2 v3)
|
||||
-----------
|
||||
A : Type,
|
||||
k : ℕ,
|
||||
v3 : vector A k,
|
||||
n m : ℕ
|
||||
⊢ vappend (vappend vector.nil vector.nil) v3 == vappend vector.nil (vappend vector.nil v3)
|
||||
|
||||
A : Type,
|
||||
k : ℕ,
|
||||
v3 : vector A k,
|
||||
n m n : ℕ,
|
||||
a : A,
|
||||
a : vector A n
|
||||
⊢ vappend (vappend vector.nil (vector.cons a a_1)) v3 == vappend vector.nil (vappend (vector.cons a a_1) v3)
|
||||
|
||||
A : Type,
|
||||
m k : ℕ,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k,
|
||||
n n : ℕ,
|
||||
a : A,
|
||||
a : vector A n
|
||||
⊢ vappend (vappend (vector.cons a a_1) v2) v3 == vappend (vector.cons a a_1) (vappend v2 v3)
|
||||
-----------
|
||||
A : Type,
|
||||
k : ℕ,
|
||||
v3 : vector A k,
|
||||
n m : ℕ
|
||||
⊢ vappend vector.nil v3 == vappend vector.nil (vappend vector.nil v3)
|
||||
|
||||
A : Type,
|
||||
k : ℕ,
|
||||
v3 : vector A k,
|
||||
n m n : ℕ,
|
||||
a : A,
|
||||
a : vector A n
|
||||
⊢ vappend (vappend vector.nil (vector.cons a a_1)) v3 == vappend vector.nil (vappend (vector.cons a a_1) v3)
|
||||
|
||||
A : Type,
|
||||
m k : ℕ,
|
||||
v2 : vector A m,
|
||||
v3 : vector A k,
|
||||
n n : ℕ,
|
||||
a : A,
|
||||
a : vector A n
|
||||
⊢ vappend (vappend (vector.cons a a_1) v2) v3 == vappend (vector.cons a a_1) (vappend v2 v3)
|
||||
-----------
|
||||
Loading…
Add table
Reference in a new issue