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