{α : Type u} →
  {motive : Batteries.DList α → Sort u_1} →
    (t : Batteries.DList α) →
      ((apply : List α → List α) →
          (invariant : ∀ (l : List α), apply l = apply [] ++ l) → motive { apply := apply, invariant := invariant }) →
        motive t