Theorem mulsrid 28183

Description: Surreal one is a right identity element for multiplication. (Contributed by Scott Fenton, 4-Feb-2025.)

Assertion

Ref	Expression
mulsrid	⊢ (𝐴 ∈ No → (𝐴 ·s 1s ) = 𝐴)

Proof of Theorem mulsrid

Dummy variables 𝑥 𝑥_𝑂 𝑎 𝑏 𝑐 𝑑 𝑝 𝑞 𝑟 𝑠 𝑡 𝑢 𝑣 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq1 7399	. . 3 ⊢ (𝑥 = 𝑥𝑂 → (𝑥 ·s 1s ) = (𝑥𝑂 ·s 1s ))
2		id 22	. . 3 ⊢ (𝑥 = 𝑥𝑂 → 𝑥 = 𝑥𝑂)
3	1, 2	eqeq12d 2777	. 2 ⊢ (𝑥 = 𝑥𝑂 → ((𝑥 ·s 1s ) = 𝑥 ↔ (𝑥𝑂 ·s 1s ) = 𝑥𝑂))
4		oveq1 7399	. . 3 ⊢ (𝑥 = 𝐴 → (𝑥 ·s 1s ) = (𝐴 ·s 1s ))
5		id 22	. . 3 ⊢ (𝑥 = 𝐴 → 𝑥 = 𝐴)
6	4, 5	eqeq12d 2777	. 2 ⊢ (𝑥 = 𝐴 → ((𝑥 ·s 1s ) = 𝑥 ↔ (𝐴 ·s 1s ) = 𝐴))
7		1no 27880	. . . . . 6 ⊢ 1s ∈ No
8		mulsval 28179	. . . . . 6 ⊢ ((𝑥 ∈ No ∧ 1s ∈ No ) → (𝑥 ·s 1s ) = (({𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) |s ({𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} ∪ {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))})))
9	7, 8	mpan2 701	. . . . 5 ⊢ (𝑥 ∈ No → (𝑥 ·s 1s ) = (({𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) |s ({𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} ∪ {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))})))
10	9	adantr 484	. . . 4 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑥 ·s 1s ) = (({𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) |s ({𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} ∪ {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))})))
11		elun1 4134	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑝 ∈ ( L ‘𝑥) → 𝑝 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
12		oveq1 7399	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥𝑂 = 𝑝 → (𝑥𝑂 ·s 1s ) = (𝑝 ·s 1s ))
13		id 22	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥𝑂 = 𝑝 → 𝑥𝑂 = 𝑝)
14	12, 13	eqeq12d 2777	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥𝑂 = 𝑝 → ((𝑥𝑂 ·s 1s ) = 𝑥𝑂 ↔ (𝑝 ·s 1s ) = 𝑝))
15	14	rspcva 3579	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑝 ·s 1s ) = 𝑝)
16	11, 15	sylan 589	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ( L ‘𝑥) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑝 ·s 1s ) = 𝑝)
17	16	ancoms 462	. . . . . . . . . . . . . . . . 17 ⊢ ((∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂 ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 ·s 1s ) = 𝑝)
18	17	adantll 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 ·s 1s ) = 𝑝)
19		muls01 28182	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ No → (𝑥 ·s 0s ) = 0s )
20	19	adantr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑥 ·s 0s ) = 0s )
21	20	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑥 ·s 0s ) = 0s )
22	18, 21	oveq12d 7410	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → ((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) = (𝑝 +s 0s ))
23		leftno 27947	. . . . . . . . . . . . . . . . 17 ⊢ (𝑝 ∈ ( L ‘𝑥) → 𝑝 ∈ No )
24	23	adantl 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → 𝑝 ∈ No )
25	24	addsridd 28035	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 +s 0s ) = 𝑝)
26	22, 25	eqtrd 2796	. . . . . . . . . . . . . 14 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → ((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) = 𝑝)
27		muls01 28182	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ∈ No → (𝑝 ·s 0s ) = 0s )
28	24, 27	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 ·s 0s ) = 0s )
29	26, 28	oveq12d 7410	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) = (𝑝 -s 0s ))
30		subsid1 28138	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ No → (𝑝 -s 0s ) = 𝑝)
31	24, 30	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 -s 0s ) = 𝑝)
32	29, 31	eqtrd 2796	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) = 𝑝)
33	32	eqeq2d 2772	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) ↔ 𝑎 = 𝑝))
34		equcom 2037	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑝 ↔ 𝑝 = 𝑎)
35	33, 34	bitrdi 289	. . . . . . . . . 10 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) ↔ 𝑝 = 𝑎))
36	35	rexbidva 3183	. . . . . . . . 9 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑝 ∈ ( L ‘𝑥)𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) ↔ ∃𝑝 ∈ ( L ‘𝑥)𝑝 = 𝑎))
37		left1s 27965	. . . . . . . . . . . 12 ⊢ ( L ‘ 1s ) = { 0s }
38	37	rexeqi 3318	. . . . . . . . . . 11 ⊢ (∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ ∃𝑞 ∈ { 0s }𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)))
39		0no 27879	. . . . . . . . . . . . 13 ⊢ 0s ∈ No
40	39	elexi 3475	. . . . . . . . . . . 12 ⊢ 0s ∈ V
41		oveq2 7400	. . . . . . . . . . . . . . 15 ⊢ (𝑞 = 0s → (𝑥 ·s 𝑞) = (𝑥 ·s 0s ))
42	41	oveq2d 7408	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 0s → ((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) = ((𝑝 ·s 1s ) +s (𝑥 ·s 0s )))
43		oveq2 7400	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 0s → (𝑝 ·s 𝑞) = (𝑝 ·s 0s ))
44	42, 43	oveq12d 7410	. . . . . . . . . . . . 13 ⊢ (𝑞 = 0s → (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
45	44	eqeq2d 2772	. . . . . . . . . . . 12 ⊢ (𝑞 = 0s → (𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s ))))
46	40, 45	rexsn 4640	. . . . . . . . . . 11 ⊢ (∃𝑞 ∈ { 0s }𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
47	38, 46	bitri 277	. . . . . . . . . 10 ⊢ (∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
48	47	rexbii 3108	. . . . . . . . 9 ⊢ (∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ ∃𝑝 ∈ ( L ‘𝑥)𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
49		risset 3236	. . . . . . . . 9 ⊢ (𝑎 ∈ ( L ‘𝑥) ↔ ∃𝑝 ∈ ( L ‘𝑥)𝑝 = 𝑎)
50	36, 48, 49	3bitr4g 316	. . . . . . . 8 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 ∈ ( L ‘𝑥)))
51	50	eqabcdv 2895	. . . . . . 7 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} = ( L ‘𝑥))
52		rex0 4312	. . . . . . . . . . . 12 ⊢ ¬ ∃𝑠 ∈ ∅ 𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))
53		right1s 27966	. . . . . . . . . . . . 13 ⊢ ( R ‘ 1s ) = ∅
54	53	rexeqi 3318	. . . . . . . . . . . 12 ⊢ (∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠)) ↔ ∃𝑠 ∈ ∅ 𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠)))
55	52, 54	mtbir 325	. . . . . . . . . . 11 ⊢ ¬ ∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))
56	55	a1i 11	. . . . . . . . . 10 ⊢ (𝑟 ∈ ( R ‘𝑥) → ¬ ∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠)))
57	56	nrex 3089	. . . . . . . . 9 ⊢ ¬ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))
58	57	abf 4359	. . . . . . . 8 ⊢ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))} = ∅
59	58	a1i 11	. . . . . . 7 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))} = ∅)
60	51, 59	uneq12d 4122	. . . . . 6 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → ({𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) = (( L ‘𝑥) ∪ ∅))
61		un0 4347	. . . . . 6 ⊢ (( L ‘𝑥) ∪ ∅) = ( L ‘𝑥)
62	60, 61	eqtrdi 2812	. . . . 5 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → ({𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) = ( L ‘𝑥))
63		rex0 4312	. . . . . . . . . . . 12 ⊢ ¬ ∃𝑢 ∈ ∅ 𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))
64	53	rexeqi 3318	. . . . . . . . . . . 12 ⊢ (∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢)) ↔ ∃𝑢 ∈ ∅ 𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢)))
65	63, 64	mtbir 325	. . . . . . . . . . 11 ⊢ ¬ ∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))
66	65	a1i 11	. . . . . . . . . 10 ⊢ (𝑡 ∈ ( L ‘𝑥) → ¬ ∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢)))
67	66	nrex 3089	. . . . . . . . 9 ⊢ ¬ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))
68	67	abf 4359	. . . . . . . 8 ⊢ {𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} = ∅
69	68	a1i 11	. . . . . . 7 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} = ∅)
70		elun2 4135	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑣 ∈ ( R ‘𝑥) → 𝑣 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
71		oveq1 7399	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥𝑂 = 𝑣 → (𝑥𝑂 ·s 1s ) = (𝑣 ·s 1s ))
72		id 22	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥𝑂 = 𝑣 → 𝑥𝑂 = 𝑣)
73	71, 72	eqeq12d 2777	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥𝑂 = 𝑣 → ((𝑥𝑂 ·s 1s ) = 𝑥𝑂 ↔ (𝑣 ·s 1s ) = 𝑣))
74	73	rspcva 3579	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑣 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑣 ·s 1s ) = 𝑣)
75	70, 74	sylan 589	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑣 ∈ ( R ‘𝑥) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑣 ·s 1s ) = 𝑣)
76	75	ancoms 462	. . . . . . . . . . . . . . . . 17 ⊢ ((∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂 ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 ·s 1s ) = 𝑣)
77	76	adantll 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 ·s 1s ) = 𝑣)
78	20	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑥 ·s 0s ) = 0s )
79	77, 78	oveq12d 7410	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → ((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) = (𝑣 +s 0s ))
80		rightno 27948	. . . . . . . . . . . . . . . . 17 ⊢ (𝑣 ∈ ( R ‘𝑥) → 𝑣 ∈ No )
81	80	adantl 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → 𝑣 ∈ No )
82	81	addsridd 28035	. . . . . . . . . . . . . . 15 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 +s 0s ) = 𝑣)
83	79, 82	eqtrd 2796	. . . . . . . . . . . . . 14 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → ((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) = 𝑣)
84		muls01 28182	. . . . . . . . . . . . . . 15 ⊢ (𝑣 ∈ No → (𝑣 ·s 0s ) = 0s )
85	81, 84	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 ·s 0s ) = 0s )
86	83, 85	oveq12d 7410	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )) = (𝑣 -s 0s ))
87		subsid1 28138	. . . . . . . . . . . . . 14 ⊢ (𝑣 ∈ No → (𝑣 -s 0s ) = 𝑣)
88	81, 87	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 -s 0s ) = 𝑣)
89	86, 88	eqtrd 2796	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )) = 𝑣)
90	89	eqeq2d 2772	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )) ↔ 𝑑 = 𝑣))
91	37	rexeqi 3318	. . . . . . . . . . . 12 ⊢ (∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ ∃𝑤 ∈ { 0s }𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)))
92		oveq2 7400	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 0s → (𝑥 ·s 𝑤) = (𝑥 ·s 0s ))
93	92	oveq2d 7408	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 0s → ((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) = ((𝑣 ·s 1s ) +s (𝑥 ·s 0s )))
94		oveq2 7400	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 0s → (𝑣 ·s 𝑤) = (𝑣 ·s 0s ))
95	93, 94	oveq12d 7410	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 0s → (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )))
96	95	eqeq2d 2772	. . . . . . . . . . . . 13 ⊢ (𝑤 = 0s → (𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s ))))
97	40, 96	rexsn 4640	. . . . . . . . . . . 12 ⊢ (∃𝑤 ∈ { 0s }𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )))
98	91, 97	bitri 277	. . . . . . . . . . 11 ⊢ (∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )))
99		equcom 2037	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑑 ↔ 𝑑 = 𝑣)
100	90, 98, 99	3bitr4g 316	. . . . . . . . . 10 ⊢ (((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑣 = 𝑑))
101	100	rexbidva 3183	. . . . . . . . 9 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ ∃𝑣 ∈ ( R ‘𝑥)𝑣 = 𝑑))
102		risset 3236	. . . . . . . . 9 ⊢ (𝑑 ∈ ( R ‘𝑥) ↔ ∃𝑣 ∈ ( R ‘𝑥)𝑣 = 𝑑)
103	101, 102	bitr4di 291	. . . . . . . 8 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 ∈ ( R ‘𝑥)))
104	103	eqabcdv 2895	. . . . . . 7 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))} = ( R ‘𝑥))
105	69, 104	uneq12d 4122	. . . . . 6 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → ({𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} ∪ {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))}) = (∅ ∪ ( R ‘𝑥)))
106		0un 4349	. . . . . 6 ⊢ (∅ ∪ ( R ‘𝑥)) = ( R ‘𝑥)
107	105, 106	eqtrdi 2812	. . . . 5 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → ({𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} ∪ {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))}) = ( R ‘𝑥))
108	62, 107	oveq12d 7410	. . . 4 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (({𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) |s ({𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} ∪ {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))})) = (( L ‘𝑥) |s ( R ‘𝑥)))
109		lrcut 27974	. . . . 5 ⊢ (𝑥 ∈ No → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
110	109	adantr 484	. . . 4 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
111	10, 108, 110	3eqtrd 2800	. . 3 ⊢ ((𝑥 ∈ No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑥 ·s 1s ) = 𝑥)
112	111	ex 416	. 2 ⊢ (𝑥 ∈ No → (∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂 → (𝑥 ·s 1s ) = 𝑥))
113	3, 6, 112	noinds 28015	1 ⊢ (𝐴 ∈ No → (𝐴 ·s 1s ) = 𝐴)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   = wceq 1559   ∈ wcel 2141  {cab 2739  ∀wral 3075  ∃wrex 3085   ∪ cun 3902  ∅c0 4285  {csn 4581  ‘cfv 6517  (class class class)co 7392   No csur 27681   |s ccuts 27829   0_s c0s 27875   1_s c1s 27876   L cleft 27895   R cright 27896   +_s cadds 28029   -_s csubs 28090   ·_s cmuls 28176

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5226  ax-sep 5245  ax-nul 5255  ax-pow 5321  ax-pr 5389  ax-un 7714

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-uni 4865  df-int 4905  df-iun 4950  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5540  df-eprel 5545  df-po 5553  df-so 5554  df-fr 5598  df-se 5599  df-we 5600  df-xp 5651  df-rel 5652  df-cnv 5653  df-co 5654  df-dm 5655  df-rn 5656  df-res 5657  df-ima 5658  df-pred 6284  df-ord 6345  df-on 6346  df-suc 6348  df-iota 6473  df-fun 6519  df-fn 6520  df-f 6521  df-f1 6522  df-fo 6523  df-f1o 6524  df-fv 6525  df-riota 7349  df-ov 7395  df-oprab 7396  df-mpo 7397  df-1st 7966  df-2nd 7967  df-frecs 8257  df-wrecs 8288  df-recs 8337  df-1o 8432  df-2o 8433  df-no 27684  df-lts 27685  df-bday 27686  df-les 27786  df-slts 27828  df-cuts 27830  df-0s 27877  df-1s 27878  df-made 27897  df-old 27898  df-left 27900  df-right 27901  df-norec 28008  df-norec2 28019  df-adds 28030  df-negs 28091  df-subs 28092  df-muls 28177

This theorem is referenced by:  mulsridd  28184  mulslid  28212  n0seo  28491  zseo  28492  pw2recs  28508  addhalfcut  28529  pw2cutp1  28531  bdaypw2n0bndlem  28533  bdayfinbndlem1  28537  remulscllem1  28570