∀ {α : Type u_1} {R : α → α → Prop} {motive : (a : List α) → List.IsChain R a → Prop} {a : List α}
  (t : List.IsChain R a), (∀ (a : List α) (t : List.IsChain R a), List.IsChain.below t → motive a t) → motive a t