chore(tests/lean): adjust tests to reflect recent changes

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-01-17 14:36:55 -08:00
parent 0660cdbdb7
commit fc4c6454a7
8 changed files with 14 additions and 12 deletions

Binary file not shown.

View file

@ -1 +1 @@
check fun (A A' : (Type U')) (H : A = A'), symm H
check fun (A A' : (Type U)) (H : A = A'), symm H

View file

@ -1,8 +1,8 @@
Set: pp::colors
Set: pp::unicode
Failed to solve
A : (Type U'), A' : (Type U') ⊢ ?M::4 ≺ (Type U')
bug.lean:1:37: Type of argument 1 must be convertible to the expected type in the application of
A : (Type U), A' : (Type U) ⊢ ?M::4 ≺ (Type U)
bug.lean:1:36: Type of argument 1 must be convertible to the expected type in the application of
@eq
with arguments:
?M::0

View file

@ -1,8 +1,9 @@
import heq
variable Vector : Nat -> Type
variable n : Nat
variable v1 : Vector n
variable v2 : Vector (n + 0)
variable v3 : Vector (0 + n)
axiom cast {A B : TypeU} : A = B -> A -> B
axiom H1 : v1 = cast (congr2 Vector (Nat::add_zeror n)) v2
axiom H2 : v2 = cast (congr2 Vector (Nat::add_comm 0 n)) v3
axiom H1 : v1 == v2
axiom H2 : v2 == v3
check htrans H1 H2

View file

@ -1,10 +1,11 @@
Set: pp::colors
Set: pp::unicode
Imported 'heq'
Assumed: Vector
Assumed: n
Assumed: v1
Assumed: v2
Assumed: v3
Assumed: cast
Assumed: H1
Assumed: H2
htrans H1 H2 : v1 == v3

View file

@ -1,8 +1,8 @@
Set: pp::colors
Set: pp::unicode
Imported 'find'
theorem congr1 {A : TypeU'} {B : A → TypeU'} {f g : ∀ x : A, B x} (a : A) (H : f = g) : f a = g a
theorem congr2 {A B : TypeU'} {a b : A} (f : A → B) (H : a = b) : f a = f b
theorem congr {A B : TypeU'} {f g : A → B} {a b : A} (H1 : f = g) (H2 : a = b) : f a = g b
theorem congr1 {A : TypeU} {B : A → TypeU} {f g : ∀ x : A, B x} (a : A) (H : f = g) : f a = g a
theorem congr2 {A B : TypeU} {a b : A} (f : A → B) (H : a = b) : f a = f b
theorem congr {A B : TypeU} {f g : A → B} {a b : A} (H1 : f = g) (H2 : a = b) : f a = g b
find.lean:3:0: error: executing external script (/home/leo/projects/lean/build/debug/shell/find.lua:24), no object name in the environment matches the regular expression 'foo'
find.lean:4:0: error: executing external script (/home/leo/projects/lean/build/debug/shell/find.lua:18), unfinished capture

View file

@ -6,7 +6,7 @@
Assumed: a
a ⊕ a ⊕ a
@subst : ∀ (A : TypeU') (a b : A) (P : A → Bool), P a → a = b → P b
@subst : ∀ (A : TypeU) (a b : A) (P : A → Bool), P a → a = b → P b
Proved: EM2
EM2 : ∀ a : Bool, a ¬ a
EM2 a : a ¬ a

View file

@ -10,7 +10,7 @@
Assumed: EqNice
@EqNice N n1 n2
@f N n1 n2 : N
@congr : ∀ (A B : TypeU') (f g : A → B) (a b : A), @eq (A → B) f g → @eq A a b → @eq B (f a) (g b)
@congr : ∀ (A B : TypeU) (f g : A → B) (a b : A), @eq (A → B) f g → @eq A a b → @eq B (f a) (g b)
@f N n1 n2
Assumed: a
Assumed: b