Theorem halfcut 28660

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 27972	. . . . . . 7 ⊢ (𝜑 → {𝐴} <<s {𝐵})
6	5	cutscld 27985	. . . . . 6 ⊢ (𝜑 → ({𝐴} |s {𝐵}) ∈ No )
7	1, 6	eqeltrid 2867	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ No )
8		no2times 28619	. . . . 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 28204	. . . . 5 ⊢ (𝜑 → (𝐶 +s 𝐶) = (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})))
12		oveq1 7417	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐴 → (𝑦 +s 𝐶) = (𝐴 +s 𝐶))
13	12	eqeq2d 2774	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝐴 → (𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
14	13	rexsng 4642	. . . . . . . . . . 11 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
15	2, 14	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
16	15	abbidv 2829	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
17		oveq2 7418	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐴 → (𝐶 +s 𝑦) = (𝐶 +s 𝐴))
18	17	eqeq2d 2774	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐴 → (𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
19	18	rexsng 4642	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
20	2, 19	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
21	7, 2	addscomd 28169	. . . . . . . . . . . 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 4123	. . . . . . . 8 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) = ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}))
26		df-sn 4590	. . . . . . . . 9 ⊢ {(𝐴 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}
27		unidm 4111	. . . . . . . . 9 ⊢ ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}) = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}
28	26, 27	eqtr4i 2789	. . . . . . . 8 ⊢ {(𝐴 +s 𝐶)} = ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
29	25, 28	eqtr4di 2816	. . . . . . 7 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) = {(𝐴 +s 𝐶)})
30		oveq1 7417	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (𝑦 +s 𝐶) = (𝐵 +s 𝐶))
31	30	eqeq2d 2774	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝐵 → (𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
32	31	rexsng 4642	. . . . . . . . . . 11 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
33	3, 32	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
34	33	abbidv 2829	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
35		oveq2 7418	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐵 → (𝐶 +s 𝑦) = (𝐶 +s 𝐵))
36	35	eqeq2d 2774	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
37	36	rexsng 4642	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
38	3, 37	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
39	7, 3	addscomd 28169	. . . . . . . . . . . 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 4123	. . . . . . . 8 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)}) = ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}))
44		df-sn 4590	. . . . . . . . 9 ⊢ {(𝐵 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}
45		unidm 4111	. . . . . . . . 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 7428	. . . . . 6 ⊢ (𝜑 → (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})) = ({(𝐴 +s 𝐶)} |s {(𝐵 +s 𝐶)}))
49		2no 28621	. . . . . . . . . 10 ⊢ 2s ∈ No
50	49	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 2s ∈ No )
51	50, 2	mulscld 28337	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ∈ No )
52	50, 3	mulscld 28337	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐵) ∈ No )
53		2nns 28620	. . . . . . . . . . 11 ⊢ 2s ∈ ℕs
54		nnsgt0 28541	. . . . . . . . . . 11 ⊢ (2s ∈ ℕs → 0s <s 2s)
55	53, 54	mp1i 14	. . . . . . . . . 10 ⊢ (𝜑 → 0s <s 2s)
56	2, 3, 50, 55	ltmuls2d 28374	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 <s 𝐵 ↔ (2s ·s 𝐴) <s (2s ·s 𝐵)))
57	4, 56	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) <s (2s ·s 𝐵))
58	51, 52, 57	sltssn 27972	. . . . . . 7 ⊢ (𝜑 → {(2s ·s 𝐴)} <<s {(2s ·s 𝐵)})
59		no2times 28619	. . . . . . . . . 10 ⊢ (𝐴 ∈ No → (2s ·s 𝐴) = (𝐴 +s 𝐴))
60	2, 59	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s 𝐴) = (𝐴 +s 𝐴))
61		lesid 27940	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → 𝐴 ≤s 𝐴)
62	2, 61	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ≤s 𝐴)
63		breq2 5113	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐴 → (𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
64	63	rexsng 4642	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
65	2, 64	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
66	62, 65	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥)
67	66	orcd 886	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ∨ ∃𝑦 ∈ ( R ‘𝐴)𝑦 ≤s 𝐶))
68		lltr 28064	. . . . . . . . . . . . . 14 ⊢ ( L ‘𝐴) <<s ( R ‘𝐴)
69	68	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ( L ‘𝐴) <<s ( R ‘𝐴))
70		lrcut 28106	. . . . . . . . . . . . . . 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 28004	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 <s 𝐶 ↔ (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ∨ ∃𝑦 ∈ ( R ‘𝐴)𝑦 ≤s 𝐶)))
74	67, 73	mpbird 260	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 <s 𝐶)
75	2, 7, 74	ltlesd 27946	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ≤s 𝐶)
76	2, 7, 2	leadds2d 28198	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ≤s 𝐶 ↔ (𝐴 +s 𝐴) ≤s (𝐴 +s 𝐶)))
77	75, 76	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐴) ≤s (𝐴 +s 𝐶))
78	60, 77	eqbrtrd 5133	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
79		ovex 7443	. . . . . . . . . 10 ⊢ (2s ·s 𝐴) ∈ V
80		breq1 5112	. . . . . . . . . . 11 ⊢ (𝑥 = (2s ·s 𝐴) → (𝑥 ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s 𝑦))
81	80	rexbidv 3189	. . . . . . . . . 10 ⊢ (𝑥 = (2s ·s 𝐴) → (∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ ∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦))
82	79, 81	ralsn 4647	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ ∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦)
83		ovex 7443	. . . . . . . . . 10 ⊢ (𝐴 +s 𝐶) ∈ V
84		breq2 5113	. . . . . . . . . 10 ⊢ (𝑦 = (𝐴 +s 𝐶) → ((2s ·s 𝐴) ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶)))
85	83, 84	rexsn 4648	. . . . . . . . 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 27940	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → 𝐵 ≤s 𝐵)
89	3, 88	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ≤s 𝐵)
90		breq1 5112	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝐵 → (𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
91	90	rexsng 4642	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
92	3, 91	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
93	89, 92	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵)
94	93	olcd 887	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑥 ∈ ( L ‘𝐵)𝐶 ≤s 𝑥 ∨ ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵))
95		lltr 28064	. . . . . . . . . . . . . 14 ⊢ ( L ‘𝐵) <<s ( R ‘𝐵)
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ( L ‘𝐵) <<s ( R ‘𝐵))
97		lrcut 28106	. . . . . . . . . . . . . . 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 28004	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 <s 𝐵 ↔ (∃𝑥 ∈ ( L ‘𝐵)𝐶 ≤s 𝑥 ∨ ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵)))
101	94, 100	mpbird 260	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐶 <s 𝐵)
102	7, 3, 101	ltlesd 27946	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ≤s 𝐵)
103	7, 3, 3	leadds2d 28198	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 ≤s 𝐵 ↔ (𝐵 +s 𝐶) ≤s (𝐵 +s 𝐵)))
104	102, 103	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 +s 𝐶) ≤s (𝐵 +s 𝐵))
105		no2times 28619	. . . . . . . . . 10 ⊢ (𝐵 ∈ No → (2s ·s 𝐵) = (𝐵 +s 𝐵))
106	3, 105	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s 𝐵) = (𝐵 +s 𝐵))
107	104, 106	breqtrrd 5139	. . . . . . . 8 ⊢ (𝜑 → (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
108		ovex 7443	. . . . . . . . . 10 ⊢ (2s ·s 𝐵) ∈ V
109		breq2 5113	. . . . . . . . . . 11 ⊢ (𝑥 = (2s ·s 𝐵) → (𝑦 ≤s 𝑥 ↔ 𝑦 ≤s (2s ·s 𝐵)))
110	109	rexbidv 3189	. . . . . . . . . 10 ⊢ (𝑥 = (2s ·s 𝐵) → (∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ ∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵)))
111	108, 110	ralsn 4647	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ ∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵))
112		ovex 7443	. . . . . . . . . 10 ⊢ (𝐵 +s 𝐶) ∈ V
113		breq1 5112	. . . . . . . . . 10 ⊢ (𝑦 = (𝐵 +s 𝐶) → (𝑦 ≤s (2s ·s 𝐵) ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵)))
114	112, 113	rexsn 4648	. . . . . . . . 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 28182	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐶) ∈ No )
118	2, 3	addscld 28182	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐵) ∈ No )
119	7, 3, 2	ltadds2d 28199	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 <s 𝐵 ↔ (𝐴 +s 𝐶) <s (𝐴 +s 𝐵)))
120	101, 119	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐶) <s (𝐴 +s 𝐵))
121	117, 118, 120	sltssn 27972	. . . . . . . 8 ⊢ (𝜑 → {(𝐴 +s 𝐶)} <<s {(𝐴 +s 𝐵)})
122		halfcut.4	. . . . . . . . 9 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s 𝐵)}) = (𝐴 +s 𝐵))
123	122	sneqd 4601	. . . . . . . 8 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})} = {(𝐴 +s 𝐵)})
124	121, 123	breqtrrd 5139	. . . . . . 7 ⊢ (𝜑 → {(𝐴 +s 𝐶)} <<s {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})})
125	3, 7	addscld 28182	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 +s 𝐶) ∈ No )
126	3, 2	addscomd 28169	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 +s 𝐴) = (𝐴 +s 𝐵))
127	2, 7, 3	ltadds2d 28199	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 <s 𝐶 ↔ (𝐵 +s 𝐴) <s (𝐵 +s 𝐶)))
128	74, 127	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 +s 𝐴) <s (𝐵 +s 𝐶))
129	126, 128	eqbrtrrd 5135	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐵) <s (𝐵 +s 𝐶))
130	118, 125, 129	sltssn 27972	. . . . . . . 8 ⊢ (𝜑 → {(𝐴 +s 𝐵)} <<s {(𝐵 +s 𝐶)})
131	123, 130	eqbrtrd 5133	. . . . . . 7 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})} <<s {(𝐵 +s 𝐶)})
132	58, 87, 116, 124, 131	cofcut1d 28123	. . . . . 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 28622	. . . . 5 ⊢ 2s ≠ 0s
137	136	a1i 11	. . . 4 ⊢ (𝜑 → 2s ≠ 0s )
138		0no 28011	. . . . . . . . . 10 ⊢ 0s ∈ No
139	138	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 0s ∈ No )
140		1no 28012	. . . . . . . . . 10 ⊢ 1s ∈ No
141	140	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 1s ∈ No )
142		0lt1s 28014	. . . . . . . . . 10 ⊢ 0s <s 1s
143	142	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 0s <s 1s )
144	139, 141, 143	sltssn 27972	. . . . . . . 8 ⊢ (⊤ → { 0s } <<s { 1s })
145	144	cutscld 27985	. . . . . . 7 ⊢ (⊤ → ({ 0s } |s { 1s }) ∈ No )
146	145	mptru 1577	. . . . . 6 ⊢ ({ 0s } |s { 1s }) ∈ No
147		twocut 28625	. . . . . 6 ⊢ (2s ·s ({ 0s } |s { 1s })) = 1s
148		oveq2 7418	. . . . . . . 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 3581	. . . . . 6 ⊢ ((({ 0s } |s { 1s }) ∈ No ∧ (2s ·s ({ 0s } |s { 1s })) = 1s ) → ∃𝑥 ∈ No (2s ·s 𝑥) = 1s )
151	146, 147, 150	mp2an 704	. . . . 5 ⊢ ∃𝑥 ∈ No (2s ·s 𝑥) = 1s
152	151	a1i 11	. . . 4 ⊢ (𝜑 → ∃𝑥 ∈ No (2s ·s 𝑥) = 1s )
153	118, 7, 50, 137, 152	divmulswd 28396	. . 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 860   = wceq 1570  ⊤wtru 1571   ∈ wcel 2143  {cab 2741   ≠ wne 2958  ∀wral 3079  ∃wrex 3089   ∪ cun 3903  {csn 4589   class class class wbr 5109  ‘cfv 6536  (class class class)co 7410   No csur 27813   <s clts 27814   ≤s cles 27917   <<s cslts 27959   |s ccuts 27961   0_s c0s 28007   1_s c1s 28008   L cleft 28027   R cright 28028   +_s cadds 28161   ·_s cmuls 28308   /_su cdivs 28389  ℕ_scnns 28515  2_sc2s 28612

This proof depends on 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 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732

This proof 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 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-ot 4598  df-uni 4873  df-int 4913  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-nadd 8648  df-no 27816  df-lts 27817  df-bday 27818  df-les 27918  df-slts 27960  df-cuts 27962  df-0s 28009  df-1s 28010  df-made 28029  df-old 28030  df-left 28032  df-right 28033  df-norec 28140  df-norec2 28151  df-adds 28162  df-negs 28223  df-subs 28224  df-muls 28309  df-divs 28390  df-n0s 28516  df-nns 28517  df-2s 28613

This theorem is used by:  addhalfcut  28661  pw2cut  28662