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

Theorem negsproplem6 28065
Description: Lemma for surreal negation. Show the second half of the inductive hypothesis when 𝐴 is the same age as 𝐵. (Contributed by Scott Fenton, 3-Feb-2025.)
Hypotheses
Ref Expression
negsproplem.1 (𝜑 → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
negsproplem4.1 (𝜑𝐴 No )
negsproplem4.2 (𝜑𝐵 No )
negsproplem4.3 (𝜑𝐴 <s 𝐵)
negsproplem6.4 (𝜑 → ( bday 𝐴) = ( bday 𝐵))
Assertion
Ref Expression
negsproplem6 (𝜑 → ( -us𝐵) <s ( -us𝐴))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦
Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem negsproplem6
Dummy variable 𝑑 is distinct from all other variables.
StepHypRef Expression
1 negsproplem4.1 . . 3 (𝜑𝐴 No )
2 negsproplem4.2 . . 3 (𝜑𝐵 No )
3 negsproplem6.4 . . 3 (𝜑 → ( bday 𝐴) = ( bday 𝐵))
4 negsproplem4.3 . . 3 (𝜑𝐴 <s 𝐵)
5 nodense 27737 . . 3 (((𝐴 No 𝐵 No ) ∧ (( bday 𝐴) = ( bday 𝐵) ∧ 𝐴 <s 𝐵)) → ∃𝑑 No (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))
61, 2, 3, 4, 5syl22anc 839 . 2 (𝜑 → ∃𝑑 No (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))
7 negsproplem.1 . . . . . . 7 (𝜑 → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
8 uncom 4158 . . . . . . . . . 10 (( bday 𝐴) ∪ ( bday 𝐵)) = (( bday 𝐵) ∪ ( bday 𝐴))
98eleq2i 2833 . . . . . . . . 9 ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) ↔ (( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐵) ∪ ( bday 𝐴)))
109imbi1i 349 . . . . . . . 8 (((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))) ↔ ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐵) ∪ ( bday 𝐴)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
11102ralbii 3128 . . . . . . 7 (∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))) ↔ ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐵) ∪ ( bday 𝐴)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
127, 11sylib 218 . . . . . 6 (𝜑 → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐵) ∪ ( bday 𝐴)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
1312, 2negsproplem3 28062 . . . . 5 (𝜑 → (( -us𝐵) ∈ No ∧ ( -us “ ( R ‘𝐵)) <<s {( -us𝐵)} ∧ {( -us𝐵)} <<s ( -us “ ( L ‘𝐵))))
1413simp1d 1143 . . . 4 (𝜑 → ( -us𝐵) ∈ No )
1514adantr 480 . . 3 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝐵) ∈ No )
167adantr 480 . . . . 5 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ∀𝑥 No 𝑦 No ((( bday 𝑥) ∪ ( bday 𝑦)) ∈ (( bday 𝐴) ∪ ( bday 𝐵)) → (( -us𝑥) ∈ No ∧ (𝑥 <s 𝑦 → ( -us𝑦) <s ( -us𝑥)))))
17 simprl 771 . . . . 5 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝑑 No )
18 0sno 27871 . . . . . 6 0s No
1918a1i 11 . . . . 5 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 0s No )
20 bday0s 27873 . . . . . . . 8 ( bday ‘ 0s ) = ∅
2120uneq2i 4165 . . . . . . 7 (( bday 𝑑) ∪ ( bday ‘ 0s )) = (( bday 𝑑) ∪ ∅)
22 un0 4394 . . . . . . 7 (( bday 𝑑) ∪ ∅) = ( bday 𝑑)
2321, 22eqtri 2765 . . . . . 6 (( bday 𝑑) ∪ ( bday ‘ 0s )) = ( bday 𝑑)
24 simprr1 1222 . . . . . . 7 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( bday 𝑑) ∈ ( bday 𝐴))
25 elun1 4182 . . . . . . 7 (( bday 𝑑) ∈ ( bday 𝐴) → ( bday 𝑑) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2624, 25syl 17 . . . . . 6 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( bday 𝑑) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2723, 26eqeltrid 2845 . . . . 5 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → (( bday 𝑑) ∪ ( bday ‘ 0s )) ∈ (( bday 𝐴) ∪ ( bday 𝐵)))
2816, 17, 19, 27negsproplem1 28060 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → (( -us𝑑) ∈ No ∧ (𝑑 <s 0s → ( -us ‘ 0s ) <s ( -us𝑑))))
2928simpld 494 . . 3 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝑑) ∈ No )
307, 1negsproplem3 28062 . . . . 5 (𝜑 → (( -us𝐴) ∈ No ∧ ( -us “ ( R ‘𝐴)) <<s {( -us𝐴)} ∧ {( -us𝐴)} <<s ( -us “ ( L ‘𝐴))))
3130simp1d 1143 . . . 4 (𝜑 → ( -us𝐴) ∈ No )
3231adantr 480 . . 3 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝐴) ∈ No )
3313simp3d 1145 . . . . 5 (𝜑 → {( -us𝐵)} <<s ( -us “ ( L ‘𝐵)))
3433adantr 480 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → {( -us𝐵)} <<s ( -us “ ( L ‘𝐵)))
35 fvex 6919 . . . . . 6 ( -us𝐵) ∈ V
3635snid 4662 . . . . 5 ( -us𝐵) ∈ {( -us𝐵)}
3736a1i 11 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝐵) ∈ {( -us𝐵)})
38 negsfn 28055 . . . . 5 -us Fn No
39 leftssno 27919 . . . . 5 ( L ‘𝐵) ⊆ No
40 bdayelon 27821 . . . . . . . . 9 ( bday 𝐴) ∈ On
41 oldbday 27939 . . . . . . . . 9 ((( bday 𝐴) ∈ On ∧ 𝑑 No ) → (𝑑 ∈ ( O ‘( bday 𝐴)) ↔ ( bday 𝑑) ∈ ( bday 𝐴)))
4240, 17, 41sylancr 587 . . . . . . . 8 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → (𝑑 ∈ ( O ‘( bday 𝐴)) ↔ ( bday 𝑑) ∈ ( bday 𝐴)))
4324, 42mpbird 257 . . . . . . 7 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝑑 ∈ ( O ‘( bday 𝐴)))
443fveq2d 6910 . . . . . . . 8 (𝜑 → ( O ‘( bday 𝐴)) = ( O ‘( bday 𝐵)))
4544adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( O ‘( bday 𝐴)) = ( O ‘( bday 𝐵)))
4643, 45eleqtrd 2843 . . . . . 6 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝑑 ∈ ( O ‘( bday 𝐵)))
47 simprr3 1224 . . . . . 6 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝑑 <s 𝐵)
48 leftval 27902 . . . . . . 7 ( L ‘𝐵) = {𝑑 ∈ ( O ‘( bday 𝐵)) ∣ 𝑑 <s 𝐵}
4948reqabi 3460 . . . . . 6 (𝑑 ∈ ( L ‘𝐵) ↔ (𝑑 ∈ ( O ‘( bday 𝐵)) ∧ 𝑑 <s 𝐵))
5046, 47, 49sylanbrc 583 . . . . 5 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝑑 ∈ ( L ‘𝐵))
51 fnfvima 7253 . . . . 5 (( -us Fn No ∧ ( L ‘𝐵) ⊆ No 𝑑 ∈ ( L ‘𝐵)) → ( -us𝑑) ∈ ( -us “ ( L ‘𝐵)))
5238, 39, 50, 51mp3an12i 1467 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝑑) ∈ ( -us “ ( L ‘𝐵)))
5334, 37, 52ssltsepcd 27839 . . 3 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝐵) <s ( -us𝑑))
5430simp2d 1144 . . . . 5 (𝜑 → ( -us “ ( R ‘𝐴)) <<s {( -us𝐴)})
5554adantr 480 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us “ ( R ‘𝐴)) <<s {( -us𝐴)})
56 rightssno 27920 . . . . 5 ( R ‘𝐴) ⊆ No
57 simprr2 1223 . . . . . 6 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝐴 <s 𝑑)
58 rightval 27903 . . . . . . 7 ( R ‘𝐴) = {𝑑 ∈ ( O ‘( bday 𝐴)) ∣ 𝐴 <s 𝑑}
5958reqabi 3460 . . . . . 6 (𝑑 ∈ ( R ‘𝐴) ↔ (𝑑 ∈ ( O ‘( bday 𝐴)) ∧ 𝐴 <s 𝑑))
6043, 57, 59sylanbrc 583 . . . . 5 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → 𝑑 ∈ ( R ‘𝐴))
61 fnfvima 7253 . . . . 5 (( -us Fn No ∧ ( R ‘𝐴) ⊆ No 𝑑 ∈ ( R ‘𝐴)) → ( -us𝑑) ∈ ( -us “ ( R ‘𝐴)))
6238, 56, 60, 61mp3an12i 1467 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝑑) ∈ ( -us “ ( R ‘𝐴)))
63 fvex 6919 . . . . . 6 ( -us𝐴) ∈ V
6463snid 4662 . . . . 5 ( -us𝐴) ∈ {( -us𝐴)}
6564a1i 11 . . . 4 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝐴) ∈ {( -us𝐴)})
6655, 62, 65ssltsepcd 27839 . . 3 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝑑) <s ( -us𝐴))
6715, 29, 32, 53, 66slttrd 27804 . 2 ((𝜑 ∧ (𝑑 No ∧ (( bday 𝑑) ∈ ( bday 𝐴) ∧ 𝐴 <s 𝑑𝑑 <s 𝐵))) → ( -us𝐵) <s ( -us𝐴))
686, 67rexlimddv 3161 1 (𝜑 → ( -us𝐵) <s ( -us𝐴))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1087   = wceq 1540  wcel 2108  wral 3061  wrex 3070  cun 3949  wss 3951  c0 4333  {csn 4626   class class class wbr 5143  cima 5688  Oncon0 6384   Fn wfn 6556  cfv 6561   No csur 27684   <s cslt 27685   bday cbday 27686   <<s csslt 27825   0s c0s 27867   O cold 27882   L cleft 27884   R cright 27885   -us cnegs 28051
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-tp 4631  df-op 4633  df-uni 4908  df-int 4947  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-se 5638  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-1o 8506  df-2o 8507  df-no 27687  df-slt 27688  df-bday 27689  df-sslt 27826  df-scut 27828  df-0s 27869  df-made 27886  df-old 27887  df-left 27889  df-right 27890  df-norec 27971  df-negs 28053
This theorem is referenced by:  negsproplem7  28066
  Copyright terms: Public domain W3C validator