α : Type u_1
β : Type u_2
γ : Type ?u.11176
r✝ r : Rel α β
⊢ (fun x z => ∃ y, r x y ∧ y = z) = r
α : Type u_1
β : Type u_2
γ : Type ?u.11176
r✝ r : Rel α β
⊢ r • Eq = r
unfold comp
case a.h.a
α : Type u_1
β : Type u_2
γ : Type ?u.11176
r✝ r : Rel α β
y : α
x✝ : β
⊢ (∃ y_1, r y y_1 ∧ y_1 = x✝) ↔ r y x✝
α : Type u_1
β : Type u_2
γ : Type ?u.11176
r✝ r : Rel α β
⊢ (fun x z => ∃ y, r x y ∧ y = z) = r
ext y
no goals
case a.h.a
α : Type u_1
β : Type u_2
γ : Type ?u.11176
r✝ r : Rel α β
y : α
x✝ : β
⊢ (∃ y_1, r y y_1 ∧ y_1 = x✝) ↔ r y x✝
simp