∀ {α : Type u_1} {β : Type u_2} {γ : Type u_3} {l : List α} {P : α → Prop} {f : (a : α) → P a → β} (H : ∀ a ∈ l, P a)
  (g : β → γ → γ) (x : γ), List.foldr g x (List.pmap f l H) = List.foldr (fun a acc => g (f ↑a ⋯) acc) x l.attach