by_cases (∃ y, x ~> y)
case a
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
x✝ x : A
h : ∀ (y : A), R x y → ∃ y_1, refl_trans_clos R y y_1 ∧ normal R y_1
⊢ ∃ y, refl_trans_clos R x y ∧ normal R y
case pos
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
x✝ x : A
h✝ : ∀ (y : A), R x y → ∃ y_1, refl_trans_clos R y y_1 ∧ normal R y_1
h : ∃ y, R x y
⊢ ∃ y, refl_trans_clos R x y ∧ normal R y

case neg
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
x✝ x : A
h✝ : ∀ (y : A), R x y → ∃ y_1, refl_trans_clos R y y_1 ∧ normal R y_1
h : ¬∃ y, R x y
⊢ ∃ y, refl_trans_clos R x y ∧ normal R y