MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  swoer Structured version   Visualization version   GIF version

Theorem swoer 7926
Description: Incomparability under a strict weak partial order is an equivalence relation. (Contributed by Mario Carneiro, 9-Jul-2014.) (Revised by Mario Carneiro, 12-Aug-2015.)
Hypotheses
Ref Expression
swoer.1 𝑅 = ((𝑋 × 𝑋) ∖ ( < < ))
swoer.2 ((𝜑 ∧ (𝑦𝑋𝑧𝑋)) → (𝑦 < 𝑧 → ¬ 𝑧 < 𝑦))
swoer.3 ((𝜑 ∧ (𝑥𝑋𝑦𝑋𝑧𝑋)) → (𝑥 < 𝑦 → (𝑥 < 𝑧𝑧 < 𝑦)))
Assertion
Ref Expression
swoer (𝜑𝑅 Er 𝑋)
Distinct variable groups:   𝑥,𝑦,𝑧, <   𝜑,𝑥,𝑦,𝑧   𝑥,𝑋,𝑦,𝑧
Allowed substitution hints:   𝑅(𝑥,𝑦,𝑧)

Proof of Theorem swoer
Dummy variables 𝑣 𝑢 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 swoer.1 . . . . 5 𝑅 = ((𝑋 × 𝑋) ∖ ( < < ))
2 difss 3888 . . . . 5 ((𝑋 × 𝑋) ∖ ( < < )) ⊆ (𝑋 × 𝑋)
31, 2eqsstri 3784 . . . 4 𝑅 ⊆ (𝑋 × 𝑋)
4 relxp 5266 . . . 4 Rel (𝑋 × 𝑋)
5 relss 5346 . . . 4 (𝑅 ⊆ (𝑋 × 𝑋) → (Rel (𝑋 × 𝑋) → Rel 𝑅))
63, 4, 5mp2 9 . . 3 Rel 𝑅
76a1i 11 . 2 (𝜑 → Rel 𝑅)
8 simpr 471 . . 3 ((𝜑𝑢𝑅𝑣) → 𝑢𝑅𝑣)
9 orcom 857 . . . . . 6 ((𝑢 < 𝑣𝑣 < 𝑢) ↔ (𝑣 < 𝑢𝑢 < 𝑣))
109a1i 11 . . . . 5 ((𝜑𝑢𝑅𝑣) → ((𝑢 < 𝑣𝑣 < 𝑢) ↔ (𝑣 < 𝑢𝑢 < 𝑣)))
1110notbid 307 . . . 4 ((𝜑𝑢𝑅𝑣) → (¬ (𝑢 < 𝑣𝑣 < 𝑢) ↔ ¬ (𝑣 < 𝑢𝑢 < 𝑣)))
123ssbri 4831 . . . . . . 7 (𝑢𝑅𝑣𝑢(𝑋 × 𝑋)𝑣)
1312adantl 467 . . . . . 6 ((𝜑𝑢𝑅𝑣) → 𝑢(𝑋 × 𝑋)𝑣)
14 brxp 5287 . . . . . 6 (𝑢(𝑋 × 𝑋)𝑣 ↔ (𝑢𝑋𝑣𝑋))
1513, 14sylib 208 . . . . 5 ((𝜑𝑢𝑅𝑣) → (𝑢𝑋𝑣𝑋))
161brdifun 7925 . . . . 5 ((𝑢𝑋𝑣𝑋) → (𝑢𝑅𝑣 ↔ ¬ (𝑢 < 𝑣𝑣 < 𝑢)))
1715, 16syl 17 . . . 4 ((𝜑𝑢𝑅𝑣) → (𝑢𝑅𝑣 ↔ ¬ (𝑢 < 𝑣𝑣 < 𝑢)))
1815simprd 483 . . . . 5 ((𝜑𝑢𝑅𝑣) → 𝑣𝑋)
1915simpld 482 . . . . 5 ((𝜑𝑢𝑅𝑣) → 𝑢𝑋)
201brdifun 7925 . . . . 5 ((𝑣𝑋𝑢𝑋) → (𝑣𝑅𝑢 ↔ ¬ (𝑣 < 𝑢𝑢 < 𝑣)))
2118, 19, 20syl2anc 573 . . . 4 ((𝜑𝑢𝑅𝑣) → (𝑣𝑅𝑢 ↔ ¬ (𝑣 < 𝑢𝑢 < 𝑣)))
2211, 17, 213bitr4d 300 . . 3 ((𝜑𝑢𝑅𝑣) → (𝑢𝑅𝑣𝑣𝑅𝑢))
238, 22mpbid 222 . 2 ((𝜑𝑢𝑅𝑣) → 𝑣𝑅𝑢)
24 simprl 754 . . . . 5 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑢𝑅𝑣)
2512ad2antrl 707 . . . . . . 7 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑢(𝑋 × 𝑋)𝑣)
2614simplbi 485 . . . . . . 7 (𝑢(𝑋 × 𝑋)𝑣𝑢𝑋)
2725, 26syl 17 . . . . . 6 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑢𝑋)
2814simprbi 484 . . . . . . 7 (𝑢(𝑋 × 𝑋)𝑣𝑣𝑋)
2925, 28syl 17 . . . . . 6 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑣𝑋)
3027, 29, 16syl2anc 573 . . . . 5 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → (𝑢𝑅𝑣 ↔ ¬ (𝑢 < 𝑣𝑣 < 𝑢)))
3124, 30mpbid 222 . . . 4 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → ¬ (𝑢 < 𝑣𝑣 < 𝑢))
32 simprr 756 . . . . 5 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑣𝑅𝑤)
333brel 5308 . . . . . . . 8 (𝑣𝑅𝑤 → (𝑣𝑋𝑤𝑋))
3433simprd 483 . . . . . . 7 (𝑣𝑅𝑤𝑤𝑋)
3532, 34syl 17 . . . . . 6 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑤𝑋)
361brdifun 7925 . . . . . 6 ((𝑣𝑋𝑤𝑋) → (𝑣𝑅𝑤 ↔ ¬ (𝑣 < 𝑤𝑤 < 𝑣)))
3729, 35, 36syl2anc 573 . . . . 5 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → (𝑣𝑅𝑤 ↔ ¬ (𝑣 < 𝑤𝑤 < 𝑣)))
3832, 37mpbid 222 . . . 4 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → ¬ (𝑣 < 𝑤𝑤 < 𝑣))
39 simpl 468 . . . . . . 7 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝜑)
40 swoer.3 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑋𝑦𝑋𝑧𝑋)) → (𝑥 < 𝑦 → (𝑥 < 𝑧𝑧 < 𝑦)))
4140swopolem 5179 . . . . . . 7 ((𝜑 ∧ (𝑢𝑋𝑤𝑋𝑣𝑋)) → (𝑢 < 𝑤 → (𝑢 < 𝑣𝑣 < 𝑤)))
4239, 27, 35, 29, 41syl13anc 1478 . . . . . 6 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → (𝑢 < 𝑤 → (𝑢 < 𝑣𝑣 < 𝑤)))
4340swopolem 5179 . . . . . . . 8 ((𝜑 ∧ (𝑤𝑋𝑢𝑋𝑣𝑋)) → (𝑤 < 𝑢 → (𝑤 < 𝑣𝑣 < 𝑢)))
4439, 35, 27, 29, 43syl13anc 1478 . . . . . . 7 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → (𝑤 < 𝑢 → (𝑤 < 𝑣𝑣 < 𝑢)))
45 orcom 857 . . . . . . 7 ((𝑣 < 𝑢𝑤 < 𝑣) ↔ (𝑤 < 𝑣𝑣 < 𝑢))
4644, 45syl6ibr 242 . . . . . 6 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → (𝑤 < 𝑢 → (𝑣 < 𝑢𝑤 < 𝑣)))
4742, 46orim12d 945 . . . . 5 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → ((𝑢 < 𝑤𝑤 < 𝑢) → ((𝑢 < 𝑣𝑣 < 𝑤) ∨ (𝑣 < 𝑢𝑤 < 𝑣))))
48 or4 910 . . . . 5 (((𝑢 < 𝑣𝑣 < 𝑤) ∨ (𝑣 < 𝑢𝑤 < 𝑣)) ↔ ((𝑢 < 𝑣𝑣 < 𝑢) ∨ (𝑣 < 𝑤𝑤 < 𝑣)))
4947, 48syl6ib 241 . . . 4 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → ((𝑢 < 𝑤𝑤 < 𝑢) → ((𝑢 < 𝑣𝑣 < 𝑢) ∨ (𝑣 < 𝑤𝑤 < 𝑣))))
5031, 38, 49mtord 864 . . 3 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → ¬ (𝑢 < 𝑤𝑤 < 𝑢))
511brdifun 7925 . . . 4 ((𝑢𝑋𝑤𝑋) → (𝑢𝑅𝑤 ↔ ¬ (𝑢 < 𝑤𝑤 < 𝑢)))
5227, 35, 51syl2anc 573 . . 3 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → (𝑢𝑅𝑤 ↔ ¬ (𝑢 < 𝑤𝑤 < 𝑢)))
5350, 52mpbird 247 . 2 ((𝜑 ∧ (𝑢𝑅𝑣𝑣𝑅𝑤)) → 𝑢𝑅𝑤)
54 swoer.2 . . . . . . 7 ((𝜑 ∧ (𝑦𝑋𝑧𝑋)) → (𝑦 < 𝑧 → ¬ 𝑧 < 𝑦))
5554, 40swopo 5180 . . . . . 6 (𝜑< Po 𝑋)
56 poirr 5181 . . . . . 6 (( < Po 𝑋𝑢𝑋) → ¬ 𝑢 < 𝑢)
5755, 56sylan 569 . . . . 5 ((𝜑𝑢𝑋) → ¬ 𝑢 < 𝑢)
58 pm1.2 887 . . . . 5 ((𝑢 < 𝑢𝑢 < 𝑢) → 𝑢 < 𝑢)
5957, 58nsyl 137 . . . 4 ((𝜑𝑢𝑋) → ¬ (𝑢 < 𝑢𝑢 < 𝑢))
60 simpr 471 . . . . 5 ((𝜑𝑢𝑋) → 𝑢𝑋)
611brdifun 7925 . . . . 5 ((𝑢𝑋𝑢𝑋) → (𝑢𝑅𝑢 ↔ ¬ (𝑢 < 𝑢𝑢 < 𝑢)))
6260, 60, 61syl2anc 573 . . . 4 ((𝜑𝑢𝑋) → (𝑢𝑅𝑢 ↔ ¬ (𝑢 < 𝑢𝑢 < 𝑢)))
6359, 62mpbird 247 . . 3 ((𝜑𝑢𝑋) → 𝑢𝑅𝑢)
643ssbri 4831 . . . . 5 (𝑢𝑅𝑢𝑢(𝑋 × 𝑋)𝑢)
65 brxp 5287 . . . . . 6 (𝑢(𝑋 × 𝑋)𝑢 ↔ (𝑢𝑋𝑢𝑋))
6665simplbi 485 . . . . 5 (𝑢(𝑋 × 𝑋)𝑢𝑢𝑋)
6764, 66syl 17 . . . 4 (𝑢𝑅𝑢𝑢𝑋)
6867adantl 467 . . 3 ((𝜑𝑢𝑅𝑢) → 𝑢𝑋)
6963, 68impbida 802 . 2 (𝜑 → (𝑢𝑋𝑢𝑅𝑢))
707, 23, 53, 69iserd 7922 1 (𝜑𝑅 Er 𝑋)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 382  wo 834  w3a 1071   = wceq 1631  wcel 2145  cdif 3720  cun 3721  wss 3723   class class class wbr 4786   Po wpo 5168   × cxp 5247  ccnv 5248  Rel wrel 5254   Er wer 7893
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-sep 4915  ax-nul 4923  ax-pr 5034
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 835  df-3an 1073  df-tru 1634  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3353  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-nul 4064  df-if 4226  df-sn 4317  df-pr 4319  df-op 4323  df-br 4787  df-opab 4847  df-po 5170  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-er 7896
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator