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 }

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
open num prod int nat category functor
open num prod int nat category
print instances inhabited
print raw 3+2
print options
print coercions functor
print coercions Category
print "-----------"
print coercions
print "-----------"