∀ {α : Type u_1} {β : Type u_2} {R : α → β → Prop}
  (motive : (x x_1 : List α) → (x_2 : List β) → List.Forall₂ R x x_2 → List.Forall₂ R x_1 x_2 → Prop) (x x_1 : List α)
  (x_2 : List β) (x_3 : List.Forall₂ R x x_2) (x_4 : List.Forall₂ R x_1 x_2),
  (∀ (a : Unit), motive [] [] [] ⋯ ⋯) →
    (∀ (a : α) (b : β) (l₁ : List α) (l₂ : List β) (ha₀ : R a b) (h₀ : List.Forall₂ R l₁ l₂) (a_1 : α) (l₁_1 : List α)
        (ha₁ : R a_1 b) (h₁ : List.Forall₂ R l₁_1 l₂), motive (a :: l₁) (a_1 :: l₁_1) (b :: l₂) ⋯ ⋯) →
      motive x x_1 x_2 x_3 x_4