simp_all only [Prod.mk.injEq, not_and]
case right
α β : Type
S : α → α → Prop
T : β → β → Prop
hS : CStrictOrder S
hT : CStrictOrder T
inst✝ : DecidableRel S
inst : DecidableRel T
inst_1 : DecidableEq α
inst_2 : DecidableEq β
fst : α
snd : β
fst_1 : α
snd_1 : β
hStrich :
  ¬S (fst, snd).1 (fst_1, snd_1).1 ∧ ¬S (fst_1, snd_1).1 (fst, snd).1 ∧ (fst, snd).1 = (fst_1, snd_1).1 ∨
    ¬S (fst, snd).1 (fst_1, snd_1).1 ∧ S (fst_1, snd_1).1 (fst, snd).1 ∧ ¬(fst, snd).1 = (fst_1, snd_1).1 ∨
      S (fst, snd).1 (fst_1, snd_1).1 ∧ ¬S (fst_1, snd_1).1 (fst, snd).1 ∧ ¬(fst, snd).1 = (fst_1, snd_1).1
hTtrich :
  ¬T (fst, snd).2 (fst_1, snd_1).2 ∧ ¬T (fst_1, snd_1).2 (fst, snd).2 ∧ (fst, snd).2 = (fst_1, snd_1).2 ∨
    ¬T (fst, snd).2 (fst_1, snd_1).2 ∧ T (fst_1, snd_1).2 (fst, snd).2 ∧ ¬(fst, snd).2 = (fst_1, snd_1).2 ∨
      T (fst, snd).2 (fst_1, snd_1).2 ∧ ¬T (fst_1, snd_1).2 (fst, snd).2 ∧ ¬(fst, snd).2 = (fst_1, snd_1).2
fst_2 : α
snd_2 : β
⊢ ¬(S (fst, snd).1 (fst_1, snd_1).1 ∨ (fst, snd).1 = (fst_1, snd_1).1 ∧ T (fst, snd).2 (fst_1, snd_1).2) ∧
      ¬(S (fst_1, snd_1).1 (fst, snd).1 ∨ (fst_1, snd_1).1 = (fst, snd).1 ∧ T (fst_1, snd_1).2 (fst, snd).2) ∧
        (fst, snd) = (fst_1, snd_1) ∨
    ¬(S (fst, snd).1 (fst_1, snd_1).1 ∨ (fst, snd).1 = (fst_1, snd_1).1 ∧ T (fst, snd).2 (fst_1, snd_1).2) ∧
        (S (fst_1, snd_1).1 (fst, snd).1 ∨ (fst_1, snd_1).1 = (fst, snd).1 ∧ T (fst_1, snd_1).2 (fst, snd).2) ∧
          ¬(fst, snd) = (fst_1, snd_1) ∨
      (S (fst, snd).1 (fst_1, snd_1).1 ∨ (fst, snd).1 = (fst_1, snd_1).1 ∧ T (fst, snd).2 (fst_1, snd_1).2) ∧
        ¬(S (fst_1, snd_1).1 (fst, snd).1 ∨ (fst_1, snd_1).1 = (fst, snd).1 ∧ T (fst_1, snd_1).2 (fst, snd).2) ∧
          ¬(fst, snd) = (fst_1, snd_1)
case right
α β : Type
S : α → α → Prop
T : β → β → Prop
hS : CStrictOrder S
hT : CStrictOrder T
inst✝ : DecidableRel S
inst : DecidableRel T
inst_1 : DecidableEq α
inst_2 : DecidableEq β
fst : α
snd : β
fst_1 : α
snd_1 : β
fst_2 : α
snd_2 : β
hStrich :
  ¬S fst fst_1 ∧ ¬S fst_1 fst ∧ fst = fst_1 ∨
    ¬S fst fst_1 ∧ S fst_1 fst ∧ ¬fst = fst_1 ∨ S fst fst_1 ∧ ¬S fst_1 fst ∧ ¬fst = fst_1
hTtrich :
  ¬T snd snd_1 ∧ ¬T snd_1 snd ∧ snd = snd_1 ∨
    ¬T snd snd_1 ∧ T snd_1 snd ∧ ¬snd = snd_1 ∨ T snd snd_1 ∧ ¬T snd_1 snd ∧ ¬snd = snd_1
⊢ ¬(S fst fst_1 ∨ fst = fst_1 ∧ T snd snd_1) ∧ ¬(S fst_1 fst ∨ fst_1 = fst ∧ T snd_1 snd) ∧ fst = fst_1 ∧ snd = snd_1 ∨
    ¬(S fst fst_1 ∨ fst = fst_1 ∧ T snd snd_1) ∧
        (S fst_1 fst ∨ fst_1 = fst ∧ T snd_1 snd) ∧ (fst = fst_1 → ¬snd = snd_1) ∨
      (S fst fst_1 ∨ fst = fst_1 ∧ T snd snd_1) ∧
        ¬(S fst_1 fst ∨ fst_1 = fst ∧ T snd_1 snd) ∧ (fst = fst_1 → ¬snd = snd_1)