{α : Type u_1} →
  (motive : List α → List α → Sort u_2) →
    (x x_1 : List α) →
      ((x : List α) → motive [] x) →
        ((x : List α) → motive x []) →
          ((l₁ : List α) →
              (hd₁ : α) →
                (tl₁ : List α) →
                  (h : l₁ = hd₁ :: tl₁) →
                    (hd₂ : α) → (tl₂ : List α) → motive (namedPattern l₁ (hd₁ :: tl₁) h) (hd₂ :: tl₂)) →
            motive x x_1