case h
α✝ : Type u
α : Type u_1
β : Type u_2
γ : Type u_3
f : α → β → γ
l : List α
l' : List β
n : ℕ
h : length l = length l'
⊢ length (drop (n % length l') l) = length (drop (n % length l') l')
α✝ : Type u
α : Type u_1
β : Type u_2
γ : Type u_3
f : α → β → γ
l : List α
l' : List β
n : ℕ
h : length l = length l'
⊢ rotate (zipWith f l l') n = zipWith f (rotate l n) (rotate l' n)
rw [rotate_eq_drop_append_take_mod, rotate_eq_drop_append_take_mod,
  rotate_eq_drop_append_take_mod, h, zipWith_append, ← zipWith_distrib_drop, ←
  zipWith_distrib_take, List.length_zipWith, h, min_self]
no goals
case h
α✝ : Type u
α : Type u_1
β : Type u_2
γ : Type u_3
f : α → β → γ
l : List α
l' : List β
n : ℕ
h : length l = length l'
⊢ length (drop (n % length l') l) = length (drop (n % length l') l')
rw [length_drop, length_drop, h]