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

Theorem negsid 28314
Description: Surreal addition of a number and its negative. Theorem 4(iii) of [Conway] p. 17. (Contributed by Scott Fenton, 3-Feb-2025.)
Assertion
Ref Expression
negsid (𝐴 No → (𝐴 +s ( -us𝐴)) = 0s )

Proof of Theorem negsid
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑝 𝑞 𝑥 𝑥𝐿 𝑥𝑅 𝑥𝑂 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 id 23 . . . 4 (𝑥 = 𝑥𝑂𝑥 = 𝑥𝑂)
2 fveq2 6882 . . . 4 (𝑥 = 𝑥𝑂 → ( -us𝑥) = ( -us𝑥𝑂))
31, 2oveq12d 7435 . . 3 (𝑥 = 𝑥𝑂 → (𝑥 +s ( -us𝑥)) = (𝑥𝑂 +s ( -us𝑥𝑂)))
43eqeq1d 2764 . 2 (𝑥 = 𝑥𝑂 → ((𝑥 +s ( -us𝑥)) = 0s ↔ (𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ))
5 id 23 . . . 4 (𝑥 = 𝐴𝑥 = 𝐴)
6 fveq2 6882 . . . 4 (𝑥 = 𝐴 → ( -us𝑥) = ( -us𝐴))
75, 6oveq12d 7435 . . 3 (𝑥 = 𝐴 → (𝑥 +s ( -us𝑥)) = (𝐴 +s ( -us𝐴)))
87eqeq1d 2764 . 2 (𝑥 = 𝐴 → ((𝑥 +s ( -us𝑥)) = 0s ↔ (𝐴 +s ( -us𝐴)) = 0s ))
9 lltr 28135 . . . . . 6 ( L ‘𝑥) <<s ( R ‘𝑥)
109a1i 11 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( L ‘𝑥) <<s ( R ‘𝑥))
11 negcut2 28313 . . . . . 6 (𝑥 No → ( -us “ ( R ‘𝑥)) <<s ( -us “ ( L ‘𝑥)))
1211adantr 486 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( -us “ ( R ‘𝑥)) <<s ( -us “ ( L ‘𝑥)))
13 lrcut 28177 . . . . . . 7 (𝑥 No → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
1413adantr 486 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
1514eqcomd 2768 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → 𝑥 = (( L ‘𝑥) |s ( R ‘𝑥)))
16 negsval 28298 . . . . . 6 (𝑥 No → ( -us𝑥) = (( -us “ ( R ‘𝑥)) |s ( -us “ ( L ‘𝑥))))
1716adantr 486 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( -us𝑥) = (( -us “ ( R ‘𝑥)) |s ( -us “ ( L ‘𝑥))))
1810, 12, 15, 17addsunif 28275 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (𝑥 +s ( -us𝑥)) = (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})))
19 negsfn 28296 . . . . . . . . 9 -us Fn No
20 rightssno 28147 . . . . . . . . 9 ( R ‘𝑥) ⊆ No
21 oveq2 7425 . . . . . . . . . . 11 (𝑝 = ( -us𝑥𝑅) → (𝑥 +s 𝑝) = (𝑥 +s ( -us𝑥𝑅)))
2221eqeq2d 2773 . . . . . . . . . 10 (𝑝 = ( -us𝑥𝑅) → (𝑏 = (𝑥 +s 𝑝) ↔ 𝑏 = (𝑥 +s ( -us𝑥𝑅))))
2322rexima 7241 . . . . . . . . 9 (( -us Fn No ∧ ( R ‘𝑥) ⊆ No ) → (∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))))
2419, 20, 23mp2an 705 . . . . . . . 8 (∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)))
2524abbii 2829 . . . . . . 7 {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)} = {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}
2625uneq2i 4115 . . . . . 6 ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) = ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))})
27 leftssno 28146 . . . . . . . . 9 ( L ‘𝑥) ⊆ No
28 oveq2 7425 . . . . . . . . . . 11 (𝑞 = ( -us𝑥𝐿) → (𝑥 +s 𝑞) = (𝑥 +s ( -us𝑥𝐿)))
2928eqeq2d 2773 . . . . . . . . . 10 (𝑞 = ( -us𝑥𝐿) → (𝑑 = (𝑥 +s 𝑞) ↔ 𝑑 = (𝑥 +s ( -us𝑥𝐿))))
3029rexima 7241 . . . . . . . . 9 (( -us Fn No ∧ ( L ‘𝑥) ⊆ No ) → (∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))))
3119, 27, 30mp2an 705 . . . . . . . 8 (∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)))
3231abbii 2829 . . . . . . 7 {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)} = {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}
3332uneq2i 4115 . . . . . 6 ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)}) = ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})
3426, 33oveq12i 7429 . . . . 5 (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})) = (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
35 fvex 6895 . . . . . . . . . 10 ( L ‘𝑥) ∈ V
3635abrexex 7963 . . . . . . . . 9 {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∈ V
37 fvex 6895 . . . . . . . . . 10 ( R ‘𝑥) ∈ V
3837abrexex 7963 . . . . . . . . 9 {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ∈ V
3936, 38unex 7750 . . . . . . . 8 ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∈ V
4039a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∈ V)
41 snex 5408 . . . . . . . 8 { 0s } ∈ V
4241a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } ∈ V)
4327sseli 3930 . . . . . . . . . . . . 13 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 No )
4443adantl 487 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 No )
45 simpll 779 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥 No )
4645negscld 28310 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥) ∈ No )
4744, 46addscld 28253 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) ∈ No )
48 eleq1 2850 . . . . . . . . . . 11 (𝑎 = (𝑥𝐿 +s ( -us𝑥)) → (𝑎 No ↔ (𝑥𝐿 +s ( -us𝑥)) ∈ No ))
4947, 48syl5ibrcom 250 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑎 = (𝑥𝐿 +s ( -us𝑥)) → 𝑎 No ))
5049rexlimdva 3165 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥)) → 𝑎 No ))
5150abssdv 4018 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ⊆ No )
52 simpll 779 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥 No )
5320sseli 3930 . . . . . . . . . . . . . 14 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥𝑅 No )
5453adantl 487 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥𝑅 No )
5554negscld 28310 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥𝑅) ∈ No )
5652, 55addscld 28253 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) ∈ No )
57 eleq1 2850 . . . . . . . . . . 11 (𝑏 = (𝑥 +s ( -us𝑥𝑅)) → (𝑏 No ↔ (𝑥 +s ( -us𝑥𝑅)) ∈ No ))
5856, 57syl5ibrcom 250 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑏 = (𝑥 +s ( -us𝑥𝑅)) → 𝑏 No ))
5958rexlimdva 3165 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)) → 𝑏 No ))
6059abssdv 4018 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ⊆ No )
6151, 60unssd 4141 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ⊆ No )
62 0no 28082 . . . . . . . 8 0s No
63 snssi 4749 . . . . . . . 8 ( 0s No → { 0s } ⊆ No )
6462, 63mp1i 14 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } ⊆ No )
65 elun 4103 . . . . . . . . . . 11 (𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ↔ (𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∨ 𝑝 ∈ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}))
66 vex 3457 . . . . . . . . . . . . 13 𝑝 ∈ V
67 eqeq1 2766 . . . . . . . . . . . . . 14 (𝑎 = 𝑝 → (𝑎 = (𝑥𝐿 +s ( -us𝑥)) ↔ 𝑝 = (𝑥𝐿 +s ( -us𝑥))))
6867rexbidv 3188 . . . . . . . . . . . . 13 (𝑎 = 𝑝 → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥))))
6966, 68elab 3636 . . . . . . . . . . . 12 (𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)))
70 eqeq1 2766 . . . . . . . . . . . . . 14 (𝑏 = 𝑝 → (𝑏 = (𝑥 +s ( -us𝑥𝑅)) ↔ 𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7170rexbidv 3188 . . . . . . . . . . . . 13 (𝑏 = 𝑝 → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7266, 71elab 3636 . . . . . . . . . . . 12 (𝑝 ∈ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)))
7369, 72orbi12i 928 . . . . . . . . . . 11 ((𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∨ 𝑝 ∈ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ↔ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7465, 73bitri 278 . . . . . . . . . 10 (𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ↔ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
75 velsn 4603 . . . . . . . . . 10 (𝑞 ∈ { 0s } ↔ 𝑞 = 0s )
7674, 75anbi12i 640 . . . . . . . . 9 ((𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) ↔ ((∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) ∧ 𝑞 = 0s ))
77 leftlt 28126 . . . . . . . . . . . . . . . . . . 19 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 <s 𝑥)
7877adantl 487 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 <s 𝑥)
79 ltnegsim 28311 . . . . . . . . . . . . . . . . . . 19 ((𝑥𝐿 No 𝑥 No ) → (𝑥𝐿 <s 𝑥 → ( -us𝑥) <s ( -us𝑥𝐿)))
8044, 45, 79syl2anc 596 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 <s 𝑥 → ( -us𝑥) <s ( -us𝑥𝐿)))
8178, 80mpd 16 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥) <s ( -us𝑥𝐿))
8244negscld 28310 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥𝐿) ∈ No )
8346, 82, 44ltadds2d 28270 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (( -us𝑥) <s ( -us𝑥𝐿) ↔ (𝑥𝐿 +s ( -us𝑥)) <s (𝑥𝐿 +s ( -us𝑥𝐿))))
8481, 83mpbid 235 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) <s (𝑥𝐿 +s ( -us𝑥𝐿)))
85 id 23 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝐿𝑥𝑂 = 𝑥𝐿)
86 fveq2 6882 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝐿 → ( -us𝑥𝑂) = ( -us𝑥𝐿))
8785, 86oveq12d 7435 . . . . . . . . . . . . . . . . . 18 (𝑥𝑂 = 𝑥𝐿 → (𝑥𝑂 +s ( -us𝑥𝑂)) = (𝑥𝐿 +s ( -us𝑥𝐿)))
8887eqeq1d 2764 . . . . . . . . . . . . . . . . 17 (𝑥𝑂 = 𝑥𝐿 → ((𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ↔ (𝑥𝐿 +s ( -us𝑥𝐿)) = 0s ))
89 simplr 781 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s )
90 elun1 4131 . . . . . . . . . . . . . . . . . 18 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
9190adantl 487 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
9288, 89, 91rspcdva 3580 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥𝐿)) = 0s )
9384, 92breqtrd 5135 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) <s 0s )
94 breq1 5110 . . . . . . . . . . . . . . 15 (𝑝 = (𝑥𝐿 +s ( -us𝑥)) → (𝑝 <s 0s ↔ (𝑥𝐿 +s ( -us𝑥)) <s 0s ))
9593, 94syl5ibrcom 250 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑝 = (𝑥𝐿 +s ( -us𝑥)) → 𝑝 <s 0s ))
9695rexlimdva 3165 . . . . . . . . . . . . 13 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) → 𝑝 <s 0s ))
9796imp 412 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥))) → 𝑝 <s 0s )
98 rightgt 28127 . . . . . . . . . . . . . . . . . 18 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥 <s 𝑥𝑅)
9998adantl 487 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥 <s 𝑥𝑅)
10052, 54, 55ltadds1d 28271 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 <s 𝑥𝑅 ↔ (𝑥 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥𝑅))))
10199, 100mpbid 235 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥𝑅)))
102 id 23 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝑅𝑥𝑂 = 𝑥𝑅)
103 fveq2 6882 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝑅 → ( -us𝑥𝑂) = ( -us𝑥𝑅))
104102, 103oveq12d 7435 . . . . . . . . . . . . . . . . . 18 (𝑥𝑂 = 𝑥𝑅 → (𝑥𝑂 +s ( -us𝑥𝑂)) = (𝑥𝑅 +s ( -us𝑥𝑅)))
105104eqeq1d 2764 . . . . . . . . . . . . . . . . 17 (𝑥𝑂 = 𝑥𝑅 → ((𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ↔ (𝑥𝑅 +s ( -us𝑥𝑅)) = 0s ))
106 simplr 781 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s )
107 elun2 4132 . . . . . . . . . . . . . . . . . 18 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥𝑅 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
108107adantl 487 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥𝑅 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
109105, 106, 108rspcdva 3580 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥𝑅)) = 0s )
110101, 109breqtrd 5135 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) <s 0s )
111 breq1 5110 . . . . . . . . . . . . . . 15 (𝑝 = (𝑥 +s ( -us𝑥𝑅)) → (𝑝 <s 0s ↔ (𝑥 +s ( -us𝑥𝑅)) <s 0s ))
112110, 111syl5ibrcom 250 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑝 = (𝑥 +s ( -us𝑥𝑅)) → 𝑝 <s 0s ))
113112rexlimdva 3165 . . . . . . . . . . . . 13 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)) → 𝑝 <s 0s ))
114113imp 412 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) → 𝑝 <s 0s )
11597, 114jaodan 972 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)))) → 𝑝 <s 0s )
116 breq2 5111 . . . . . . . . . . 11 (𝑞 = 0s → (𝑝 <s 𝑞𝑝 <s 0s ))
117115, 116syl5ibrcom 250 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)))) → (𝑞 = 0s𝑝 <s 𝑞))
118117expimpd 459 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (((∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) ∧ 𝑞 = 0s ) → 𝑝 <s 𝑞))
11976, 118biimtrid 245 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) → 𝑝 <s 𝑞))
1201193impib 1134 . . . . . . 7 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) → 𝑝 <s 𝑞)
12140, 42, 61, 64, 120sltsd 28041 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) <<s { 0s })
12237abrexex 7963 . . . . . . . . 9 {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∈ V
12335abrexex 7963 . . . . . . . . 9 {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ∈ V
124122, 123unex 7750 . . . . . . . 8 ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ∈ V
125124a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ∈ V)
12652negscld 28310 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥) ∈ No )
12754, 126addscld 28253 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥)) ∈ No )
128 eleq1 2850 . . . . . . . . . . 11 (𝑐 = (𝑥𝑅 +s ( -us𝑥)) → (𝑐 No ↔ (𝑥𝑅 +s ( -us𝑥)) ∈ No ))
129127, 128syl5ibrcom 250 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑐 = (𝑥𝑅 +s ( -us𝑥)) → 𝑐 No ))
130129rexlimdva 3165 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥)) → 𝑐 No ))
131130abssdv 4018 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ⊆ No )
13245, 82addscld 28253 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥 +s ( -us𝑥𝐿)) ∈ No )
133 eleq1 2850 . . . . . . . . . . 11 (𝑑 = (𝑥 +s ( -us𝑥𝐿)) → (𝑑 No ↔ (𝑥 +s ( -us𝑥𝐿)) ∈ No ))
134132, 133syl5ibrcom 250 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑑 = (𝑥 +s ( -us𝑥𝐿)) → 𝑑 No ))
135134rexlimdva 3165 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)) → 𝑑 No ))
136135abssdv 4018 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ⊆ No )
137131, 136unssd 4141 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ⊆ No )
138 velsn 4603 . . . . . . . . . 10 (𝑝 ∈ { 0s } ↔ 𝑝 = 0s )
139 elun 4103 . . . . . . . . . . 11 (𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∨ 𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
140 vex 3457 . . . . . . . . . . . . 13 𝑞 ∈ V
141 eqeq1 2766 . . . . . . . . . . . . . 14 (𝑐 = 𝑞 → (𝑐 = (𝑥𝑅 +s ( -us𝑥)) ↔ 𝑞 = (𝑥𝑅 +s ( -us𝑥))))
142141rexbidv 3188 . . . . . . . . . . . . 13 (𝑐 = 𝑞 → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥))))
143140, 142elab 3636 . . . . . . . . . . . 12 (𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)))
144 eqeq1 2766 . . . . . . . . . . . . . 14 (𝑑 = 𝑞 → (𝑑 = (𝑥 +s ( -us𝑥𝐿)) ↔ 𝑞 = (𝑥 +s ( -us𝑥𝐿))))
145144rexbidv 3188 . . . . . . . . . . . . 13 (𝑑 = 𝑞 → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
146140, 145elab 3636 . . . . . . . . . . . 12 (𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))
147143, 146orbi12i 928 . . . . . . . . . . 11 ((𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∨ 𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
148139, 147bitri 278 . . . . . . . . . 10 (𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
149138, 148anbi12i 640 . . . . . . . . 9 ((𝑝 ∈ { 0s } ∧ 𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) ↔ (𝑝 = 0s ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))))
150 ltnegsim 28311 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 No 𝑥𝑅 No ) → (𝑥 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥)))
15152, 54, 150syl2anc 596 . . . . . . . . . . . . . . . . . . 19 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥)))
15299, 151mpd 16 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥𝑅) <s ( -us𝑥))
15355, 126, 54ltadds2d 28270 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (( -us𝑥𝑅) <s ( -us𝑥) ↔ (𝑥𝑅 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥))))
154152, 153mpbid 235 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥)))
155109, 154eqbrtrrd 5133 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 0s <s (𝑥𝑅 +s ( -us𝑥)))
156 breq2 5111 . . . . . . . . . . . . . . . 16 (𝑞 = (𝑥𝑅 +s ( -us𝑥)) → ( 0s <s 𝑞 ↔ 0s <s (𝑥𝑅 +s ( -us𝑥))))
157155, 156syl5ibrcom 250 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑞 = (𝑥𝑅 +s ( -us𝑥)) → 0s <s 𝑞))
158157rexlimdva 3165 . . . . . . . . . . . . . 14 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) → 0s <s 𝑞))
159158imp 412 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥))) → 0s <s 𝑞)
16044, 45, 82ltadds1d 28271 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 <s 𝑥 ↔ (𝑥𝐿 +s ( -us𝑥𝐿)) <s (𝑥 +s ( -us𝑥𝐿))))
16178, 160mpbid 235 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥𝐿)) <s (𝑥 +s ( -us𝑥𝐿)))
16292, 161eqbrtrrd 5133 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 0s <s (𝑥 +s ( -us𝑥𝐿)))
163 breq2 5111 . . . . . . . . . . . . . . . 16 (𝑞 = (𝑥 +s ( -us𝑥𝐿)) → ( 0s <s 𝑞 ↔ 0s <s (𝑥 +s ( -us𝑥𝐿))))
164162, 163syl5ibrcom 250 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑞 = (𝑥 +s ( -us𝑥𝐿)) → 0s <s 𝑞))
165164rexlimdva 3165 . . . . . . . . . . . . . 14 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)) → 0s <s 𝑞))
166165imp 412 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))) → 0s <s 𝑞)
167159, 166jaodan 972 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))) → 0s <s 𝑞)
168 breq1 5110 . . . . . . . . . . . 12 (𝑝 = 0s → (𝑝 <s 𝑞 ↔ 0s <s 𝑞))
169167, 168syl5ibrcom 250 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))) → (𝑝 = 0s𝑝 <s 𝑞))
170169ex 418 . . . . . . . . . 10 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))) → (𝑝 = 0s𝑝 <s 𝑞)))
171170impcomd 417 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((𝑝 = 0s ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))) → 𝑝 <s 𝑞))
172149, 171biimtrid 245 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((𝑝 ∈ { 0s } ∧ 𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) → 𝑝 <s 𝑞))
1731723impib 1134 . . . . . . 7 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑝 ∈ { 0s } ∧ 𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) → 𝑝 <s 𝑞)
17442, 125, 64, 137, 173sltsd 28041 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } <<s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
175121, 174cuteq0 28088 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) = 0s )
17634, 175eqtrid 2809 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})) = 0s )
17718, 176eqtrd 2797 . . 3 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (𝑥 +s ( -us𝑥)) = 0s )
178177ex 418 . 2 (𝑥 No → (∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s → (𝑥 +s ( -us𝑥)) = 0s ))
1794, 8, 178noinds 28218 1 (𝐴 No → (𝐴 +s ( -us𝐴)) = 0s )
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  wo 861   = wceq 1570  wcel 2145  {cab 2740  wral 3078  wrex 3088  Vcvv 3453  cun 3900  wss 3902  {csn 4587   class class class wbr 5107  cima 5662   Fn wfn 6532  cfv 6537  (class class class)co 7417   No csur 27884   <s clts 27885   <<s cslts 28030   |s ccuts 28032   0s c0s 28078   L cleft 28098   R cright 28099   +s cadds 28232   -us cnegs 28292
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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-rep 5236  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740
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 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-tp 4592  df-op 4594  df-ot 4596  df-uni 4871  df-int 4911  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-se 5613  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6303  df-ord 6364  df-on 6365  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7374  df-ov 7420  df-oprab 7421  df-mpo 7422  df-1st 7990  df-2nd 7991  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-1o 8459  df-2o 8460  df-nadd 8658  df-no 27887  df-lts 27888  df-bday 27889  df-les 27989  df-slts 28031  df-cuts 28033  df-0s 28080  df-made 28100  df-old 28101  df-left 28103  df-right 28104  df-norec 28211  df-norec2 28222  df-adds 28233  df-negs 28294
This theorem is used by:  negsidd  28315  negsex  28316  negnegs  28317  negsdi  28323  subsid  28342  subadds  28343
  Copyright terms: Public domain W3C validator