Theorem halfcut 28458

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 27770	. . . . . . 7 ⊢ (𝜑 → {𝐴} <<s {𝐵})
6	5	cutscld 27783	. . . . . 6 ⊢ (𝜑 → ({𝐴} |s {𝐵}) ∈ No )
7	1, 6	eqeltrid 2841	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ No )
8		no2times 28417	. . . . 5 ⊢ (𝐶 ∈ No → (2s ·s 𝐶) = (𝐶 +s 𝐶))
9	7, 8	syl 17	. . . 4 ⊢ (𝜑 → (2s ·s 𝐶) = (𝐶 +s 𝐶))
10	1	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐶 = ({𝐴} |s {𝐵}))
11	5, 5, 10, 10	addsunif 28002	. . . . 5 ⊢ (𝜑 → (𝐶 +s 𝐶) = (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})))
12		oveq1 7367	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐴 → (𝑦 +s 𝐶) = (𝐴 +s 𝐶))
13	12	eqeq2d 2748	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝐴 → (𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
14	13	rexsng 4634	. . . . . . . . . . 11 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
15	2, 14	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐴 +s 𝐶)))
16	15	abbidv 2803	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
17		oveq2 7368	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐴 → (𝐶 +s 𝑦) = (𝐶 +s 𝐴))
18	17	eqeq2d 2748	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐴 → (𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
19	18	rexsng 4634	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ No → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
20	2, 19	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐴)))
21	7, 2	addscomd 27967	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 +s 𝐴) = (𝐴 +s 𝐶))
22	21	eqeq2d 2748	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 = (𝐶 +s 𝐴) ↔ 𝑥 = (𝐴 +s 𝐶)))
23	20, 22	bitrd 279	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐴 +s 𝐶)))
24	23	abbidv 2803	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
25	16, 24	uneq12d 4122	. . . . . . . 8 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) = ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}))
26		df-sn 4582	. . . . . . . . 9 ⊢ {(𝐴 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}
27		unidm 4110	. . . . . . . . 9 ⊢ ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}) = {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)}
28	26, 27	eqtr4i 2763	. . . . . . . 8 ⊢ {(𝐴 +s 𝐶)} = ({𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐴 +s 𝐶)})
29	25, 28	eqtr4di 2790	. . . . . . 7 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) = {(𝐴 +s 𝐶)})
30		oveq1 7367	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (𝑦 +s 𝐶) = (𝐵 +s 𝐶))
31	30	eqeq2d 2748	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝐵 → (𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
32	31	rexsng 4634	. . . . . . . . . . 11 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
33	3, 32	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶) ↔ 𝑥 = (𝐵 +s 𝐶)))
34	33	abbidv 2803	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
35		oveq2 7368	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝐵 → (𝐶 +s 𝑦) = (𝐶 +s 𝐵))
36	35	eqeq2d 2748	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝐵 → (𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
37	36	rexsng 4634	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
38	3, 37	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐶 +s 𝐵)))
39	7, 3	addscomd 27967	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 +s 𝐵) = (𝐵 +s 𝐶))
40	39	eqeq2d 2748	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 = (𝐶 +s 𝐵) ↔ 𝑥 = (𝐵 +s 𝐶)))
41	38, 40	bitrd 279	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦) ↔ 𝑥 = (𝐵 +s 𝐶)))
42	41	abbidv 2803	. . . . . . . . 9 ⊢ (𝜑 → {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
43	34, 42	uneq12d 4122	. . . . . . . 8 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)}) = ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}))
44		df-sn 4582	. . . . . . . . 9 ⊢ {(𝐵 +s 𝐶)} = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}
45		unidm 4110	. . . . . . . . 9 ⊢ ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}) = {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)}
46	44, 45	eqtr4i 2763	. . . . . . . 8 ⊢ {(𝐵 +s 𝐶)} = ({𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)} ∪ {𝑥 ∣ 𝑥 = (𝐵 +s 𝐶)})
47	43, 46	eqtr4di 2790	. . . . . . 7 ⊢ (𝜑 → ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)}) = {(𝐵 +s 𝐶)})
48	29, 47	oveq12d 7378	. . . . . 6 ⊢ (𝜑 → (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})) = ({(𝐴 +s 𝐶)} |s {(𝐵 +s 𝐶)}))
49		2no 28419	. . . . . . . . . 10 ⊢ 2s ∈ No
50	49	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 2s ∈ No )
51	50, 2	mulscld 28135	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ∈ No )
52	50, 3	mulscld 28135	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐵) ∈ No )
53		2nns 28418	. . . . . . . . . . 11 ⊢ 2s ∈ ℕs
54		nnsgt0 28339	. . . . . . . . . . 11 ⊢ (2s ∈ ℕs → 0s <s 2s)
55	53, 54	mp1i 13	. . . . . . . . . 10 ⊢ (𝜑 → 0s <s 2s)
56	2, 3, 50, 55	ltmuls2d 28172	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 <s 𝐵 ↔ (2s ·s 𝐴) <s (2s ·s 𝐵)))
57	4, 56	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) <s (2s ·s 𝐵))
58	51, 52, 57	sltssn 27770	. . . . . . 7 ⊢ (𝜑 → {(2s ·s 𝐴)} <<s {(2s ·s 𝐵)})
59		no2times 28417	. . . . . . . . . 10 ⊢ (𝐴 ∈ No → (2s ·s 𝐴) = (𝐴 +s 𝐴))
60	2, 59	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s 𝐴) = (𝐴 +s 𝐴))
61		lesid 27739	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → 𝐴 ≤s 𝐴)
62	2, 61	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ≤s 𝐴)
63		breq2 5103	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐴 → (𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
64	63	rexsng 4634	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
65	2, 64	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ↔ 𝐴 ≤s 𝐴))
66	62, 65	mpbird 257	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥)
67	66	orcd 874	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ∨ ∃𝑦 ∈ ( R ‘𝐴)𝑦 ≤s 𝐶))
68		lltr 27862	. . . . . . . . . . . . . 14 ⊢ ( L ‘𝐴) <<s ( R ‘𝐴)
69	68	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ( L ‘𝐴) <<s ( R ‘𝐴))
70		lrcut 27904	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ No → (( L ‘𝐴) |s ( R ‘𝐴)) = 𝐴)
71	2, 70	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (( L ‘𝐴) |s ( R ‘𝐴)) = 𝐴)
72	71	eqcomd 2743	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 = (( L ‘𝐴) |s ( R ‘𝐴)))
73	69, 5, 72, 10	ltsrecd 27802	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 <s 𝐶 ↔ (∃𝑥 ∈ {𝐴}𝐴 ≤s 𝑥 ∨ ∃𝑦 ∈ ( R ‘𝐴)𝑦 ≤s 𝐶)))
74	67, 73	mpbird 257	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 <s 𝐶)
75	2, 7, 74	ltlesd 27745	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ≤s 𝐶)
76	2, 7, 2	leadds2d 27996	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ≤s 𝐶 ↔ (𝐴 +s 𝐴) ≤s (𝐴 +s 𝐶)))
77	75, 76	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐴) ≤s (𝐴 +s 𝐶))
78	60, 77	eqbrtrd 5121	. . . . . . . 8 ⊢ (𝜑 → (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
79		ovex 7393	. . . . . . . . . 10 ⊢ (2s ·s 𝐴) ∈ V
80		breq1 5102	. . . . . . . . . . 11 ⊢ (𝑥 = (2s ·s 𝐴) → (𝑥 ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s 𝑦))
81	80	rexbidv 3161	. . . . . . . . . 10 ⊢ (𝑥 = (2s ·s 𝐴) → (∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ ∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦))
82	79, 81	ralsn 4639	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ ∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦)
83		ovex 7393	. . . . . . . . . 10 ⊢ (𝐴 +s 𝐶) ∈ V
84		breq2 5103	. . . . . . . . . 10 ⊢ (𝑦 = (𝐴 +s 𝐶) → ((2s ·s 𝐴) ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶)))
85	83, 84	rexsn 4640	. . . . . . . . 9 ⊢ (∃𝑦 ∈ {(𝐴 +s 𝐶)} (2s ·s 𝐴) ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
86	82, 85	bitri 275	. . . . . . . 8 ⊢ (∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦 ↔ (2s ·s 𝐴) ≤s (𝐴 +s 𝐶))
87	78, 86	sylibr 234	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ {(2s ·s 𝐴)}∃𝑦 ∈ {(𝐴 +s 𝐶)}𝑥 ≤s 𝑦)
88		lesid 27739	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → 𝐵 ≤s 𝐵)
89	3, 88	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ≤s 𝐵)
90		breq1 5102	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝐵 → (𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
91	90	rexsng 4634	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → (∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
92	3, 91	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵 ↔ 𝐵 ≤s 𝐵))
93	89, 92	mpbird 257	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵)
94	93	olcd 875	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑥 ∈ ( L ‘𝐵)𝐶 ≤s 𝑥 ∨ ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵))
95		lltr 27862	. . . . . . . . . . . . . 14 ⊢ ( L ‘𝐵) <<s ( R ‘𝐵)
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ( L ‘𝐵) <<s ( R ‘𝐵))
97		lrcut 27904	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ No → (( L ‘𝐵) |s ( R ‘𝐵)) = 𝐵)
98	3, 97	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (( L ‘𝐵) |s ( R ‘𝐵)) = 𝐵)
99	98	eqcomd 2743	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 = (( L ‘𝐵) |s ( R ‘𝐵)))
100	5, 96, 10, 99	ltsrecd 27802	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 <s 𝐵 ↔ (∃𝑥 ∈ ( L ‘𝐵)𝐶 ≤s 𝑥 ∨ ∃𝑦 ∈ {𝐵}𝑦 ≤s 𝐵)))
101	94, 100	mpbird 257	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐶 <s 𝐵)
102	7, 3, 101	ltlesd 27745	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ≤s 𝐵)
103	7, 3, 3	leadds2d 27996	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 ≤s 𝐵 ↔ (𝐵 +s 𝐶) ≤s (𝐵 +s 𝐵)))
104	102, 103	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 +s 𝐶) ≤s (𝐵 +s 𝐵))
105		no2times 28417	. . . . . . . . . 10 ⊢ (𝐵 ∈ No → (2s ·s 𝐵) = (𝐵 +s 𝐵))
106	3, 105	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (2s ·s 𝐵) = (𝐵 +s 𝐵))
107	104, 106	breqtrrd 5127	. . . . . . . 8 ⊢ (𝜑 → (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
108		ovex 7393	. . . . . . . . . 10 ⊢ (2s ·s 𝐵) ∈ V
109		breq2 5103	. . . . . . . . . . 11 ⊢ (𝑥 = (2s ·s 𝐵) → (𝑦 ≤s 𝑥 ↔ 𝑦 ≤s (2s ·s 𝐵)))
110	109	rexbidv 3161	. . . . . . . . . 10 ⊢ (𝑥 = (2s ·s 𝐵) → (∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ ∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵)))
111	108, 110	ralsn 4639	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ ∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵))
112		ovex 7393	. . . . . . . . . 10 ⊢ (𝐵 +s 𝐶) ∈ V
113		breq1 5102	. . . . . . . . . 10 ⊢ (𝑦 = (𝐵 +s 𝐶) → (𝑦 ≤s (2s ·s 𝐵) ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵)))
114	112, 113	rexsn 4640	. . . . . . . . 9 ⊢ (∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s (2s ·s 𝐵) ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
115	111, 114	bitri 275	. . . . . . . 8 ⊢ (∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥 ↔ (𝐵 +s 𝐶) ≤s (2s ·s 𝐵))
116	107, 115	sylibr 234	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ {(2s ·s 𝐵)}∃𝑦 ∈ {(𝐵 +s 𝐶)}𝑦 ≤s 𝑥)
117	2, 7	addscld 27980	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐶) ∈ No )
118	2, 3	addscld 27980	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐵) ∈ No )
119	7, 3, 2	ltadds2d 27997	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 <s 𝐵 ↔ (𝐴 +s 𝐶) <s (𝐴 +s 𝐵)))
120	101, 119	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐶) <s (𝐴 +s 𝐵))
121	117, 118, 120	sltssn 27770	. . . . . . . 8 ⊢ (𝜑 → {(𝐴 +s 𝐶)} <<s {(𝐴 +s 𝐵)})
122		halfcut.4	. . . . . . . . 9 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s 𝐵)}) = (𝐴 +s 𝐵))
123	122	sneqd 4593	. . . . . . . 8 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})} = {(𝐴 +s 𝐵)})
124	121, 123	breqtrrd 5127	. . . . . . 7 ⊢ (𝜑 → {(𝐴 +s 𝐶)} <<s {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})})
125	3, 7	addscld 27980	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 +s 𝐶) ∈ No )
126	3, 2	addscomd 27967	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 +s 𝐴) = (𝐴 +s 𝐵))
127	2, 7, 3	ltadds2d 27997	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 <s 𝐶 ↔ (𝐵 +s 𝐴) <s (𝐵 +s 𝐶)))
128	74, 127	mpbid 232	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 +s 𝐴) <s (𝐵 +s 𝐶))
129	126, 128	eqbrtrrd 5123	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 +s 𝐵) <s (𝐵 +s 𝐶))
130	118, 125, 129	sltssn 27770	. . . . . . . 8 ⊢ (𝜑 → {(𝐴 +s 𝐵)} <<s {(𝐵 +s 𝐶)})
131	123, 130	eqbrtrd 5121	. . . . . . 7 ⊢ (𝜑 → {({(2s ·s 𝐴)} |s {(2s ·s 𝐵)})} <<s {(𝐵 +s 𝐶)})
132	58, 87, 116, 124, 131	cofcut1d 27921	. . . . . 6 ⊢ (𝜑 → ({(2s ·s 𝐴)} |s {(2s ·s 𝐵)}) = ({(𝐴 +s 𝐶)} |s {(𝐵 +s 𝐶)}))
133	48, 132, 122	3eqtr2d 2778	. . . . 5 ⊢ (𝜑 → (({𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐴}𝑥 = (𝐶 +s 𝑦)}) |s ({𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝑦 +s 𝐶)} ∪ {𝑥 ∣ ∃𝑦 ∈ {𝐵}𝑥 = (𝐶 +s 𝑦)})) = (𝐴 +s 𝐵))
134	11, 133	eqtrd 2772	. . . 4 ⊢ (𝜑 → (𝐶 +s 𝐶) = (𝐴 +s 𝐵))
135	9, 134	eqtrd 2772	. . 3 ⊢ (𝜑 → (2s ·s 𝐶) = (𝐴 +s 𝐵))
136		2ne0s 28420	. . . . 5 ⊢ 2s ≠ 0s
137	136	a1i 11	. . . 4 ⊢ (𝜑 → 2s ≠ 0s )
138		0no 27809	. . . . . . . . . 10 ⊢ 0s ∈ No
139	138	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 0s ∈ No )
140		1no 27810	. . . . . . . . . 10 ⊢ 1s ∈ No
141	140	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 1s ∈ No )
142		0lt1s 27812	. . . . . . . . . 10 ⊢ 0s <s 1s
143	142	a1i 11	. . . . . . . . 9 ⊢ (⊤ → 0s <s 1s )
144	139, 141, 143	sltssn 27770	. . . . . . . 8 ⊢ (⊤ → { 0s } <<s { 1s })
145	144	cutscld 27783	. . . . . . 7 ⊢ (⊤ → ({ 0s } |s { 1s }) ∈ No )
146	145	mptru 1549	. . . . . 6 ⊢ ({ 0s } |s { 1s }) ∈ No
147		twocut 28423	. . . . . 6 ⊢ (2s ·s ({ 0s } |s { 1s })) = 1s
148		oveq2 7368	. . . . . . . 8 ⊢ (𝑥 = ({ 0s } |s { 1s }) → (2s ·s 𝑥) = (2s ·s ({ 0s } |s { 1s })))
149	148	eqeq1d 2739	. . . . . . 7 ⊢ (𝑥 = ({ 0s } |s { 1s }) → ((2s ·s 𝑥) = 1s ↔ (2s ·s ({ 0s } |s { 1s })) = 1s ))
150	149	rspcev 3577	. . . . . 6 ⊢ ((({ 0s } |s { 1s }) ∈ No ∧ (2s ·s ({ 0s } |s { 1s })) = 1s ) → ∃𝑥 ∈ No (2s ·s 𝑥) = 1s )
151	146, 147, 150	mp2an 693	. . . . 5 ⊢ ∃𝑥 ∈ No (2s ·s 𝑥) = 1s
152	151	a1i 11	. . . 4 ⊢ (𝜑 → ∃𝑥 ∈ No (2s ·s 𝑥) = 1s )
153	118, 7, 50, 137, 152	divmulswd 28194	. . 3 ⊢ (𝜑 → (((𝐴 +s 𝐵) /su 2s) = 𝐶 ↔ (2s ·s 𝐶) = (𝐴 +s 𝐵)))
154	135, 153	mpbird 257	. 2 ⊢ (𝜑 → ((𝐴 +s 𝐵) /su 2s) = 𝐶)
155	154	eqcomd 2743	1 ⊢ (𝜑 → 𝐶 = ((𝐴 +s 𝐵) /su 2s))

