Theorem halfcut 28871

Description: Relate the cut of twice of two numbers to the cut of the numbers. Lemma 4.2 of [Gonshor] p. 28. (Contributed by Scott Fenton, 7-Aug-2025.) Avoid the axiom of infinity. (Proof modified by Scott Fenton, 6-Sep-2025.)

Hypotheses

Ref	Expression
halfcut.1	⊢ (𝜑 → 𝐴 ∈ No)
halfcut.2	⊢ (𝜑 → 𝐵 ∈ No)
halfcut.3	⊢ (𝜑 → 𝐴 <s 𝐵)
halfcut.4	⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s 𝐵)}) = (𝐴 +s 𝐵))
halfcut.5	⊢ 𝐶 = ({𝐴} |s {𝐵})

Assertion

Ref	Expression
halfcut	⊢ (𝜑 → 𝐶 = ((𝐴 +s 𝐵) /su 2s))

Proof of Theorem halfcut

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

Step	Hyp	Ref	Expression
1		halfcut.5	. . . . . 6 ⊢ 𝐶 = ({𝐴} |s {𝐵})
2		halfcut.1	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ No)
3		halfcut.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ No)
4		halfcut.3	. . . . . . . 8 ⊢ (𝜑 → 𝐴 <s 𝐵)
5	2, 3, 4	sltssn 28183	. . . . . . 7 ⊢ (𝜑 → {𝐴} <<s {𝐵})
6	5	cutscld 28196	. . . . . 6 ⊢ (𝜑 → ({𝐴} |s {𝐵}) ∈ No)
7	1, 6	eqeltrid 2868	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ No)
8		no2times 28830	. . . . 5 ⊢ (𝐶 ∈ No → (2s ·s 𝐶) = (𝐶 +s 𝐶))
9	7, 8	syl 18	. . . 4 ⊢ (𝜑 → (2s ·s 𝐶) = (𝐶 +s 𝐶))
10	1	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐶 = ({𝐴} |s {𝐵}))
11	5, 5, 10, 10	addsunif 28415	. . . . 5 ⊢ (𝜑 → (𝐶 +s 𝐶) = (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})))
12		oveq1 7447	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐴 → (𝑦 +s 𝐶) = (𝐴 +s 𝐶))
13	12	eqeq2d 2774	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝐴 → (𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
14	13	rexsng 4637	. . . . . . . . . . 11 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
15	2, 14	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
16	15	abbidv 2829	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
17		oveq2 7448	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐴 → (𝐶 +s 𝑦) = (𝐶 +s 𝐴))
18	17	eqeq2d 2774	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐴 → (𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
19	18	rexsng 4637	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
20	2, 19	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
21	7, 2	addscomd 28380	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 +s 𝐴) = (𝐴 +s 𝐶))
22	21	eqeq2d 2774	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 = (𝐶 +s 𝐴) ↔ 𝑥 = (𝐴 +s 𝐶)))
23	20, 22	bitrd 282	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐴 +s 𝐶)))
24	23	abbidv 2829	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
25	16, 24	uneq12d 4171	. . . . . . . 8 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) = ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}))
26		df-sn 4589	. . . . . . . . 9 ⊢ {(𝐴 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}
27		unidm 4159	. . . . . . . . 9 ⊢ ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}) = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}
28	26, 27	eqtr4i 2789	. . . . . . . 8 ⊢ {(𝐴 +s 𝐶)} = ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
29	25, 28	eqtr4di 2816	. . . . . . 7 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) = {(𝐴 +s 𝐶)})
30		oveq1 7447	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (𝑦 +s 𝐶) = (𝐵 +s 𝐶))
31	30	eqeq2d 2774	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝐵 → (𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
32	31	rexsng 4637	. . . . . . . . . . 11 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
33	3, 32	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
34	33	abbidv 2829	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
35		oveq2 7448	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐵 → (𝐶 +s 𝑦) = (𝐶 +s 𝐵))
36	35	eqeq2d 2774	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
37	36	rexsng 4637	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
38	3, 37	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
39	7, 3	addscomd 28380	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 +s 𝐵) = (𝐵 +s 𝐶))
40	39	eqeq2d 2774	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 = (𝐶 +s 𝐵) ↔ 𝑥 = (𝐵 +s 𝐶)))
41	38, 40	bitrd 282	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐵 +s 𝐶)))
42	41	abbidv 2829	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
43	34, 42	uneq12d 4171	. . . . . . . 8 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)}) = ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}))
44		df-sn 4589	. . . . . . . . 9 ⊢ {(𝐵 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}
45		unidm 4159	. . . . . . . . 9 ⊢ ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}) = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}
46	44, 45	eqtr4i 2789	. . . . . . . 8 ⊢ {(𝐵 +s 𝐶)} = ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
47	43, 46	eqtr4di 2816	. . . . . . 7 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)}) = {(𝐵 +s 𝐶)})
48	29, 47	oveq12d 7458	. . . . . 6 ⊢ (𝜑 → (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})) = ({(𝐴 +s 𝐶)} |s {(𝐵 +s 𝐶)}))
49		2no 28832	. . . . . . . . . 10 ⊢ 2s ∈ No
50	49	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 2s ∈ No)
51	50, 2	mulscld 28548	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ∈ No)
52	50, 3	mulscld 28548	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐵) ∈ No)
53		2nns 28831	. . . . . . . . . . 11 ⊢ 2s ∈ ℕs
54		nnsgt0 28752	. . . . . . . . . . 11 ⊢ (2s ∈ ℕs → 0s <s 2s)
55	53, 54	mp1i 14	. . . . . . . . . 10 ⊢ (𝜑 → 0s <s 2s)
56	2, 3, 50, 55	ltmuls2d 28585	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 <s 𝐵 ↔ (2s ·s 𝐴) <s (2s ·s 𝐵)))
57	4, 56	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) <s (2s ·s 𝐵))
58	51, 52, 57	sltssn 28183	. . . . . . 7 ⊢ (𝜑 → {(2s ·s 𝐴)} <<s {(2s ·s 𝐵)})
59		no2times 28830	. . . . . . . . . 10 ⊢ (𝐴 ∈ No → (2s ·s 𝐴) = (𝐴 +s 𝐴))
60	2, 59	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s 𝐴) = (𝐴 +s 𝐴))
61		lesid 28151	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → 𝐴 ≤s 𝐴)
62	2, 61	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ≤s 𝐴)
63		breq2 5110	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐴 → (𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
64	63	rexsng 4637	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
65	2, 64	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
66	62, 65	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥)
67	66	orcd 887	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ∨ ∃𝑦 ∈ (R‘𝐴)𝑦 ≤s 𝐶))
68		lltr 28275	. . . . . . . . . . . . . 14 ⊢ (L‘𝐴) <<s (R‘𝐴)
69	68	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (L‘𝐴) <<s (R‘𝐴))
70		lrcut 28317	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → ((L‘𝐴) |s (R‘𝐴)) = 𝐴)
71	2, 70	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((L‘𝐴) |s (R‘𝐴)) = 𝐴)
72	71	eqcomd 2769	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 = ((L‘𝐴) |s (R‘𝐴)))
73	69, 5, 72, 10	ltsrecd 28215	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 <s 𝐶 ↔ (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ∨ ∃𝑦 ∈ (R‘𝐴)𝑦 ≤s 𝐶)))
74	67, 73	mpbird 260	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 <s 𝐶)
75	2, 7, 74	ltlesd 28157	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ≤s 𝐶)
76	2, 7, 2	leadds2d 28409	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ≤s 𝐶 ↔ (𝐴 +s 𝐴) ≤s (𝐴 +s 𝐶)))
77	75, 76	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐴) ≤s (𝐴 +s 𝐶))
78	60, 77	eqbrtrd 5130	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
79		ovex 7473	. . . . . . . . . 10 ⊢ (2s ·s 𝐴) ∈ V
80		breq1 5109	. . . . . . . . . . 11 ⊢ (𝑥 = (2s ·s 𝐴) → (𝑥 ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s 𝑦))
81	80	rexbidv 3190	. . . . . . . . . 10 ⊢ (𝑥 = (2s ·s 𝐴) → (∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ ∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦))
82	79, 81	ralsn 4642	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ ∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦)
83		ovex 7473	. . . . . . . . . 10 ⊢ (𝐴 +s 𝐶) ∈ V
84		breq2 5110	. . . . . . . . . 10 ⊢ (𝑦 = (𝐴 +s 𝐶) → ((2s ·s 𝐴) ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶)))
85	83, 84	rexsn 4643	. . . . . . . . 9 ⊢ (∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
86	82, 85	bitri 278	. . . . . . . 8 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
87	78, 86	sylibr 237	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦)
88		lesid 28151	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → 𝐵 ≤s 𝐵)
89	3, 88	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ≤s 𝐵)
90		breq1 5109	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝐵 → (𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
91	90	rexsng 4637	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
92	3, 91	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
93	89, 92	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵)
94	93	olcd 888	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑥 ∈ (L‘𝐵)𝐶 ≤s 𝑥 ∨ ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵))
95		lltr 28275	. . . . . . . . . . . . . 14 ⊢ (L‘𝐵) <<s (R‘𝐵)
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (L‘𝐵) <<s (R‘𝐵))
97		lrcut 28317	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → ((L‘𝐵) |s (R‘𝐵)) = 𝐵)
98	3, 97	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((L‘𝐵) |s (R‘𝐵)) = 𝐵)
99	98	eqcomd 2769	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 = ((L‘𝐵) |s (R‘𝐵)))
100	5, 96, 10, 99	ltsrecd 28215	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 <s 𝐵 ↔ (∃𝑥 ∈ (L‘𝐵)𝐶 ≤s 𝑥 ∨ ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵)))
101	94, 100	mpbird 260	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐶 <s 𝐵)
102	7, 3, 101	ltlesd 28157	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ≤s 𝐵)
103	7, 3, 3	leadds2d 28409	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 ≤s 𝐵 ↔ (𝐵 +s 𝐶) ≤s (𝐵 +s 𝐵)))
104	102, 103	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 +s 𝐶) ≤s (𝐵 +s 𝐵))
105		no2times 28830	. . . . . . . . . 10 ⊢ (𝐵 ∈ No → (2s ·s 𝐵) = (𝐵 +s 𝐵))
106	3, 105	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s 𝐵) = (𝐵 +s 𝐵))
107	104, 106	breqtrrd 5136	. . . . . . . 8 ⊢ (𝜑 → (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
108		ovex 7473	. . . . . . . . . 10 ⊢ (2s ·s 𝐵) ∈ V
109		breq2 5110	. . . . . . . . . . 11 ⊢ (𝑥 = (2s ·s 𝐵) → (𝑦 ≤s 𝑥 ↔ 𝑦 ≤s (2s ·s 𝐵)))
110	109	rexbidv 3190	. . . . . . . . . 10 ⊢ (𝑥 = (2s ·s 𝐵) → (∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ ∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵)))
111	108, 110	ralsn 4642	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ ∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵))
112		ovex 7473	. . . . . . . . . 10 ⊢ (𝐵 +s 𝐶) ∈ V
113		breq1 5109	. . . . . . . . . 10 ⊢ (𝑦 = (𝐵 +s 𝐶) → (𝑦 ≤s (2s ·s 𝐵) ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵)))
114	112, 113	rexsn 4643	. . . . . . . . 9 ⊢ (∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵) ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
115	111, 114	bitri 278	. . . . . . . 8 ⊢ (∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
116	107, 115	sylibr 237	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥)
117	2, 7	addscld 28393	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐶) ∈ No)
118	2, 3	addscld 28393	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐵) ∈ No)
119	7, 3, 2	ltadds2d 28410	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 <s 𝐵 ↔ (𝐴 +s 𝐶) <s (𝐴 +s 𝐵)))
120	101, 119	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐶) <s (𝐴 +s 𝐵))
121	117, 118, 120	sltssn 28183	. . . . . . . 8 ⊢ (𝜑 → {(𝐴 +s 𝐶)} <<s {(𝐴 +s 𝐵)})
122		halfcut.4	. . . . . . . . 9 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s 𝐵)}) = (𝐴 +s 𝐵))
123	122	sneqd 4596	. . . . . . . 8 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})} = {(𝐴 +s 𝐵)})
124	121, 123	breqtrrd 5136	. . . . . . 7 ⊢ (𝜑 → {(𝐴 +s 𝐶)} <<s {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})})
125	3, 7	addscld 28393	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 +s 𝐶) ∈ No)
126	3, 2	addscomd 28380	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 +s 𝐴) = (𝐴 +s 𝐵))
127	2, 7, 3	ltadds2d 28410	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 <s 𝐶 ↔ (𝐵 +s 𝐴) <s (𝐵 +s 𝐶)))
128	74, 127	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 +s 𝐴) <s (𝐵 +s 𝐶))
129	126, 128	eqbrtrrd 5132	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐵) <s (𝐵 +s 𝐶))
130	118, 125, 129	sltssn 28183	. . . . . . . 8 ⊢ (𝜑 → {(𝐴 +s 𝐵)} <<s {(𝐵 +s 𝐶)})
131	123, 130	eqbrtrd 5130	. . . . . . 7 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})} <<s {(𝐵 +s 𝐶)})
132	58, 87, 116, 124, 131	cofcut1d 28334	. . . . . 6 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s 𝐵)}) = ({(𝐴 +s 𝐶)} |s {(𝐵 +s 𝐶)}))
133	48, 132, 122	3eqtr2d 2804	. . . . 5 ⊢ (𝜑 → (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})) = (𝐴 +s 𝐵))
134	11, 133	eqtrd 2798	. . . 4 ⊢ (𝜑 → (𝐶 +s 𝐶) = (𝐴 +s 𝐵))
135	9, 134	eqtrd 2798	. . 3 ⊢ (𝜑 → (2s ·s 𝐶) = (𝐴 +s 𝐵))
136		2ne0s 28833	. . . . 5 ⊢ 2s ≠ 0s
137	136	a1i 11	. . . 4 ⊢ (𝜑 → 2s ≠ 0s )
138		0no 28222	. . . . . . . . . 10 ⊢ 0s ∈ No
139	138	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 0s ∈ No)
140		1no 28223	. . . . . . . . . 10 ⊢ 1s ∈ No
141	140	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 1s ∈ No)
142		0lt1s 28225	. . . . . . . . . 10 ⊢ 0s <s 1s
143	142	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 0s <s 1s )
144	139, 141, 143	sltssn 28183	. . . . . . . 8 ⊢ (⊤ → { 0s } <<s { 1s })
145	144	cutscld 28196	. . . . . . 7 ⊢ (⊤ → ({ 0s } |s { 1s }) ∈ No)
146	145	mptru 1577	. . . . . 6 ⊢ ({ 0s } |s { 1s }) ∈ No
147		twocut 28836	. . . . . 6 ⊢ (2s ·s ({ 0s } |s { 1s })) = 1s
148		oveq2 7448	. . . . . . . 8 ⊢ (𝑥 = ({ 0s } |s { 1s }) → (2s ·s 𝑥) = (2s ·s ({ 0s } |s { 1s })))
149	148	eqeq1d 2765	. . . . . . 7 ⊢ (𝑥 = ({ 0s } |s { 1s }) → ((2s ·s 𝑥) = 1s ↔ (2s ·s ({ 0s } |s { 1s })) = 1s ))
150	149	rspcev 3580	. . . . . 6 ⊢ ((({ 0s } |s { 1s }) ∈ No ∧ (2s ·s ({ 0s } |s { 1s })) = 1s ) → ∃𝑥 ∈ No (2s ·s 𝑥) = 1s )
151	146, 147, 150	mp2an 705	. . . . 5 ⊢ ∃𝑥 ∈ No (2s ·s 𝑥) = 1s
152	151	a1i 11	. . . 4 ⊢ (𝜑 → ∃𝑥 ∈ No (2s ·s 𝑥) = 1s )
153	118, 7, 50, 137, 152	divmulswd 28607	. . 3 ⊢ (𝜑 → (((𝐴 +s 𝐵) /su 2s) = 𝐶 ↔ (2s ·s 𝐶) = (𝐴 +s 𝐵)))
154	135, 153	mpbird 260	. 2 ⊢ (𝜑 → ((𝐴 +s 𝐵) /su 2s) = 𝐶)
155	154	eqcomd 2769	1 ⊢ (𝜑 → 𝐶 = ((𝐴 +s 𝐵) /su 2s))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∨ wo 861   = wceq 1570  ⊤wtru 1571   ∈ wcel 2147  {cab 2741   ≠ wne 2959  ∀wral 3080  ∃wrex 3090   ∪ cun 4152  {csn 4588   class class class wbr 5106  ‘cfv 6555  (class class class)co 7440  Nocsur 28024   <s clts 28025   ≤s cles 28128   <<s cslts 28170   |s ccuts 28172   0_s c0s 28218   1_s c1s 28219  Lcleft 28238  Rcright 28239   +_s cadds 28372   ·_s cmuls 28519   /_su cdivs 28600  ℕ_scnns 28726  2_sc2s 28823

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772

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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-ot 4862  df-uni 4871  df-int 4911  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  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 6319  df-ord 6380  df-on 6381  df-lim 6382  df-suc 6383  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-mpo 7445  df-om 7899  df-1st 8022  df-2nd 8023  df-frecs 8324  df-wrecs 8355  df-recs 8404  df-rdg 8443  df-1o 8501  df-2o 8502  df-nadd 8700  df-no 28027  df-lts 28028  df-bday 28029  df-les 28129  df-slts 28171  df-cuts 28173  df-0s 28220  df-1s 28221  df-made 28240  df-old 28241  df-left 28243  df-right 28244  df-norec 28351  df-norec2 28362  df-adds 28373  df-negs 28434  df-subs 28435  df-muls 28520  df-divs 28601  df-n0s 28727  df-nns 28728  df-2s 28824

This theorem is used by:  addhalfcut  28872  pw2cut  28873