intros y _
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
sc : diamond R
x z a✝ : A
⊢ ∀ (y : A), R a✝ y → joins R y a✝
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
sc : diamond R
x z a✝ y : A
red✝ : R a✝ y
⊢ joins R y a✝