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

Theorem negsproplem2 28326
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 28320 . . . 4 -us Fn No
2 fnfun 6635 . . . 4 ( -us Fn No → Fun -us )
31, 2ax-mp 5 . . 3 Fun -us
4 fvex 6894 . . . 4 ( R ‘𝐴) ∈ V
54funimaex 6623 . . 3 (Fun -us → ( -us “ ( R ‘𝐴)) ∈ V)
63, 5mp1i 14 . 2 (𝜑 → ( -us “ ( R ‘𝐴)) ∈ V)
7 fvex 6894 . . . 4 ( L ‘𝐴) ∈ V
87funimaex 6623 . . 3 (Fun -us → ( -us “ ( L ‘𝐴)) ∈ V)
93, 8mp1i 14 . 2 (𝜑 → ( -us “ ( L ‘𝐴)) ∈ V)
10 rightssold 28169 . . . 4 ( R ‘𝐴) ⊆ ( O ‘( bday 𝐴))
11 imass2 6100 . . . 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 486 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
15 oldssno 28138 . . . . . . . . 9 ( O ‘( bday 𝐴)) ⊆ No
1615sseli 3927 . . . . . . . 8 (𝑎 ∈ ( O ‘( bday 𝐴)) → 𝑎 No )
1716adantl 487 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → 𝑎 No )
18 0no 28106 . . . . . . . 8 0s No
1918a1i 11 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → 0s No )
20 bday0 28108 . . . . . . . . . 10 ( bday ‘ 0s ) = ∅
2120uneq2i 4112 . . . . . . . . 9 (( bday 𝑎) ∪ ( bday ‘ 0s )) = (( bday 𝑎) ∪ ∅)
22 un0 4344 . . . . . . . . 9 (( bday 𝑎) ∪ ∅) = ( bday 𝑎)
2321, 22eqtri 2783 . . . . . . . 8 (( bday 𝑎) ∪ ( bday ‘ 0s )) = ( bday 𝑎)
24 oldbdayim 28186 . . . . . . . . . 10 (𝑎 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑎) ∈ ( bday 𝐴))
2524adantl 487 . . . . . . . . 9 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( bday 𝑎) ∈ ( bday 𝐴))
26 elun1 4128 . . . . . . . . 9 (( bday 𝑎) ∈ ( bday 𝐴) → ( bday 𝑎) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2725, 26syl 18 . . . . . . . 8 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( bday 𝑎) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2823, 27eqeltrid 2864 . . . . . . 7 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → (( bday 𝑎) ∪ ( bday ‘ 0s )) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2914, 17, 19, 28negsproplem1 28325 . . . . . 6 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → (( -us𝑎) ∈ No ∧ (𝑎 <s 0s → ( -us ‘ 0s ) <s ( -us𝑎))))
3029simpld 500 . . . . 5 ((𝜑𝑎 ∈ ( O ‘( bday 𝐴))) → ( -us𝑎) ∈ No )
3130ralrimiva 3154 . . . 4 (𝜑 → ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No )
321fndmi 6639 . . . . . 6 dom -us = No
3315, 32sseqtrri 3980 . . . . 5 ( O ‘( bday 𝐴)) ⊆ dom -us
34 funimass4 6945 . . . . 5 ((Fun -us ∧ ( O ‘( bday 𝐴)) ⊆ dom -us ) → (( -us “ ( O ‘( bday 𝐴))) ⊆ No ↔ ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No ))
353, 33, 34mp2an 705 . . . 4 (( -us “ ( O ‘( bday 𝐴))) ⊆ No ↔ ∀𝑎 ∈ ( O ‘( bday 𝐴))( -us𝑎) ∈ No )
3631, 35sylibr 237 . . 3 (𝜑 → ( -us “ ( O ‘( bday 𝐴))) ⊆ No )
3712, 36sstrid 3942 . 2 (𝜑 → ( -us “ ( R ‘𝐴)) ⊆ No )
38 leftssold 28168 . . . 4 ( L ‘𝐴) ⊆ ( O ‘( bday 𝐴))
39 imass2 6100 . . . 4 (( L ‘𝐴) ⊆ ( O ‘( bday 𝐴)) → ( -us “ ( L ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴))))
4038, 39ax-mp 5 . . 3 ( -us “ ( L ‘𝐴)) ⊆ ( -us “ ( O ‘( bday 𝐴)))
4140, 36sstrid 3942 . 2 (𝜑 → ( -us “ ( L ‘𝐴)) ⊆ No )
42 rightssno 28171 . . . . . . 7 ( R ‘𝐴) ⊆ No
43 fvelimab 6953 . . . . . . 7 (( -us Fn No ∧ ( R ‘𝐴) ⊆ No ) → (𝑎 ∈ ( -us “ ( R ‘𝐴)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎))
441, 42, 43mp2an 705 . . . . . 6 (𝑎 ∈ ( -us “ ( R ‘𝐴)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎)
45 leftssno 28170 . . . . . . 7 ( L ‘𝐴) ⊆ No
46 fvelimab 6953 . . . . . . 7 (( -us Fn No ∧ ( L ‘𝐴) ⊆ No ) → (𝑏 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
471, 45, 46mp2an 705 . . . . . 6 (𝑏 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏)
4844, 47anbi12i 640 . . . . 5 ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) ↔ (∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎 ∧ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
49 reeanv 3234 . . . . 5 (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) ↔ (∃𝑥𝑅 ∈ ( R ‘𝐴)( -us𝑥𝑅) = 𝑎 ∧ ∃𝑥𝐿 ∈ ( L ‘𝐴)( -us𝑥𝐿) = 𝑏))
5048, 49bitr4i 281 . . . 4 ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) ↔ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏))
51 lltr 28159 . . . . . . . . 9 ( L ‘𝐴) <<s ( R ‘𝐴)
5251a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( L ‘𝐴) <<s ( R ‘𝐴))
53 simprr 785 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 ∈ ( L ‘𝐴))
54 simprl 783 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 ∈ ( R ‘𝐴))
5552, 53, 54sltssepcd 28069 . . . . . . 7 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 <s 𝑥𝑅)
5613adantr 486 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
5745sseli 3927 . . . . . . . . . 10 (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 No )
5857ad2antll 742 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 No )
5942sseli 3927 . . . . . . . . . . 11 (𝑥𝑅 ∈ ( R ‘𝐴) → 𝑥𝑅 No )
6059adantr 486 . . . . . . . . . 10 ((𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴)) → 𝑥𝑅 No )
6160adantl 487 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 No )
6238sseli 3927 . . . . . . . . . . . . 13 (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 ∈ ( O ‘( bday 𝐴)))
6362ad2antll 742 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝐿 ∈ ( O ‘( bday 𝐴)))
64 oldbdayim 28186 . . . . . . . . . . . 12 (𝑥𝐿 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑥𝐿) ∈ ( bday 𝐴))
6563, 64syl 18 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( bday 𝑥𝐿) ∈ ( bday 𝐴))
6610a1i 11 . . . . . . . . . . . . . 14 (𝜑 → ( R ‘𝐴) ⊆ ( O ‘( bday 𝐴)))
6766sselda 3931 . . . . . . . . . . . . 13 ((𝜑𝑥𝑅 ∈ ( R ‘𝐴)) → 𝑥𝑅 ∈ ( O ‘( bday 𝐴)))
6867adantrr 730 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → 𝑥𝑅 ∈ ( O ‘( bday 𝐴)))
69 oldbdayim 28186 . . . . . . . . . . . 12 (𝑥𝑅 ∈ ( O ‘( bday 𝐴)) → ( bday 𝑥𝑅) ∈ ( bday 𝐴))
7068, 69syl 18 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( bday 𝑥𝑅) ∈ ( bday 𝐴))
71 bdayon 28049 . . . . . . . . . . . 12 ( bday 𝑥𝐿) ∈ On
72 bdayon 28049 . . . . . . . . . . . 12 ( bday 𝑥𝑅) ∈ On
73 bdayon 28049 . . . . . . . . . . . 12 ( bday 𝐴) ∈ On
74 onunel 6467 . . . . . . . . . . . 12 ((( bday 𝑥𝐿) ∈ On ∧ ( bday 𝑥𝑅) ∈ On ∧ ( bday 𝐴) ∈ On) → ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) ↔ (( bday 𝑥𝐿) ∈ ( bday 𝐴) ∧ ( bday 𝑥𝑅) ∈ ( bday 𝐴))))
7571, 72, 73, 74mp3an 1490 . . . . . . . . . . 11 ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) ↔ (( bday 𝑥𝐿) ∈ ( bday 𝐴) ∧ ( bday 𝑥𝑅) ∈ ( bday 𝐴)))
7665, 70, 75sylanbrc 595 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴))
77 elun1 4128 . . . . . . . . . 10 ((( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ ( bday 𝐴) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
7876, 77syl 18 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( bday 𝑥𝐿) ∪ ( bday 𝑥𝑅)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
7956, 58, 61, 78negsproplem1 28325 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (( -us𝑥𝐿) ∈ No ∧ (𝑥𝐿 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥𝐿))))
8079simprd 501 . . . . . . 7 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → (𝑥𝐿 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥𝐿)))
8155, 80mpd 16 . . . . . 6 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ( -us𝑥𝑅) <s ( -us𝑥𝐿))
82 breq12 5108 . . . . . 6 ((( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → (( -us𝑥𝑅) <s ( -us𝑥𝐿) ↔ 𝑎 <s 𝑏))
8381, 82syl5ibcom 248 . . . . 5 ((𝜑 ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑥𝐿 ∈ ( L ‘𝐴))) → ((( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → 𝑎 <s 𝑏))
8483rexlimdvva 3219 . . . 4 (𝜑 → (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑥𝐿 ∈ ( L ‘𝐴)(( -us𝑥𝑅) = 𝑎 ∧ ( -us𝑥𝐿) = 𝑏) → 𝑎 <s 𝑏))
8550, 84biimtrid 245 . . 3 (𝜑 → ((𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) → 𝑎 <s 𝑏))
86853impib 1134 . 2 ((𝜑𝑎 ∈ ( -us “ ( R ‘𝐴)) ∧ 𝑏 ∈ ( -us “ ( L ‘𝐴))) → 𝑎 <s 𝑏)
876, 9, 37, 41, 86sltsd 28065 1 (𝜑 → ( -us “ ( R ‘𝐴)) <<s ( -us “ ( L ‘𝐴)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401   = wceq 1570  wcel 2145  wral 3076  wrex 3086  Vcvv 3450  cun 3897  wss 3899  c0 4279   class class class wbr 5103  dom cdm 5655  cima 5658  Oncon0 6359  Fun wfun 6529   Fn wfn 6530  cfv 6535   No csur 27908   <s clts 27909   bday cbday 27910   <<s cslts 28054   0s c0s 28102   O cold 28120   L cleft 28122   R cright 28123   -us cnegs 28316
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7742
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6301  df-ord 6362  df-on 6363  df-suc 6365  df-iota 6491  df-fun 6537  df-fn 6538  df-f 6539  df-f1 6540  df-fo 6541  df-f1o 6542  df-fv 6543  df-riota 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-2nd 7993  df-frecs 8285  df-wrecs 8316  df-recs 8365  df-1o 8462  df-2o 8463  df-no 27911  df-lts 27912  df-bday 27913  df-slts 28055  df-cuts 28057  df-0s 28104  df-made 28124  df-old 28125  df-left 28127  df-right 28128  df-norec 28235  df-negs 28318
This theorem is used by:  negsproplem3  28327
  Copyright terms: Public domain W3C validator