exact ⟨_, h3, .tail h4 ⟨_, h1, h2⟩⟩
case mp.step
α : Type
inst✝ : DecidableEq α
g : Graph α
S : List α
s' x✝ : α
e✝ : α × List α
h1 : e✝ ∈ g
h2 : x✝ ∈ e✝.2
a✝ : reachable_from_list g S e✝.1
ih : ∃ s ∈ S, Relation.ReflTransGen (fun a b => ∃ l, (a, l) ∈ g ∧ b ∈ l) s e✝.1
w✝ : α
h3 : w✝ ∈ S
h4 : Relation.ReflTransGen (fun a b => ∃ l, (a, l) ∈ g ∧ b ∈ l) w✝ e✝.1
⊢ ∃ s ∈ S, Relation.ReflTransGen (fun a b => ∃ l, (a, l) ∈ g ∧ b ∈ l) s x✝
no goals