no goals
ι : Type ?u.162315
α✝ : Type u
β✝ : Type v
γ : Type w
δ : Type x
l₁ l₂ : List α✝
α : Type u_1
β : Type u_2
f : α → β
i : ℕ
⊢ map f (take i []) = take i (map f [])
simp
no goals
ι : Type ?u.162315
α✝ : Type u
β✝ : Type v
γ : Type w
δ : Type x
l₁ l₂ : List α✝
α : Type u_1
β : Type u_2
f : α → β
x✝ : List α
⊢ map f (take 0 x✝) = take 0 (map f x✝)
simp
ι : Type ?u.162315
α✝ : Type u
β✝ : Type v
γ : Type w
δ : Type x
l₁ l₂ : List α✝
α : Type u_1
β : Type u_2
f : α → β
h : α
t : List α
n : ℕ
⊢ f h :: map f (take n t) = f h :: take n (map f t)
ι : Type ?u.162315
α✝ : Type u
β✝ : Type v
γ : Type w
δ : Type x
l₁ l₂ : List α✝
α : Type u_1
β : Type u_2
f : α → β
h : α
t : List α
n : ℕ
⊢ map f (take (n + 1) (h :: t)) = take (n + 1) (map f (h :: t))
dsimp
no goals
ι : Type ?u.162315
α✝ : Type u
β✝ : Type v
γ : Type w
δ : Type x
l₁ l₂ : List α✝
α : Type u_1
β : Type u_2
f : α → β
h : α
t : List α
n : ℕ
⊢ f h :: map f (take n t) = f h :: take n (map f t)
rw [map_take f t n]