apply equiv_conf
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
S : A → A → Prop
a✝² : ∀ (x y : A), R x y → S x y
a✝¹ : ∀ (x y : A), S x y → refl_trans_clos R x y
a✝ : confluent S
⊢ confluent (refl_trans_clos R)
case a
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
S : A → A → Prop
a✝² : ∀ (x y : A), R x y → S x y
a✝¹ : ∀ (x y : A), S x y → refl_trans_clos R x y
a✝ : confluent S
⊢ ∀ (x y : A), ?S x y ↔ refl_trans_clos R x y

case a
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
S : A → A → Prop
a✝² : ∀ (x y : A), R x y → S x y
a✝¹ : ∀ (x y : A), S x y → refl_trans_clos R x y
a✝ : confluent S
⊢ confluent ?S

case S
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
S : A → A → Prop
a✝² : ∀ (x y : A), R x y → S x y
a✝¹ : ∀ (x y : A), S x y → refl_trans_clos R x y
a✝ : confluent S
⊢ A → A → Prop