typo
This commit is contained in:
parent
93a32bd9bc
commit
177c2732b6
1 changed files with 1 additions and 1 deletions
|
@ -21,7 +21,7 @@ def map' {α β : Type} (f : α → β) : List α → List β
|
||||||
| [] => []
|
| [] => []
|
||||||
| x :: xs => f x :: map' f xs
|
| x :: xs => f x :: map' f xs
|
||||||
|
|
||||||
theorem fuse {α β γ} : ∀ (xs : List α) (f : α → β) (g :β → γ),
|
theorem fuse {α β γ} : ∀ (xs : List α) (f : α → β) (g : β → γ),
|
||||||
(map' g ∘ map' f) xs = map' (g ∘ f) xs := by
|
(map' g ∘ map' f) xs = map' (g ∘ f) xs := by
|
||||||
intro xs f g
|
intro xs f g
|
||||||
induction xs
|
induction xs
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue