chore(tests/lean): adjust tests to reflect recent changes
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
0660cdbdb7
commit
fc4c6454a7
8 changed files with 14 additions and 12 deletions
Binary file not shown.
|
@ -1 +1 @@
|
||||||
check fun (A A' : (Type U')) (H : A = A'), symm H
|
check fun (A A' : (Type U)) (H : A = A'), symm H
|
||||||
|
|
|
@ -1,8 +1,8 @@
|
||||||
Set: pp::colors
|
Set: pp::colors
|
||||||
Set: pp::unicode
|
Set: pp::unicode
|
||||||
Failed to solve
|
Failed to solve
|
||||||
A : (Type U'), A' : (Type U') ⊢ ?M::4 ≺ (Type U')
|
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
|
bug.lean:1:36: Type of argument 1 must be convertible to the expected type in the application of
|
||||||
@eq
|
@eq
|
||||||
with arguments:
|
with arguments:
|
||||||
?M::0
|
?M::0
|
||||||
|
|
|
@ -1,8 +1,9 @@
|
||||||
|
import heq
|
||||||
variable Vector : Nat -> Type
|
variable Vector : Nat -> Type
|
||||||
variable n : Nat
|
variable n : Nat
|
||||||
variable v1 : Vector n
|
variable v1 : Vector n
|
||||||
variable v2 : Vector (n + 0)
|
variable v2 : Vector (n + 0)
|
||||||
variable v3 : Vector (0 + n)
|
variable v3 : Vector (0 + n)
|
||||||
axiom cast {A B : TypeU} : A = B -> A -> B
|
axiom H1 : v1 == v2
|
||||||
axiom H1 : v1 = cast (congr2 Vector (Nat::add_zeror n)) v2
|
axiom H2 : v2 == v3
|
||||||
axiom H2 : v2 = cast (congr2 Vector (Nat::add_comm 0 n)) v3
|
check htrans H1 H2
|
||||||
|
|
|
@ -1,10 +1,11 @@
|
||||||
Set: pp::colors
|
Set: pp::colors
|
||||||
Set: pp::unicode
|
Set: pp::unicode
|
||||||
|
Imported 'heq'
|
||||||
Assumed: Vector
|
Assumed: Vector
|
||||||
Assumed: n
|
Assumed: n
|
||||||
Assumed: v1
|
Assumed: v1
|
||||||
Assumed: v2
|
Assumed: v2
|
||||||
Assumed: v3
|
Assumed: v3
|
||||||
Assumed: cast
|
|
||||||
Assumed: H1
|
Assumed: H1
|
||||||
Assumed: H2
|
Assumed: H2
|
||||||
|
htrans H1 H2 : v1 == v3
|
||||||
|
|
|
@ -1,8 +1,8 @@
|
||||||
Set: pp::colors
|
Set: pp::colors
|
||||||
Set: pp::unicode
|
Set: pp::unicode
|
||||||
Imported 'find'
|
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 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 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 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: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
|
find.lean:4:0: error: executing external script (/home/leo/projects/lean/build/debug/shell/find.lua:18), unfinished capture
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
⊤
|
⊤
|
||||||
Assumed: a
|
Assumed: a
|
||||||
a ⊕ a ⊕ 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
|
Proved: EM2
|
||||||
EM2 : ∀ a : Bool, a ∨ ¬ a
|
EM2 : ∀ a : Bool, a ∨ ¬ a
|
||||||
EM2 a : a ∨ ¬ a
|
EM2 a : a ∨ ¬ a
|
||||||
|
|
|
@ -10,7 +10,7 @@
|
||||||
Assumed: EqNice
|
Assumed: EqNice
|
||||||
@EqNice N n1 n2
|
@EqNice N n1 n2
|
||||||
@f N n1 n2 : N
|
@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
|
@f N n1 n2
|
||||||
Assumed: a
|
Assumed: a
|
||||||
Assumed: b
|
Assumed: b
|
||||||
|
|
Loading…
Reference in a new issue