cases a_in_ftr_x
case intro.intro
α : Type
x y : α
f : α → List α
m : α → ℕ
isDec : ∀ (x y : α), y ∈ f x → m y < m x
a : α
a_in_ftr_x : a = x ∨ ∃ z ∈ f x, a ∈ ftr f m isDec z
y_in_fa : y ∈ f a
⊢ y ∈ ftr f m isDec x
case intro.intro.inl
α : Type
x y : α
f : α → List α
m : α → ℕ
isDec : ∀ (x y : α), y ∈ f x → m y < m x
a : α
y_in_fa : y ∈ f a
h✝ : a = x
⊢ y ∈ ftr f m isDec x

case intro.intro.inr
α : Type
x y : α
f : α → List α
m : α → ℕ
isDec : ∀ (x y : α), y ∈ f x → m y < m x
a : α
y_in_fa : y ∈ f a
h✝ : ∃ z ∈ f x, a ∈ ftr f m isDec z
⊢ y ∈ ftr f m isDec x