sorry
X : Type
inst✝³ : PartialOrder X
inst✝² : CompleteLattice X
Y : Type
inst✝¹ : PartialOrder Y
inst✝ : CompleteLattice Y
l : X → Y
r r' : Y → X
h : adjunction l r
h' : adjunction l r'
⊢ r = r'
no goals