apply (refl_trans_is_trans_refl _ _ _).1
case a.a
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
x✝ y✝ : A
a✝ : refl_clos (trans_clos (sym_clos R)) x✝ y✝
⊢ trans_clos (fun x y => refl_clos (sym_clos R) x y) x✝ y✝
case a.a
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
x✝ y✝ : A
a✝ : refl_clos (trans_clos (sym_clos R)) x✝ y✝
⊢ refl_clos (trans_clos (sym_clos R)) x✝ y✝