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