chore(tests/lean): delete old tests

This commit is contained in:
Leonardo de Moura 2016-09-19 15:53:43 -07:00
parent f1a244b858
commit 186716cbcd
4 changed files with 0 additions and 137 deletions

View file

@ -1,10 +0,0 @@
open nat
theorem simple (a : nat) : a ≥ 0 :=
zero_le a
print simple
reveal simple
print simple

View file

@ -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

View file

@ -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

View file

@ -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)
-----------