cases' h with w h'
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
confl : confluent R
x y a✝¹ b✝ : A
a✝ : refl_trans_sym_clos R b✝ a✝¹
h : joins R b✝ a✝¹
⊢ joins R a✝¹ b✝
case intro
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
confl : confluent R
x y a✝¹ b✝ : A
a✝ : refl_trans_sym_clos R b✝ a✝¹
w : A
h' : refl_trans_clos R b✝ w ∧ refl_trans_clos R a✝¹ w
⊢ joins R a✝¹ b✝