Theorem negright 28230

Description: The right set of the negative of a surreal is the set of negatives of its left set. (Contributed by Scott Fenton, 21-Feb-2026.)

Assertion

Ref	Expression
negright	⊢ (𝐴 ∈ No → ( R ‘( -us ‘𝐴)) = ( -us “ ( L ‘𝐴)))

Proof of Theorem negright

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveqeq2 6892	. . . . . 6 ⊢ (𝑦 = ( -us ‘𝑥) → (( -us ‘𝑦) = 𝑥 ↔ ( -us ‘( -us ‘𝑥)) = 𝑥))
2		rightold 28047	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ( R ‘( -us ‘𝐴)) → 𝑥 ∈ ( O ‘( bday ‘( -us ‘𝐴))))
3	2	adantl 486	. . . . . . . . . 10 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → 𝑥 ∈ ( O ‘( bday ‘( -us ‘𝐴))))
4		bdayon 27923	. . . . . . . . . . 11 ⊢ ( bday ‘( -us ‘𝐴)) ∈ On
5		rightno 28049	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ ( R ‘( -us ‘𝐴)) → 𝑥 ∈ No )
6	5	adantl 486	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → 𝑥 ∈ No )
7		oldbday 28072	. . . . . . . . . . 11 ⊢ ((( bday ‘( -us ‘𝐴)) ∈ On ∧ 𝑥 ∈ No ) → (𝑥 ∈ ( O ‘( bday ‘( -us ‘𝐴))) ↔ ( bday ‘𝑥) ∈ ( bday ‘( -us ‘𝐴))))
8	4, 6, 7	sylancr 598	. . . . . . . . . 10 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → (𝑥 ∈ ( O ‘( bday ‘( -us ‘𝐴))) ↔ ( bday ‘𝑥) ∈ ( bday ‘( -us ‘𝐴))))
9	3, 8	mpbid 235	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( bday ‘𝑥) ∈ ( bday ‘( -us ‘𝐴)))
10		negbday 28228	. . . . . . . . . 10 ⊢ (𝑥 ∈ No → ( bday ‘( -us ‘𝑥)) = ( bday ‘𝑥))
11	6, 10	syl 18	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( bday ‘( -us ‘𝑥)) = ( bday ‘𝑥))
12		negbday 28228	. . . . . . . . . . 11 ⊢ (𝐴 ∈ No → ( bday ‘( -us ‘𝐴)) = ( bday ‘𝐴))
13	12	adantr 485	. . . . . . . . . 10 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( bday ‘( -us ‘𝐴)) = ( bday ‘𝐴))
14	13	eqcomd 2769	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( bday ‘𝐴) = ( bday ‘( -us ‘𝐴)))
15	9, 11, 14	3eltr4d 2878	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( bday ‘( -us ‘𝑥)) ∈ ( bday ‘𝐴))
16		bdayon 27923	. . . . . . . . 9 ⊢ ( bday ‘𝐴) ∈ On
17	6	negscld 28208	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝑥) ∈ No )
18		oldbday 28072	. . . . . . . . 9 ⊢ ((( bday ‘𝐴) ∈ On ∧ ( -us ‘𝑥) ∈ No ) → (( -us ‘𝑥) ∈ ( O ‘( bday ‘𝐴)) ↔ ( bday ‘( -us ‘𝑥)) ∈ ( bday ‘𝐴)))
19	16, 17, 18	sylancr 598	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → (( -us ‘𝑥) ∈ ( O ‘( bday ‘𝐴)) ↔ ( bday ‘( -us ‘𝑥)) ∈ ( bday ‘𝐴)))
20	15, 19	mpbird 260	. . . . . . 7 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝑥) ∈ ( O ‘( bday ‘𝐴)))
21		rightgt 28025	. . . . . . . . . 10 ⊢ (𝑥 ∈ ( R ‘( -us ‘𝐴)) → ( -us ‘𝐴) <s 𝑥)
22	21	adantl 486	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝐴) <s 𝑥)
23		simpl 487	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → 𝐴 ∈ No )
24	23	negscld 28208	. . . . . . . . . 10 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝐴) ∈ No )
25	24, 6	ltnegsd 28218	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → (( -us ‘𝐴) <s 𝑥 ↔ ( -us ‘𝑥) <s ( -us ‘( -us ‘𝐴))))
26	22, 25	mpbid 235	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝑥) <s ( -us ‘( -us ‘𝐴)))
27		negnegs 28215	. . . . . . . . 9 ⊢ (𝐴 ∈ No → ( -us ‘( -us ‘𝐴)) = 𝐴)
28	27	adantr 485	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘( -us ‘𝐴)) = 𝐴)
29	26, 28	breqtrd 5138	. . . . . . 7 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝑥) <s 𝐴)
30		elleft 28022	. . . . . . 7 ⊢ (( -us ‘𝑥) ∈ ( L ‘𝐴) ↔ (( -us ‘𝑥) ∈ ( O ‘( bday ‘𝐴)) ∧ ( -us ‘𝑥) <s 𝐴))
31	20, 29, 30	sylanbrc 594	. . . . . 6 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘𝑥) ∈ ( L ‘𝐴))
32		negnegs 28215	. . . . . . 7 ⊢ (𝑥 ∈ No → ( -us ‘( -us ‘𝑥)) = 𝑥)
33	6, 32	syl 18	. . . . . 6 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ( -us ‘( -us ‘𝑥)) = 𝑥)
34	1, 31, 33	rspcedvdw 3585	. . . . 5 ⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ ( R ‘( -us ‘𝐴))) → ∃𝑦 ∈ ( L ‘𝐴)( -us ‘𝑦) = 𝑥)
35	34	ex 417	. . . 4 ⊢ (𝐴 ∈ No → (𝑥 ∈ ( R ‘( -us ‘𝐴)) → ∃𝑦 ∈ ( L ‘𝐴)( -us ‘𝑦) = 𝑥))
36		leftold 28046	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ( L ‘𝐴) → 𝑦 ∈ ( O ‘( bday ‘𝐴)))
37	36	adantl 486	. . . . . . . . . 10 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → 𝑦 ∈ ( O ‘( bday ‘𝐴)))
38		leftno 28048	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ( L ‘𝐴) → 𝑦 ∈ No )
39	38	adantl 486	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → 𝑦 ∈ No )
40		oldbday 28072	. . . . . . . . . . 11 ⊢ ((( bday ‘𝐴) ∈ On ∧ 𝑦 ∈ No ) → (𝑦 ∈ ( O ‘( bday ‘𝐴)) ↔ ( bday ‘𝑦) ∈ ( bday ‘𝐴)))
41	16, 39, 40	sylancr 598	. . . . . . . . . 10 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → (𝑦 ∈ ( O ‘( bday ‘𝐴)) ↔ ( bday ‘𝑦) ∈ ( bday ‘𝐴)))
42	37, 41	mpbid 235	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( bday ‘𝑦) ∈ ( bday ‘𝐴))
43		negbday 28228	. . . . . . . . . 10 ⊢ (𝑦 ∈ No → ( bday ‘( -us ‘𝑦)) = ( bday ‘𝑦))
44	39, 43	syl 18	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( bday ‘( -us ‘𝑦)) = ( bday ‘𝑦))
45	12	adantr 485	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( bday ‘( -us ‘𝐴)) = ( bday ‘𝐴))
46	42, 44, 45	3eltr4d 2878	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( bday ‘( -us ‘𝑦)) ∈ ( bday ‘( -us ‘𝐴)))
47	39	negscld 28208	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( -us ‘𝑦) ∈ No )
48		oldbday 28072	. . . . . . . . 9 ⊢ ((( bday ‘( -us ‘𝐴)) ∈ On ∧ ( -us ‘𝑦) ∈ No ) → (( -us ‘𝑦) ∈ ( O ‘( bday ‘( -us ‘𝐴))) ↔ ( bday ‘( -us ‘𝑦)) ∈ ( bday ‘( -us ‘𝐴))))
49	4, 47, 48	sylancr 598	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → (( -us ‘𝑦) ∈ ( O ‘( bday ‘( -us ‘𝐴))) ↔ ( bday ‘( -us ‘𝑦)) ∈ ( bday ‘( -us ‘𝐴))))
50	46, 49	mpbird 260	. . . . . . 7 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( -us ‘𝑦) ∈ ( O ‘( bday ‘( -us ‘𝐴))))
51		leftlt 28024	. . . . . . . . 9 ⊢ (𝑦 ∈ ( L ‘𝐴) → 𝑦 <s 𝐴)
52	51	adantl 486	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → 𝑦 <s 𝐴)
53		simpl 487	. . . . . . . . 9 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → 𝐴 ∈ No )
54	39, 53	ltnegsd 28218	. . . . . . . 8 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → (𝑦 <s 𝐴 ↔ ( -us ‘𝐴) <s ( -us ‘𝑦)))
55	52, 54	mpbid 235	. . . . . . 7 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( -us ‘𝐴) <s ( -us ‘𝑦))
56		elright 28023	. . . . . . 7 ⊢ (( -us ‘𝑦) ∈ ( R ‘( -us ‘𝐴)) ↔ (( -us ‘𝑦) ∈ ( O ‘( bday ‘( -us ‘𝐴))) ∧ ( -us ‘𝐴) <s ( -us ‘𝑦)))
57	50, 55, 56	sylanbrc 594	. . . . . 6 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → ( -us ‘𝑦) ∈ ( R ‘( -us ‘𝐴)))
58		eleq1 2851	. . . . . 6 ⊢ (( -us ‘𝑦) = 𝑥 → (( -us ‘𝑦) ∈ ( R ‘( -us ‘𝐴)) ↔ 𝑥 ∈ ( R ‘( -us ‘𝐴))))
59	57, 58	syl5ibcom 248	. . . . 5 ⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ ( L ‘𝐴)) → (( -us ‘𝑦) = 𝑥 → 𝑥 ∈ ( R ‘( -us ‘𝐴))))
60	59	rexlimdva 3166	. . . 4 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ ( L ‘𝐴)( -us ‘𝑦) = 𝑥 → 𝑥 ∈ ( R ‘( -us ‘𝐴))))
61	35, 60	impbid 215	. . 3 ⊢ (𝐴 ∈ No → (𝑥 ∈ ( R ‘( -us ‘𝐴)) ↔ ∃𝑦 ∈ ( L ‘𝐴)( -us ‘𝑦) = 𝑥))
62		negsfn 28194	. . . 4 ⊢ -us Fn No
63		leftssno 28044	. . . 4 ⊢ ( L ‘𝐴) ⊆ No
64		fvelimab 6955	. . . 4 ⊢ (( -us Fn No ∧ ( L ‘𝐴) ⊆ No ) → (𝑥 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑦 ∈ ( L ‘𝐴)( -us ‘𝑦) = 𝑥))
65	62, 63, 64	mp2an 704	. . 3 ⊢ (𝑥 ∈ ( -us “ ( L ‘𝐴)) ↔ ∃𝑦 ∈ ( L ‘𝐴)( -us ‘𝑦) = 𝑥)
66	61, 65	bitr4di 292	. 2 ⊢ (𝐴 ∈ No → (𝑥 ∈ ( R ‘( -us ‘𝐴)) ↔ 𝑥 ∈ ( -us “ ( L ‘𝐴))))
67	66	eqrdv 2761	1 ⊢ (𝐴 ∈ No → ( R ‘( -us ‘𝐴)) = ( -us “ ( L ‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1570   ∈ wcel 2143  ∃wrex 3089   ⊆ wss 3906   class class class wbr 5110   “ cima 5666  Oncon0 6362   Fn wfn 6533  ‘cfv 6538   No csur 27782   <s clts 27783   bday cbday 27784   O cold 27994   L cleft 27996   R cright 27997   -u_s cnegs 28190

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-tp 4595  df-op 4597  df-ot 4599  df-uni 4874  df-int 4914  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7987  df-2nd 7988  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-1o 8454  df-2o 8455  df-nadd 8653  df-no 27785  df-lts 27786  df-bday 27787  df-les 27887  df-slts 27929  df-cuts 27931  df-0s 27978  df-made 27998  df-old 27999  df-left 28001  df-right 28002  df-norec 28109  df-norec2 28120  df-adds 28131  df-negs 28192

This theorem is referenced by: (None)