Theorem addhalfcut 28334

Description: The cut of a surreal non-negative integer and its successor is the original number plus one half. Part of theorem 4.2 of [Gonshor] p. 30. (Contributed by Scott Fenton, 13-Aug-2025.)

Hypothesis

Ref	Expression
addhalfcut.1	⊢ (𝜑 → 𝐴 ∈ ℕ0s)

Assertion

Ref	Expression
addhalfcut	⊢ (𝜑 → ({𝐴} |s {(𝐴 +s 1s )}) = (𝐴 +s ( 1s /su 2s)))

Proof of Theorem addhalfcut

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

Step	Hyp	Ref	Expression
1		addhalfcut.1	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℕ0s)
2	1	n0snod 28218	. . 3 ⊢ (𝜑 → 𝐴 ∈ No )
3		1sno 27739	. . . . 5 ⊢ 1s ∈ No
4	3	a1i 11	. . . 4 ⊢ (𝜑 → 1s ∈ No )
5	2, 4	addscld 27887	. . 3 ⊢ (𝜑 → (𝐴 +s 1s ) ∈ No )
6	2	sltp1d 27922	. . 3 ⊢ (𝜑 → 𝐴 <s (𝐴 +s 1s ))
7		no2times 28303	. . . . . . 7 ⊢ (𝐴 ∈ No → (2s ·s 𝐴) = (𝐴 +s 𝐴))
8	2, 7	syl 17	. . . . . 6 ⊢ (𝜑 → (2s ·s 𝐴) = (𝐴 +s 𝐴))
9	8	oveq1d 7402	. . . . 5 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) = ((𝐴 +s 𝐴) +s 1s ))
10	2, 2, 4	addsassd 27913	. . . . 5 ⊢ (𝜑 → ((𝐴 +s 𝐴) +s 1s ) = (𝐴 +s (𝐴 +s 1s )))
11	9, 10	eqtr2d 2765	. . . 4 ⊢ (𝜑 → (𝐴 +s (𝐴 +s 1s )) = ((2s ·s 𝐴) +s 1s ))
12		2nns 28304	. . . . . . . . . 10 ⊢ 2s ∈ ℕs
13		nnn0s 28220	. . . . . . . . . 10 ⊢ (2s ∈ ℕs → 2s ∈ ℕ0s)
14	12, 13	ax-mp 5	. . . . . . . . 9 ⊢ 2s ∈ ℕ0s
15	14	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 2s ∈ ℕ0s)
16		n0mulscl 28237	. . . . . . . 8 ⊢ ((2s ∈ ℕ0s ∧ 𝐴 ∈ ℕ0s) → (2s ·s 𝐴) ∈ ℕ0s)
17	15, 1, 16	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (2s ·s 𝐴) ∈ ℕ0s)
18		1n0s 28240	. . . . . . . 8 ⊢ 1s ∈ ℕ0s
19	18	a1i 11	. . . . . . 7 ⊢ (𝜑 → 1s ∈ ℕ0s)
20		n0addscl 28236	. . . . . . 7 ⊢ (((2s ·s 𝐴) ∈ ℕ0s ∧ 1s ∈ ℕ0s) → ((2s ·s 𝐴) +s 1s ) ∈ ℕ0s)
21	17, 19, 20	syl2anc 584	. . . . . 6 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) ∈ ℕ0s)
22		n0scut 28226	. . . . . 6 ⊢ (((2s ·s 𝐴) +s 1s ) ∈ ℕ0s → ((2s ·s 𝐴) +s 1s ) = ({(((2s ·s 𝐴) +s 1s ) -s 1s )} |s ∅))
23	21, 22	syl 17	. . . . 5 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) = ({(((2s ·s 𝐴) +s 1s ) -s 1s )} |s ∅))
24		2sno 28305	. . . . . . . . . 10 ⊢ 2s ∈ No
25	24	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 2s ∈ No )
26	25, 2	mulscld 28038	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ∈ No )
27		pncans 27976	. . . . . . . 8 ⊢ (((2s ·s 𝐴) ∈ No ∧ 1s ∈ No ) → (((2s ·s 𝐴) +s 1s ) -s 1s ) = (2s ·s 𝐴))
28	26, 4, 27	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (((2s ·s 𝐴) +s 1s ) -s 1s ) = (2s ·s 𝐴))
29	28	sneqd 4601	. . . . . 6 ⊢ (𝜑 → {(((2s ·s 𝐴) +s 1s ) -s 1s )} = {(2s ·s 𝐴)})
30	29	oveq1d 7402	. . . . 5 ⊢ (𝜑 → ({(((2s ·s 𝐴) +s 1s ) -s 1s )} |s ∅) = ({(2s ·s 𝐴)} |s ∅))
31	23, 30	eqtrd 2764	. . . 4 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) = ({(2s ·s 𝐴)} |s ∅))
32		snelpwi 5403	. . . . . 6 ⊢ ((2s ·s 𝐴) ∈ No → {(2s ·s 𝐴)} ∈ 𝒫 No )
33		nulssgt 27710	. . . . . 6 ⊢ ({(2s ·s 𝐴)} ∈ 𝒫 No → {(2s ·s 𝐴)} <<s ∅)
34	26, 32, 33	3syl 18	. . . . 5 ⊢ (𝜑 → {(2s ·s 𝐴)} <<s ∅)
35		slerflex 27675	. . . . . . 7 ⊢ ((2s ·s 𝐴) ∈ No → (2s ·s 𝐴) ≤s (2s ·s 𝐴))
36	26, 35	syl 17	. . . . . 6 ⊢ (𝜑 → (2s ·s 𝐴) ≤s (2s ·s 𝐴))
37		ovex 7420	. . . . . . . . 9 ⊢ (2s ·s 𝐴) ∈ V
38		breq2 5111	. . . . . . . . 9 ⊢ (𝑦 = (2s ·s 𝐴) → (𝑥 ≤s 𝑦 ↔ 𝑥 ≤s (2s ·s 𝐴)))
39	37, 38	rexsn 4646	. . . . . . . 8 ⊢ (∃𝑦 ∈ {(2s ·s 𝐴)}𝑥 ≤s 𝑦 ↔ 𝑥 ≤s (2s ·s 𝐴))
40	39	ralbii 3075	. . . . . . 7 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(2s ·s 𝐴)}𝑥 ≤s 𝑦 ↔ ∀𝑥 ∈ {(2s ·s 𝐴)}𝑥 ≤s (2s ·s 𝐴))
41		breq1 5110	. . . . . . . 8 ⊢ (𝑥 = (2s ·s 𝐴) → (𝑥 ≤s (2s ·s 𝐴) ↔ (2s ·s 𝐴) ≤s (2s ·s 𝐴)))
42	37, 41	ralsn 4645	. . . . . . 7 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}𝑥 ≤s (2s ·s 𝐴) ↔ (2s ·s 𝐴) ≤s (2s ·s 𝐴))
43	40, 42	bitri 275	. . . . . 6 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(2s ·s 𝐴)}𝑥 ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (2s ·s 𝐴))
44	36, 43	sylibr 234	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(2s ·s 𝐴)}𝑥 ≤s 𝑦)
45		ral0 4476	. . . . . 6 ⊢ ∀𝑥 ∈ ∅ ∃𝑦 ∈ {(2s ·s (𝐴 +s 1s ))}𝑦 ≤s 𝑥
46	45	a1i 11	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ ∅ ∃𝑦 ∈ {(2s ·s (𝐴 +s 1s ))}𝑦 ≤s 𝑥)
47	26, 4	addscld 27887	. . . . . . 7 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) ∈ No )
48	26	sltp1d 27922	. . . . . . 7 ⊢ (𝜑 → (2s ·s 𝐴) <s ((2s ·s 𝐴) +s 1s ))
49	26, 47, 48	ssltsn 27704	. . . . . 6 ⊢ (𝜑 → {(2s ·s 𝐴)} <<s {((2s ·s 𝐴) +s 1s )})
50	31	sneqd 4601	. . . . . 6 ⊢ (𝜑 → {((2s ·s 𝐴) +s 1s )} = {({(2s ·s 𝐴)} |s ∅)})
51	49, 50	breqtrd 5133	. . . . 5 ⊢ (𝜑 → {(2s ·s 𝐴)} <<s {({(2s ·s 𝐴)} |s ∅)})
52	25, 5	mulscld 28038	. . . . . . 7 ⊢ (𝜑 → (2s ·s (𝐴 +s 1s )) ∈ No )
53	4	sltp1d 27922	. . . . . . . . . 10 ⊢ (𝜑 → 1s <s ( 1s +s 1s ))
54		1p1e2s 28302	. . . . . . . . . 10 ⊢ ( 1s +s 1s ) = 2s
55	53, 54	breqtrdi 5148	. . . . . . . . 9 ⊢ (𝜑 → 1s <s 2s)
56	4, 25, 26	sltadd2d 27904	. . . . . . . . 9 ⊢ (𝜑 → ( 1s <s 2s ↔ ((2s ·s 𝐴) +s 1s ) <s ((2s ·s 𝐴) +s 2s)))
57	55, 56	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) <s ((2s ·s 𝐴) +s 2s))
58	25, 2, 4	addsdid 28059	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s (𝐴 +s 1s )) = ((2s ·s 𝐴) +s (2s ·s 1s )))
59		mulsrid 28016	. . . . . . . . . . 11 ⊢ (2s ∈ No → (2s ·s 1s ) = 2s)
60	24, 59	ax-mp 5	. . . . . . . . . 10 ⊢ (2s ·s 1s ) = 2s
61	60	oveq2i 7398	. . . . . . . . 9 ⊢ ((2s ·s 𝐴) +s (2s ·s 1s )) = ((2s ·s 𝐴) +s 2s)
62	58, 61	eqtrdi 2780	. . . . . . . 8 ⊢ (𝜑 → (2s ·s (𝐴 +s 1s )) = ((2s ·s 𝐴) +s 2s))
63	57, 62	breqtrrd 5135	. . . . . . 7 ⊢ (𝜑 → ((2s ·s 𝐴) +s 1s ) <s (2s ·s (𝐴 +s 1s )))
64	47, 52, 63	ssltsn 27704	. . . . . 6 ⊢ (𝜑 → {((2s ·s 𝐴) +s 1s )} <<s {(2s ·s (𝐴 +s 1s ))})
65	50, 64	eqbrtrrd 5131	. . . . 5 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s ∅)} <<s {(2s ·s (𝐴 +s 1s ))})
66	34, 44, 46, 51, 65	cofcut1d 27829	. . . 4 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s ∅) = ({(2s ·s 𝐴)} |s {(2s ·s (𝐴 +s 1s ))}))
67	11, 31, 66	3eqtrrd 2769	. . 3 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s (𝐴 +s 1s ))}) = (𝐴 +s (𝐴 +s 1s )))
68		eqid 2729	. . 3 ⊢ ({𝐴} |s {(𝐴 +s 1s )}) = ({𝐴} |s {(𝐴 +s 1s )})
69	2, 5, 6, 67, 68	halfcut 28333	. 2 ⊢ (𝜑 → ({𝐴} |s {(𝐴 +s 1s )}) = ((𝐴 +s (𝐴 +s 1s )) /su 2s))
70	11	oveq1d 7402	. 2 ⊢ (𝜑 → ((𝐴 +s (𝐴 +s 1s )) /su 2s) = (((2s ·s 𝐴) +s 1s ) /su 2s))
71		2ne0s 28306	. . . . 5 ⊢ 2s ≠ 0s
72	71	a1i 11	. . . 4 ⊢ (𝜑 → 2s ≠ 0s )
73	26, 4, 25, 72	divsdird 28137	. . 3 ⊢ (𝜑 → (((2s ·s 𝐴) +s 1s ) /su 2s) = (((2s ·s 𝐴) /su 2s) +s ( 1s /su 2s)))
74	2, 25, 72	divscan3d 28138	. . . 4 ⊢ (𝜑 → ((2s ·s 𝐴) /su 2s) = 𝐴)
75	74	oveq1d 7402	. . 3 ⊢ (𝜑 → (((2s ·s 𝐴) /su 2s) +s ( 1s /su 2s)) = (𝐴 +s ( 1s /su 2s)))
76	73, 75	eqtrd 2764	. 2 ⊢ (𝜑 → (((2s ·s 𝐴) +s 1s ) /su 2s) = (𝐴 +s ( 1s /su 2s)))
77	69, 70, 76	3eqtrd 2768	1 ⊢ (𝜑 → ({𝐴} |s {(𝐴 +s 1s )}) = (𝐴 +s ( 1s /su 2s)))

