MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mulsrid Structured version   Visualization version   GIF version

Theorem mulsrid 28139
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.
StepHypRef Expression
1 oveq1 7438 . . 3 (𝑥 = 𝑥𝑂 → (𝑥 ·s 1s ) = (𝑥𝑂 ·s 1s ))
2 id 22 . . 3 (𝑥 = 𝑥𝑂𝑥 = 𝑥𝑂)
31, 2eqeq12d 2753 . 2 (𝑥 = 𝑥𝑂 → ((𝑥 ·s 1s ) = 𝑥 ↔ (𝑥𝑂 ·s 1s ) = 𝑥𝑂))
4 oveq1 7438 . . 3 (𝑥 = 𝐴 → (𝑥 ·s 1s ) = (𝐴 ·s 1s ))
5 id 22 . . 3 (𝑥 = 𝐴𝑥 = 𝐴)
64, 5eqeq12d 2753 . 2 (𝑥 = 𝐴 → ((𝑥 ·s 1s ) = 𝑥 ↔ (𝐴 ·s 1s ) = 𝐴))
7 1sno 27872 . . . . . 6 1s No
8 mulsval 28135 . . . . . 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 𝑤))})))
97, 8mpan2 691 . . . . 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 𝑤))})))
109adantr 480 . . . 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 4182 . . . . . . . . . . . . . . . . . . 19 (𝑝 ∈ ( L ‘𝑥) → 𝑝 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
12 oveq1 7438 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑂 = 𝑝 → (𝑥𝑂 ·s 1s ) = (𝑝 ·s 1s ))
13 id 22 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑂 = 𝑝𝑥𝑂 = 𝑝)
1412, 13eqeq12d 2753 . . . . . . . . . . . . . . . . . . . 20 (𝑥𝑂 = 𝑝 → ((𝑥𝑂 ·s 1s ) = 𝑥𝑂 ↔ (𝑝 ·s 1s ) = 𝑝))
1514rspcva 3620 . . . . . . . . . . . . . . . . . . 19 ((𝑝 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑝 ·s 1s ) = 𝑝)
1611, 15sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝑝 ∈ ( L ‘𝑥) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑝 ·s 1s ) = 𝑝)
1716ancoms 458 . . . . . . . . . . . . . . . . 17 ((∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂𝑝 ∈ ( L ‘𝑥)) → (𝑝 ·s 1s ) = 𝑝)
1817adantll 714 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 ·s 1s ) = 𝑝)
19 muls01 28138 . . . . . . . . . . . . . . . . . 18 (𝑥 No → (𝑥 ·s 0s ) = 0s )
2019adantr 480 . . . . . . . . . . . . . . . . 17 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑥 ·s 0s ) = 0s )
2120adantr 480 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑥 ·s 0s ) = 0s )
2218, 21oveq12d 7449 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → ((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) = (𝑝 +s 0s ))
23 leftssno 27919 . . . . . . . . . . . . . . . . . 18 ( L ‘𝑥) ⊆ No
2423sseli 3979 . . . . . . . . . . . . . . . . 17 (𝑝 ∈ ( L ‘𝑥) → 𝑝 No )
2524adantl 481 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → 𝑝 No )
2625addsridd 27998 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 +s 0s ) = 𝑝)
2722, 26eqtrd 2777 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → ((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) = 𝑝)
28 muls01 28138 . . . . . . . . . . . . . . 15 (𝑝 No → (𝑝 ·s 0s ) = 0s )
2925, 28syl 17 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 ·s 0s ) = 0s )
3027, 29oveq12d 7449 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) = (𝑝 -s 0s ))
31 subsid1 28098 . . . . . . . . . . . . . 14 (𝑝 No → (𝑝 -s 0s ) = 𝑝)
3225, 31syl 17 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑝 -s 0s ) = 𝑝)
3330, 32eqtrd 2777 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) = 𝑝)
3433eqeq2d 2748 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) ↔ 𝑎 = 𝑝))
35 equcom 2017 . . . . . . . . . . 11 (𝑎 = 𝑝𝑝 = 𝑎)
3634, 35bitrdi 287 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑝 ∈ ( L ‘𝑥)) → (𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) ↔ 𝑝 = 𝑎))
3736rexbidva 3177 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑝 ∈ ( L ‘𝑥)𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )) ↔ ∃𝑝 ∈ ( L ‘𝑥)𝑝 = 𝑎))
38 left1s 27933 . . . . . . . . . . . 12 ( L ‘ 1s ) = { 0s }
3938rexeqi 3325 . . . . . . . . . . 11 (∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ ∃𝑞 ∈ { 0s }𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)))
40 0sno 27871 . . . . . . . . . . . . 13 0s No
4140elexi 3503 . . . . . . . . . . . 12 0s ∈ V
42 oveq2 7439 . . . . . . . . . . . . . . 15 (𝑞 = 0s → (𝑥 ·s 𝑞) = (𝑥 ·s 0s ))
4342oveq2d 7447 . . . . . . . . . . . . . 14 (𝑞 = 0s → ((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) = ((𝑝 ·s 1s ) +s (𝑥 ·s 0s )))
44 oveq2 7439 . . . . . . . . . . . . . 14 (𝑞 = 0s → (𝑝 ·s 𝑞) = (𝑝 ·s 0s ))
4543, 44oveq12d 7449 . . . . . . . . . . . . 13 (𝑞 = 0s → (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
4645eqeq2d 2748 . . . . . . . . . . . 12 (𝑞 = 0s → (𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s ))))
4741, 46rexsn 4682 . . . . . . . . . . 11 (∃𝑞 ∈ { 0s }𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
4839, 47bitri 275 . . . . . . . . . 10 (∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
4948rexbii 3094 . . . . . . . . 9 (∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ ∃𝑝 ∈ ( L ‘𝑥)𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑝 ·s 0s )))
50 risset 3233 . . . . . . . . 9 (𝑎 ∈ ( L ‘𝑥) ↔ ∃𝑝 ∈ ( L ‘𝑥)𝑝 = 𝑎)
5137, 49, 503bitr4g 314 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑎 ∈ ( L ‘𝑥)))
5251eqabcdv 2876 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑎 ∣ ∃𝑝 ∈ ( L ‘𝑥)∃𝑞 ∈ ( L ‘ 1s )𝑎 = (((𝑝 ·s 1s ) +s (𝑥 ·s 𝑞)) -s (𝑝 ·s 𝑞))} = ( L ‘𝑥))
53 rex0 4360 . . . . . . . . . . . 12 ¬ ∃𝑠 ∈ ∅ 𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))
54 right1s 27934 . . . . . . . . . . . . 13 ( R ‘ 1s ) = ∅
5554rexeqi 3325 . . . . . . . . . . . 12 (∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠)) ↔ ∃𝑠 ∈ ∅ 𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠)))
5653, 55mtbir 323 . . . . . . . . . . 11 ¬ ∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))
5756a1i 11 . . . . . . . . . 10 (𝑟 ∈ ( R ‘𝑥) → ¬ ∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠)))
5857nrex 3074 . . . . . . . . 9 ¬ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))
5958abf 4406 . . . . . . . 8 {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))} = ∅
6059a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑏 ∣ ∃𝑟 ∈ ( R ‘𝑥)∃𝑠 ∈ ( R ‘ 1s )𝑏 = (((𝑟 ·s 1s ) +s (𝑥 ·s 𝑠)) -s (𝑟 ·s 𝑠))} = ∅)
6152, 60uneq12d 4169 . . . . . 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 ‘𝑥) ∪ ∅))
62 un0 4394 . . . . . 6 (( L ‘𝑥) ∪ ∅) = ( L ‘𝑥)
6361, 62eqtrdi 2793 . . . . 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 ‘𝑥))
64 rex0 4360 . . . . . . . . . . . 12 ¬ ∃𝑢 ∈ ∅ 𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))
6554rexeqi 3325 . . . . . . . . . . . 12 (∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢)) ↔ ∃𝑢 ∈ ∅ 𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢)))
6664, 65mtbir 323 . . . . . . . . . . 11 ¬ ∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))
6766a1i 11 . . . . . . . . . 10 (𝑡 ∈ ( L ‘𝑥) → ¬ ∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢)))
6867nrex 3074 . . . . . . . . 9 ¬ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))
6968abf 4406 . . . . . . . 8 {𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} = ∅
7069a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑐 ∣ ∃𝑡 ∈ ( L ‘𝑥)∃𝑢 ∈ ( R ‘ 1s )𝑐 = (((𝑡 ·s 1s ) +s (𝑥 ·s 𝑢)) -s (𝑡 ·s 𝑢))} = ∅)
71 elun2 4183 . . . . . . . . . . . . . . . . . . 19 (𝑣 ∈ ( R ‘𝑥) → 𝑣 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
72 oveq1 7438 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑂 = 𝑣 → (𝑥𝑂 ·s 1s ) = (𝑣 ·s 1s ))
73 id 22 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑂 = 𝑣𝑥𝑂 = 𝑣)
7472, 73eqeq12d 2753 . . . . . . . . . . . . . . . . . . . 20 (𝑥𝑂 = 𝑣 → ((𝑥𝑂 ·s 1s ) = 𝑥𝑂 ↔ (𝑣 ·s 1s ) = 𝑣))
7574rspcva 3620 . . . . . . . . . . . . . . . . . . 19 ((𝑣 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑣 ·s 1s ) = 𝑣)
7671, 75sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝑣 ∈ ( R ‘𝑥) ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑣 ·s 1s ) = 𝑣)
7776ancoms 458 . . . . . . . . . . . . . . . . 17 ((∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂𝑣 ∈ ( R ‘𝑥)) → (𝑣 ·s 1s ) = 𝑣)
7877adantll 714 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 ·s 1s ) = 𝑣)
7920adantr 480 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑥 ·s 0s ) = 0s )
8078, 79oveq12d 7449 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → ((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) = (𝑣 +s 0s ))
81 rightssno 27920 . . . . . . . . . . . . . . . . . 18 ( R ‘𝑥) ⊆ No
8281sseli 3979 . . . . . . . . . . . . . . . . 17 (𝑣 ∈ ( R ‘𝑥) → 𝑣 No )
8382adantl 481 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → 𝑣 No )
8483addsridd 27998 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 +s 0s ) = 𝑣)
8580, 84eqtrd 2777 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → ((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) = 𝑣)
86 muls01 28138 . . . . . . . . . . . . . . 15 (𝑣 No → (𝑣 ·s 0s ) = 0s )
8783, 86syl 17 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 ·s 0s ) = 0s )
8885, 87oveq12d 7449 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )) = (𝑣 -s 0s ))
89 subsid1 28098 . . . . . . . . . . . . . 14 (𝑣 No → (𝑣 -s 0s ) = 𝑣)
9083, 89syl 17 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑣 -s 0s ) = 𝑣)
9188, 90eqtrd 2777 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )) = 𝑣)
9291eqeq2d 2748 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )) ↔ 𝑑 = 𝑣))
9338rexeqi 3325 . . . . . . . . . . . 12 (∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ ∃𝑤 ∈ { 0s }𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)))
94 oveq2 7439 . . . . . . . . . . . . . . . 16 (𝑤 = 0s → (𝑥 ·s 𝑤) = (𝑥 ·s 0s ))
9594oveq2d 7447 . . . . . . . . . . . . . . 15 (𝑤 = 0s → ((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) = ((𝑣 ·s 1s ) +s (𝑥 ·s 0s )))
96 oveq2 7439 . . . . . . . . . . . . . . 15 (𝑤 = 0s → (𝑣 ·s 𝑤) = (𝑣 ·s 0s ))
9795, 96oveq12d 7449 . . . . . . . . . . . . . 14 (𝑤 = 0s → (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )))
9897eqeq2d 2748 . . . . . . . . . . . . 13 (𝑤 = 0s → (𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s ))))
9941, 98rexsn 4682 . . . . . . . . . . . 12 (∃𝑤 ∈ { 0s }𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )))
10093, 99bitri 275 . . . . . . . . . . 11 (∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 0s )) -s (𝑣 ·s 0s )))
101 equcom 2017 . . . . . . . . . . 11 (𝑣 = 𝑑𝑑 = 𝑣)
10292, 100, 1013bitr4g 314 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) ∧ 𝑣 ∈ ( R ‘𝑥)) → (∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑣 = 𝑑))
103102rexbidva 3177 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ ∃𝑣 ∈ ( R ‘𝑥)𝑣 = 𝑑))
104 risset 3233 . . . . . . . . 9 (𝑑 ∈ ( R ‘𝑥) ↔ ∃𝑣 ∈ ( R ‘𝑥)𝑣 = 𝑑)
105103, 104bitr4di 289 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤)) ↔ 𝑑 ∈ ( R ‘𝑥)))
106105eqabcdv 2876 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → {𝑑 ∣ ∃𝑣 ∈ ( R ‘𝑥)∃𝑤 ∈ ( L ‘ 1s )𝑑 = (((𝑣 ·s 1s ) +s (𝑥 ·s 𝑤)) -s (𝑣 ·s 𝑤))} = ( R ‘𝑥))
10770, 106uneq12d 4169 . . . . . 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 ‘𝑥)))
108 0un 4396 . . . . . 6 (∅ ∪ ( R ‘𝑥)) = ( R ‘𝑥)
109107, 108eqtrdi 2793 . . . . 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 ‘𝑥))
11063, 109oveq12d 7449 . . . 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 ‘𝑥)))
111 lrcut 27941 . . . . 5 (𝑥 No → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
112111adantr 480 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
11310, 110, 1123eqtrd 2781 . . 3 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂) → (𝑥 ·s 1s ) = 𝑥)
114113ex 412 . 2 (𝑥 No → (∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 ·s 1s ) = 𝑥𝑂 → (𝑥 ·s 1s ) = 𝑥))
1153, 6, 114noinds 27978 1 (𝐴 No → (𝐴 ·s 1s ) = 𝐴)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395   = wceq 1540  wcel 2108  {cab 2714  wral 3061  wrex 3070  cun 3949  c0 4333  {csn 4626  cfv 6561  (class class class)co 7431   No csur 27684   |s cscut 27827   0s c0s 27867   1s c1s 27868   L cleft 27884   R cright 27885   +s cadds 27992   -s csubs 28052   ·s cmuls 28132
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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-tp 4631  df-op 4633  df-uni 4908  df-int 4947  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-se 5638  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-1st 8014  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-1o 8506  df-2o 8507  df-no 27687  df-slt 27688  df-bday 27689  df-sle 27790  df-sslt 27826  df-scut 27828  df-0s 27869  df-1s 27870  df-made 27886  df-old 27887  df-left 27889  df-right 27890  df-norec 27971  df-norec2 27982  df-adds 27993  df-negs 28053  df-subs 28054  df-muls 28133
This theorem is referenced by:  mulsridd  28140  mulslid  28168  n0seo  28405  zseo  28406  addhalfcut  28419  zs12bday  28424  remulscllem1  28432
  Copyright terms: Public domain W3C validator