fix(tests/lean): to reflect changes in the standard library

This commit is contained in:
Leonardo de Moura 2014-11-03 18:44:36 -08:00
parent d8a616fa70
commit ea7470375f
5 changed files with 3 additions and 48 deletions

View file

@ -1,17 +0,0 @@
VISIT calc_assistant.lean
SYNC 13
import logic algebra.category.basic
open eq eq.ops category functor natural_transformation
variables {obC obD : Type} {C : category obC} {D : category obD} {F G H : C ⇒ D}
protected definition compose2 (η : G ⟹ H) (θ : F ⟹ G) : F ⟹ H :=
natural_transformation.mk
(λ a, η a ∘ θ a)
(λ a b f, calc
H f ∘ (η a ∘ θ a) = (H f ∘ η a) ∘ θ a : assoc
... = (η b ∘ G f) ∘ θ a : naturality η f
... = η b ∘ (G f ∘ θ a) :
assoc
... = η b ∘ (θ b ∘ F f) : naturality θ f
... = (η b ∘ θ b) ∘ F f : assoc)
WAIT
INFO 11

View file

@ -1,10 +0,0 @@
-- BEGINWAIT
-- ENDWAIT
-- BEGININFO
-- TYPE|11|28
η b ∘ G f ∘ θ a = (η b ∘ G f) ∘ θ a
-- ACK
-- IDENTIFIER|11|28
category.assoc
-- ACK
-- ENDINFO

View file

@ -1,2 +1,2 @@
funext : ∀ {A : Type} {B : A → Type} {f g : Π (x : A), B x}, (∀ (x : A), f x = g x) → f = g funext : ∀ {A : Type} {B : A → Type} {f g : Π (a : A), B a}, (∀ (a : A), f a = g a) → f = g
strong_indefinite_description : Π {A : Type} (P : A → Prop), nonempty A → { (x : A), (∃ (x : A), P x) → P x } strong_indefinite_description : Π {A : Type} (P : A → Prop), nonempty A → { (x : A), (∃ (x : A), P x) → P x }

View file

@ -1,18 +0,0 @@
import logic algebra.category.basic
open eq eq.ops category functor natural_transformation
variables {obC obD : Type} {C : category obC} {D : category obD} {F G H : C ⇒ D}
protected definition compose2 (η : G ⟹ H) (θ : F ⟹ G) : F ⟹ H :=
natural_transformation.mk
(λ a, η a ∘ θ a)
(λ a b f, calc
H f ∘ (η a ∘ θ a) = (H f ∘ η a) ∘ θ a : assoc
... = (η b ∘ G f) ∘ θ a : naturality η f
... = η b ∘ (G f ∘ θ a) : assoc
... = η b ∘ (θ b ∘ F f) : naturality θ f
... = (η b ∘ θ b) ∘ F f : assoc)
theorem tst (a b c : num) (H₁ : ∀ x, b = x) (H₂ : c = b) : a = c :=
calc a = b : H₁
... = c : H₂

View file

@ -1,10 +1,10 @@
import data.num logic data.prod data.nat data.int algebra.category.basic import data.num logic data.prod data.nat data.int algebra.category.basic
open num prod int nat category functor open num prod int nat category
print instances inhabited print instances inhabited
print raw 3+2 print raw 3+2
print options print options
print coercions functor print coercions Category
print "-----------" print "-----------"
print coercions print coercions
print "-----------" print "-----------"