Syntax hints:   → wi 4   ↔ wb 206   ∨ wo 848   = wceq 1542  ⊤wtru 1543   ∈ wcel 2114  {cab 2715   ≠ wne 2933  ∀wral 3052  ∃wrex 3061   ∪ cun 3900  {csn 4581   class class class wbr 5099  ‘cfv 6493  (class class class)co 7360   No csur 27611   <s clts 27612   ≤s cles 27716   <<s cslts 27757   |s ccuts 27759   0_s c0s 27805   1_s c1s 27806   L cleft 27825   R cright 27826   +_s cadds 27959   ·_s cmuls 28106   /_su cdivs 28187  ℕ_scnns 28313  2_sc2s 28410

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-ot 4590  df-uni 4865  df-int 4904  df-iun 4949  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-2o 8400  df-nadd 8596  df-no 27614  df-lts 27615  df-bday 27616  df-les 27717  df-slts 27758  df-cuts 27760  df-0s 27807  df-1s 27808  df-made 27827  df-old 27828  df-left 27830  df-right 27831  df-norec 27938  df-norec2 27949  df-adds 27960  df-negs 28021  df-subs 28022  df-muls 28107  df-divs 28188  df-n0s 28314  df-nns 28315  df-2s 28411

This theorem is referenced by:  addhalfcut  28459  pw2cut  28460