{α : Type u_1} →
  (motive : α × List α × α × List α → Sort u_2) →
    (x : α × List α × α × List α) →
      ((fst v₀ : α) → (l₀ : List α) → motive (fst, [], v₀, l₀)) →
        ((fst v₂ : α) → (l₂ : List α) → (v₀ : α) → (l₀ : List α) → motive (fst, v₂ :: l₂, v₀, l₀)) → motive x