fix(tests/lean): to reflect changes in the standard library
This commit is contained in:
parent
d8a616fa70
commit
ea7470375f
5 changed files with 3 additions and 48 deletions
|
@ -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
|
|
@ -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
|
|
@ -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 }
|
||||
|
|
|
@ -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₂
|
|
@ -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 "-----------"
|
||||
|
|
Loading…
Reference in a new issue