∀ {α : Type u_1} {R : α → α → Prop} (motive : (x : List α) → List.Pairwise R x → Prop) (x : List α)
  (x_1 : List.Pairwise R x),
  (∀ (a : Unit), motive [] ⋯) →
    (∀ (a : α) (l : List α) (h₁ : ∀ a' ∈ l, R a a') (h₂ : List.Pairwise R l), motive (a :: l) ⋯) → motive x x_1