exact heqq
case left.inr.intro.inr.intro.h.left
α β : Type
S : α → α → Prop
T : β → β → Prop
hS : CStrictOrder S
hT : CStrictOrder T
inst✝³ : DecidableRel S
inst✝² : DecidableRel T
inst✝¹ : DecidableEq α
inst✝ : DecidableEq β
p q j : α × β
heqp : p.1 = q.1
hTp : T p.2 q.2
heqq : p.1 = j.1
hTq : T q.2 j.2
⊢ p.1 = j.1
no goals