use a ::ᵥ zs
case h
α : Type u_1
x z : α
r : α → α → Prop
a b : α
a_r_b : r a b
b_rS_z : Relation.ReflTransGen r b z
m : ℕ
zs : Vector α m.succ
b_is_head_zs : b = zs.head
z_is_last_zs : z = zs.last
zs_steps : ∀ (i : Fin m), r (zs.get i.castSucc) (zs.get i.succ)
⊢ ∃ ys, a = ys.head ∧ z = ys.last ∧ ∀ (i : Fin (m + 1)), r (ys.get i.castSucc) (ys.get i.succ)
case h
α : Type u_1
x z : α
r : α → α → Prop
a b : α
a_r_b : r a b
b_rS_z : Relation.ReflTransGen r b z
m : ℕ
zs : Vector α m.succ
b_is_head_zs : b = zs.head
z_is_last_zs : z = zs.last
zs_steps : ∀ (i : Fin m), r (zs.get i.castSucc) (zs.get i.succ)
⊢ a = (a ::ᵥ zs).head ∧ z = (a ::ᵥ zs).last ∧ ∀ (i : Fin (m + 1)), r ((a ::ᵥ zs).get i.castSucc) ((a ::ᵥ zs).get i.succ)