Syntax hints:   → wi 4   = wceq 1540   ∈ wcel 2109   ≠ wne 2925  ∀wral 3044  ∃wrex 3053  ∅c0 4296  𝒫 cpw 4563  {csn 4589   class class class wbr 5107  (class class class)co 7387   No csur 27551   <s cslt 27552   ≤s csle 27656   <<s csslt 27692   |s cscut 27694   0_s c0s 27734   1_s c1s 27735   +_s cadds 27866   -_s csubs 27926   ·_s cmuls 28009   /_su cdivs 28090  ℕ_0scnn0s 28206  ℕ_scnns 28207  2_sc2s 28296

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 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-dc 10399

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-ot 4598  df-uni 4872  df-int 4911  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-se 5592  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-om 7843  df-1st 7968  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-1o 8434  df-2o 8435  df-oadd 8438  df-nadd 8630  df-no 27554  df-slt 27555  df-bday 27556  df-sle 27657  df-sslt 27693  df-scut 27695  df-0s 27736  df-1s 27737  df-made 27755  df-old 27756  df-left 27758  df-right 27759  df-norec 27845  df-norec2 27856  df-adds 27867  df-negs 27927  df-subs 27928  df-muls 28010  df-divs 28091  df-n0s 28208  df-nns 28209  df-2s 28297

This theorem is referenced by: (None)