∀ {β : Type u_1} {α : Type u_2} {R : β → β → Prop} {l : List α} {f : α → List β},
  List.Pairwise R (List.flatMap f l) =
    ((∀ a ∈ l, List.Pairwise R (f a)) ∧ List.Pairwise (fun a₁ a₂ => ∀ x ∈ f a₁, ∀ y ∈ f a₂, R x y) l)