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

Theorem negsproplem2 28021
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 28015 . . . 4 -us Fn No
2 fnfun 6598 . . . 4 ( -us Fn No → Fun -us )
31, 2ax-mp 5 . . 3 Fun -us
4 fvex 6853 . . . 4 ( R ‘𝐴) ∈ V
54funimaex 6586 . . 3 (Fun -us → ( -us “ ( R ‘𝐴)) ∈ V)
63, 5mp1i 13 . 2 (𝜑 → ( -us “ ( R ‘𝐴)) ∈ V)
7 fvex 6853 . . . 4 ( L ‘𝐴) ∈ V
87funimaex 6586 . . 3 (Fun -us → ( -us “ ( L ‘𝐴)) ∈ V)
93, 8mp1i 13 . 2 (𝜑 → ( -us “ ( L ‘𝐴)) ∈ V)
10 rightssold 27864 . . . 4 ( R ‘𝐴) ⊆ ( O ‘( bday 𝐴))
11 imass2 6067 . . . 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 480 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
15 oldssno 27833 . . . . . . . . 9 ( O ‘( bday 𝐴)) ⊆ No
1615sseli 3917 . . . . . . . 8 (𝑎 ∈ ( O ‘( bday 𝐴)) → 𝑎 No )
1716adantl 481 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → 𝑎 No )
18 0no 27801 . . . . . . . 8 0s No
1918a1i 11 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → 0s No )
20 bday0 27803 . . . . . . . . . 10 ( bday ‘ 0s ) = ∅
2120uneq2i 4105 . . . . . . . . 9 (( bday 𝑎) ∪ ( bday ‘ 0s )) = (( bday 𝑎) ∪ ∅)
22 un0 4334 . . . . . . . . 9 (( bday 𝑎) ∪ ∅) = ( bday 𝑎)
2321, 22eqtri 2759 . . . . . . . 8 (( bday 𝑎) ∪ ( bday ‘ 0s )) = ( bday 𝑎)
24 oldbdayim 27881 . . . . . . . . . 10 (𝑎 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑎) ∈ ( bday 𝐴))
2524adantl 481 . . . . . . . . 9 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( bday 𝑎) ∈ ( bday 𝐴))
26 elun1 4122 . . . . . . . . 9 (( bday 𝑎) ∈ ( bday 𝐴) → ( bday 𝑎) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2725, 26syl 17 . . . . . . . 8 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( bday 𝑎) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2823, 27eqeltrid 2840 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → (( bday 𝑎) ∪ ( bday ‘ 0s )) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2914, 17, 19, 28negsproplem1 28020 . . . . . 6 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → (( -us𝑎) ∈ No ∧ (𝑎 <s 0s → ( -us ‘ 0s ) <s ( -us𝑎))))
3029simpld 494 . . . . 5 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( -us𝑎) ∈ No )
3130ralrimiva 3129 . . . 4 (𝜑 → ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No )
321fndmi 6602 . . . . . 6 dom -us = No
3315, 32sseqtrri 3971 . . . . 5 ( O ‘( bday 𝐴)) ⊆ dom -us
34 funimass4 6904 . . . . 5 ((Fun -us ∧ ( O ‘( bday 𝐴)) ⊆ dom -us ) → (( -us “ ( O ‘( bday 𝐴))) ⊆ No ↔ ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No ))
353, 33, 34mp2an 693 . . . 4 (( -us “ ( O ‘( bday 𝐴))) ⊆ No ↔ ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No )
3631, 35sylibr 234 . . 3 (𝜑 → ( -us “ ( O ‘( bday 𝐴))) ⊆ No )
3712, 36sstrid 3933 . 2 (𝜑 → ( -us “ ( R ‘𝐴)) ⊆ No )
38 leftssold 27863 . . . 4 ( L ‘𝐴) ⊆ ( O ‘( bday 𝐴))
39 imass2 6067 . . . 4 (( L ‘𝐴) ⊆ ( O ‘( bday 𝐴)) → ( -us “ ( L ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴))))
4038, 39ax-mp 5 . . 3 ( -us “ ( L ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴)))
4140, 36sstrid 3933 . 2 (𝜑 → ( -us “ ( L ‘𝐴)) ⊆ No )
42 rightssno 27866 . . . . . . 7 ( R ‘𝐴) ⊆ No
43 fvelimab 6912 . . . . . . 7 (( -us Fn No ∧ ( R ‘𝐴) ⊆ No ) → (𝑎 ∈ ( -us “ ( R ‘𝐴)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎))
441, 42, 43mp2an 693 . . . . . 6 (𝑎 ∈ ( -us “ ( R ‘𝐴)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎)
45 leftssno 27865 . . . . . . 7 ( L ‘𝐴) ⊆ No
46 fvelimab 6912 . . . . . . 7 (( -us Fn No ∧ ( L ‘𝐴) ⊆ No ) → (𝑏 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
471, 45, 46mp2an 693 . . . . . 6 (𝑏 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏)
4844, 47anbi12i 629 . . . . 5 ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) ↔ (∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎 ∧ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
49 reeanv 3209 . . . . 5 (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) ↔ (∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎 ∧ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
5048, 49bitr4i 278 . . . 4 ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏))
51 lltr 27854 . . . . . . . . 9 ( L ‘𝐴) <<s ( R ‘𝐴)
5251a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( L ‘𝐴) <<s ( R ‘𝐴))
53 simprr 773 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 ∈ ( L ‘𝐴))
54 simprl 771 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 ∈ ( R ‘𝐴))
5552, 53, 54sltssepcd 27764 . . . . . . 7 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 <s 𝑥𝑅)
5613adantr 480 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
5745sseli 3917 . . . . . . . . . 10 (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 No )
5857ad2antll 730 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 No )
5942sseli 3917 . . . . . . . . . . 11 (𝑥𝑅 ∈ ( R ‘𝐴) → 𝑥𝑅 No )
6059adantr 480 . . . . . . . . . 10 ((𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴)) → 𝑥𝑅 No )
6160adantl 481 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 No )
6238sseli 3917 . . . . . . . . . . . . 13 (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 ∈ ( O ‘( bday 𝐴)))
6362ad2antll 730 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 ∈ ( O ‘( bday 𝐴)))
64 oldbdayim 27881 . . . . . . . . . . . 12 (𝑥𝐿 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑥𝐿) ∈ ( bday 𝐴))
6563, 64syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( bday 𝑥𝐿) ∈ ( bday 𝐴))
6610a1i 11 . . . . . . . . . . . . . 14 (𝜑 → ( R ‘𝐴) ⊆ ( O ‘( bday 𝐴)))
6766sselda 3921 . . . . . . . . . . . . 13 ((𝜑𝑥𝑅 ∈ ( R ‘𝐴)) → 𝑥𝑅 ∈ ( O ‘( bday 𝐴)))
6867adantrr 718 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 ∈ ( O ‘( bday 𝐴)))
69 oldbdayim 27881 . . . . . . . . . . . 12 (𝑥𝑅 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑥𝑅) ∈ ( bday 𝐴))
7068, 69syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( bday 𝑥𝑅) ∈ ( bday 𝐴))
71 bdayon 27744 . . . . . . . . . . . 12 ( bday 𝑥𝐿) ∈ On
72 bdayon 27744 . . . . . . . . . . . 12 ( bday 𝑥𝑅) ∈ On
73 bdayon 27744 . . . . . . . . . . . 12 ( bday 𝐴) ∈ On
74 onunel 6430 . . . . . . . . . . . 12 ((( bday 𝑥𝐿) ∈ On ∧ ( bday 𝑥𝑅) ∈ On ∧ ( bday 𝐴) ∈ On) → ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) ↔ (( bday 𝑥𝐿) ∈ ( bday 𝐴) ∧ ( bday 𝑥𝑅) ∈ ( bday 𝐴))))
7571, 72, 73, 74mp3an 1464 . . . . . . . . . . 11 ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) ↔ (( bday 𝑥𝐿) ∈ ( bday 𝐴) ∧ ( bday 𝑥𝑅) ∈ ( bday 𝐴)))
7665, 70, 75sylanbrc 584 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴))
77 elun1 4122 . . . . . . . . . 10 ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
7876, 77syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
7956, 58, 61, 78negsproplem1 28020 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( -us𝑥𝐿) ∈ No ∧ (𝑥𝐿 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥𝐿))))
8079simprd 495 . . . . . . 7 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (𝑥𝐿 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥𝐿)))
8155, 80mpd 15 . . . . . 6 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( -us𝑥𝑅) <s ( -us𝑥𝐿))
82 breq12 5090 . . . . . 6 ((( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → (( -us𝑥𝑅) <s ( -us𝑥𝐿) ↔ 𝑎 <s 𝑏))
8381, 82syl5ibcom 245 . . . . 5 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ((( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → 𝑎 <s 𝑏))
8483rexlimdvva 3194 . . . 4 (𝜑 → (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → 𝑎 <s 𝑏))
8550, 84biimtrid 242 . . 3 (𝜑 → ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) → 𝑎 <s 𝑏))
86853impib 1117 . 2 ((𝜑𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) → 𝑎 <s 𝑏)
876, 9, 37, 41, 86sltsd 27760 1 (𝜑 → ( -us “ ( R ‘𝐴)) <<s ( -us “ ( L ‘𝐴)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wral 3051  wrex 3061  Vcvv 3429  cun 3887  wss 3889  c0 4273   class class class wbr 5085  dom cdm 5631  cima 5634  Oncon0 6323  Fun wfun 6492   Fn wfn 6493  cfv 6498   No csur 27603   <s clts 27604   bday cbday 27605   <<s cslts 27749   0s c0s 27797   O cold 27815   L cleft 27817   R cright 27818   -us cnegs 28011
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4851  df-int 4890  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-2nd 7943  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-1o 8405  df-2o 8406  df-no 27606  df-lts 27607  df-bday 27608  df-slts 27750  df-cuts 27752  df-0s 27799  df-made 27819  df-old 27820  df-left 27822  df-right 27823  df-norec 27930  df-negs 28013
This theorem is referenced by:  negsproplem3  28022
  Copyright terms: Public domain W3C validator