no goals
ι : Type ?u.330264
α : Type u
β : Type v
γ : Type w
δ : Type x
l₁ l₂ : List α
p : α → Prop
f : (a : α) → p a → β
l : List α
H : ∀ (a : α), a ∈ l → p a
⊢ length (pmap f l H) = length l
induction l <;> [rfl; simp only [*, pmap, length]]