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

Theorem negsproplem2 28190
Description: Lemma for surreal negation. Show that the cut that defines negation is legitimate. (Contributed by Scott Fenton, 2-Feb-2025.)
Hypotheses
Ref Expression
negsproplem.1 (𝜑 → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
negsproplem2.1 (𝜑𝐴 No )
Assertion
Ref Expression
negsproplem2 (𝜑 → ( -us “ ( R ‘𝐴)) <<s ( -us “ ( L ‘𝐴)))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦
Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem negsproplem2
Dummy variables 𝑎 𝑏 𝑥𝐿 𝑥𝑅 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 negsfn 28184 . . . 4 -us Fn No
2 fnfun 6638 . . . 4 ( -us Fn No → Fun -us )
31, 2ax-mp 5 . . 3 Fun -us
4 fvex 6897 . . . 4 ( R ‘𝐴) ∈ V
54funimaex 6626 . . 3 (Fun -us → ( -us “ ( R ‘𝐴)) ∈ V)
63, 5mp1i 14 . 2 (𝜑 → ( -us “ ( R ‘𝐴)) ∈ V)
7 fvex 6897 . . . 4 ( L ‘𝐴) ∈ V
87funimaex 6626 . . 3 (Fun -us → ( -us “ ( L ‘𝐴)) ∈ V)
93, 8mp1i 14 . 2 (𝜑 → ( -us “ ( L ‘𝐴)) ∈ V)
10 rightssold 28033 . . . 4 ( R ‘𝐴) ⊆ ( O ‘( bday 𝐴))
11 imass2 6107 . . . 4 (( R ‘𝐴) ⊆ ( O ‘( bday 𝐴)) → ( -us “ ( R ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴))))
1210, 11ax-mp 5 . . 3 ( -us “ ( R ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴)))
13 negsproplem.1 . . . . . . . 8 (𝜑 → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
1413adantr 485 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
15 oldssno 28002 . . . . . . . . 9 ( O ‘( bday 𝐴)) ⊆ No
1615sseli 3941 . . . . . . . 8 (𝑎 ∈ ( O ‘( bday 𝐴)) → 𝑎 No )
1716adantl 486 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → 𝑎 No )
18 0no 27970 . . . . . . . 8 0s No
1918a1i 11 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → 0s No )
20 bday0 27972 . . . . . . . . . 10 ( bday ‘ 0s ) = ∅
2120uneq2i 4127 . . . . . . . . 9 (( bday 𝑎) ∪ ( bday ‘ 0s )) = (( bday 𝑎) ∪ ∅)
22 un0 4358 . . . . . . . . 9 (( bday 𝑎) ∪ ∅) = ( bday 𝑎)
2321, 22eqtri 2792 . . . . . . . 8 (( bday 𝑎) ∪ ( bday ‘ 0s )) = ( bday 𝑎)
24 oldbdayim 28050 . . . . . . . . . 10 (𝑎 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑎) ∈ ( bday 𝐴))
2524adantl 486 . . . . . . . . 9 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( bday 𝑎) ∈ ( bday 𝐴))
26 elun1 4143 . . . . . . . . 9 (( bday 𝑎) ∈ ( bday 𝐴) → ( bday 𝑎) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2725, 26syl 18 . . . . . . . 8 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( bday 𝑎) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2823, 27eqeltrid 2873 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → (( bday 𝑎) ∪ ( bday ‘ 0s )) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2914, 17, 19, 28negsproplem1 28189 . . . . . 6 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → (( -us𝑎) ∈ No ∧ (𝑎 <s 0s → ( -us ‘ 0s ) <s ( -us𝑎))))
3029simpld 499 . . . . 5 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( -us𝑎) ∈ No )
3130ralrimiva 3163 . . . 4 (𝜑 → ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No )
321fndmi 6642 . . . . . 6 dom -us = No
3315, 32sseqtrri 3994 . . . . 5 ( O ‘( bday 𝐴)) ⊆ dom -us
34 funimass4 6948 . . . . 5 ((Fun -us ∧ ( O ‘( bday 𝐴)) ⊆ dom -us ) → (( -us “ ( O ‘( bday 𝐴))) ⊆ No ↔ ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No ))
353, 33, 34mp2an 704 . . . 4 (( -us “ ( O ‘( bday 𝐴))) ⊆ No ↔ ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No )
3631, 35sylibr 237 . . 3 (𝜑 → ( -us “ ( O ‘( bday 𝐴))) ⊆ No )
3712, 36sstrid 3956 . 2 (𝜑 → ( -us “ ( R ‘𝐴)) ⊆ No )
38 leftssold 28032 . . . 4 ( L ‘𝐴) ⊆ ( O ‘( bday 𝐴))
39 imass2 6107 . . . 4 (( L ‘𝐴) ⊆ ( O ‘( bday 𝐴)) → ( -us “ ( L ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴))))
4038, 39ax-mp 5 . . 3 ( -us “ ( L ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴)))
4140, 36sstrid 3956 . 2 (𝜑 → ( -us “ ( L ‘𝐴)) ⊆ No )
42 rightssno 28035 . . . . . . 7 ( R ‘𝐴) ⊆ No
43 fvelimab 6956 . . . . . . 7 (( -us Fn No ∧ ( R ‘𝐴) ⊆ No ) → (𝑎 ∈ ( -us “ ( R ‘𝐴)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎))
441, 42, 43mp2an 704 . . . . . 6 (𝑎 ∈ ( -us “ ( R ‘𝐴)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎)
45 leftssno 28034 . . . . . . 7 ( L ‘𝐴) ⊆ No
46 fvelimab 6956 . . . . . . 7 (( -us Fn No ∧ ( L ‘𝐴) ⊆ No ) → (𝑏 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
471, 45, 46mp2an 704 . . . . . 6 (𝑏 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏)
4844, 47anbi12i 639 . . . . 5 ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) ↔ (∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎 ∧ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
49 reeanv 3243 . . . . 5 (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) ↔ (∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎 ∧ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
5048, 49bitr4i 281 . . . 4 ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏))
51 lltr 28023 . . . . . . . . 9 ( L ‘𝐴) <<s ( R ‘𝐴)
5251a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( L ‘𝐴) <<s ( R ‘𝐴))
53 simprr 784 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 ∈ ( L ‘𝐴))
54 simprl 782 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 ∈ ( R ‘𝐴))
5552, 53, 54sltssepcd 27933 . . . . . . 7 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 <s 𝑥𝑅)
5613adantr 485 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
5745sseli 3941 . . . . . . . . . 10 (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 No )
5857ad2antll 741 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 No )
5942sseli 3941 . . . . . . . . . . 11 (𝑥𝑅 ∈ ( R ‘𝐴) → 𝑥𝑅 No )
6059adantr 485 . . . . . . . . . 10 ((𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴)) → 𝑥𝑅 No )
6160adantl 486 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 No )
6238sseli 3941 . . . . . . . . . . . . 13 (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 ∈ ( O ‘( bday 𝐴)))
6362ad2antll 741 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 ∈ ( O ‘( bday 𝐴)))
64 oldbdayim 28050 . . . . . . . . . . . 12 (𝑥𝐿 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑥𝐿) ∈ ( bday 𝐴))
6563, 64syl 18 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( bday 𝑥𝐿) ∈ ( bday 𝐴))
6610a1i 11 . . . . . . . . . . . . . 14 (𝜑 → ( R ‘𝐴) ⊆ ( O ‘( bday 𝐴)))
6766sselda 3945 . . . . . . . . . . . . 13 ((𝜑𝑥𝑅 ∈ ( R ‘𝐴)) → 𝑥𝑅 ∈ ( O ‘( bday 𝐴)))
6867adantrr 729 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 ∈ ( O ‘( bday 𝐴)))
69 oldbdayim 28050 . . . . . . . . . . . 12 (𝑥𝑅 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑥𝑅) ∈ ( bday 𝐴))
7068, 69syl 18 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( bday 𝑥𝑅) ∈ ( bday 𝐴))
71 bdayon 27913 . . . . . . . . . . . 12 ( bday 𝑥𝐿) ∈ On
72 bdayon 27913 . . . . . . . . . . . 12 ( bday 𝑥𝑅) ∈ On
73 bdayon 27913 . . . . . . . . . . . 12 ( bday 𝐴) ∈ On
74 onunel 6471 . . . . . . . . . . . 12 ((( bday 𝑥𝐿) ∈ On ∧ ( bday 𝑥𝑅) ∈ On ∧ ( bday 𝐴) ∈ On) → ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) ↔ (( bday 𝑥𝐿) ∈ ( bday 𝐴) ∧ ( bday 𝑥𝑅) ∈ ( bday 𝐴))))
7571, 72, 73, 74mp3an 1487 . . . . . . . . . . 11 ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) ↔ (( bday 𝑥𝐿) ∈ ( bday 𝐴) ∧ ( bday 𝑥𝑅) ∈ ( bday 𝐴)))
7665, 70, 75sylanbrc 594 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴))
77 elun1 4143 . . . . . . . . . 10 ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
7876, 77syl 18 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
7956, 58, 61, 78negsproplem1 28189 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( -us𝑥𝐿) ∈ No ∧ (𝑥𝐿 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥𝐿))))
8079simprd 500 . . . . . . 7 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (𝑥𝐿 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥𝐿)))
8155, 80mpd 16 . . . . . 6 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( -us𝑥𝑅) <s ( -us𝑥𝐿))
82 breq12 5118 . . . . . 6 ((( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → (( -us𝑥𝑅) <s ( -us𝑥𝐿) ↔ 𝑎 <s 𝑏))
8381, 82syl5ibcom 248 . . . . 5 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ((( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → 𝑎 <s 𝑏))
8483rexlimdvva 3228 . . . 4 (𝜑 → (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → 𝑎 <s 𝑏))
8550, 84biimtrid 245 . . 3 (𝜑 → ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) → 𝑎 <s 𝑏))
86853impib 1132 . 2 ((𝜑𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) → 𝑎 <s 𝑏)
876, 9, 37, 41, 86sltsd 27929 1 (𝜑 → ( -us “ ( R ‘𝐴)) <<s ( -us “ ( L ‘𝐴)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400   = wceq 1567  wcel 2149  wral 3085  wrex 3095  Vcvv 3463  cun 3911  wss 3913  c0 4294   class class class wbr 5113  dom cdm 5664  cima 5667  Oncon0 6363  Fun wfun 6533   Fn wfn 6534  cfv 6539   No csur 27772   <s clts 27773   bday cbday 27774   <<s cslts 27918   0s c0s 27966   O cold 27984   L cleft 27986   R cright 27987   -us cnegs 28180
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5273  ax-pow 5339  ax-pr 5407  ax-un 7735
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5559  df-eprel 5564  df-po 5572  df-so 5573  df-fr 5617  df-se 5618  df-we 5619  df-xp 5670  df-rel 5671  df-cnv 5672  df-co 5673  df-dm 5674  df-rn 5675  df-res 5676  df-ima 5677  df-pred 6305  df-ord 6366  df-on 6367  df-suc 6369  df-iota 6495  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-2nd 7989  df-frecs 8280  df-wrecs 8311  df-recs 8360  df-1o 8455  df-2o 8456  df-no 27775  df-lts 27776  df-bday 27777  df-slts 27919  df-cuts 27921  df-0s 27968  df-made 27988  df-old 27989  df-left 27991  df-right 27992  df-norec 28099  df-negs 28182
This theorem is referenced by:  negsproplem3  28191
  Copyright terms: Public domain W3C validator