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

Theorem negsid 27984
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 22 . . . 4 (𝑥 = 𝑥𝑂𝑥 = 𝑥𝑂)
2 fveq2 6822 . . . 4 (𝑥 = 𝑥𝑂 → ( -us𝑥) = ( -us𝑥𝑂))
31, 2oveq12d 7364 . . 3 (𝑥 = 𝑥𝑂 → (𝑥 +s ( -us𝑥)) = (𝑥𝑂 +s ( -us𝑥𝑂)))
43eqeq1d 2733 . 2 (𝑥 = 𝑥𝑂 → ((𝑥 +s ( -us𝑥)) = 0s ↔ (𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ))
5 id 22 . . . 4 (𝑥 = 𝐴𝑥 = 𝐴)
6 fveq2 6822 . . . 4 (𝑥 = 𝐴 → ( -us𝑥) = ( -us𝐴))
75, 6oveq12d 7364 . . 3 (𝑥 = 𝐴 → (𝑥 +s ( -us𝑥)) = (𝐴 +s ( -us𝐴)))
87eqeq1d 2733 . 2 (𝑥 = 𝐴 → ((𝑥 +s ( -us𝑥)) = 0s ↔ (𝐴 +s ( -us𝐴)) = 0s ))
9 lltropt 27818 . . . . . 6 ( L ‘𝑥) <<s ( R ‘𝑥)
109a1i 11 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( L ‘𝑥) <<s ( R ‘𝑥))
11 negscut2 27983 . . . . . 6 (𝑥 No → ( -us “ ( R ‘𝑥)) <<s ( -us “ ( L ‘𝑥)))
1211adantr 480 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( -us “ ( R ‘𝑥)) <<s ( -us “ ( L ‘𝑥)))
13 lrcut 27850 . . . . . . 7 (𝑥 No → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
1413adantr 480 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
1514eqcomd 2737 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → 𝑥 = (( L ‘𝑥) |s ( R ‘𝑥)))
16 negsval 27968 . . . . . 6 (𝑥 No → ( -us𝑥) = (( -us “ ( R ‘𝑥)) |s ( -us “ ( L ‘𝑥))))
1716adantr 480 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( -us𝑥) = (( -us “ ( R ‘𝑥)) |s ( -us “ ( L ‘𝑥))))
1810, 12, 15, 17addsunif 27946 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (𝑥 +s ( -us𝑥)) = (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})))
19 negsfn 27966 . . . . . . . . 9 -us Fn No
20 rightssno 27828 . . . . . . . . 9 ( R ‘𝑥) ⊆ No
21 oveq2 7354 . . . . . . . . . . 11 (𝑝 = ( -us𝑥𝑅) → (𝑥 +s 𝑝) = (𝑥 +s ( -us𝑥𝑅)))
2221eqeq2d 2742 . . . . . . . . . 10 (𝑝 = ( -us𝑥𝑅) → (𝑏 = (𝑥 +s 𝑝) ↔ 𝑏 = (𝑥 +s ( -us𝑥𝑅))))
2322rexima 7172 . . . . . . . . 9 (( -us Fn No ∧ ( R ‘𝑥) ⊆ No ) → (∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))))
2419, 20, 23mp2an 692 . . . . . . . 8 (∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)))
2524abbii 2798 . . . . . . 7 {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)} = {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}
2625uneq2i 4115 . . . . . 6 ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) = ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))})
27 leftssno 27827 . . . . . . . . 9 ( L ‘𝑥) ⊆ No
28 oveq2 7354 . . . . . . . . . . 11 (𝑞 = ( -us𝑥𝐿) → (𝑥 +s 𝑞) = (𝑥 +s ( -us𝑥𝐿)))
2928eqeq2d 2742 . . . . . . . . . 10 (𝑞 = ( -us𝑥𝐿) → (𝑑 = (𝑥 +s 𝑞) ↔ 𝑑 = (𝑥 +s ( -us𝑥𝐿))))
3029rexima 7172 . . . . . . . . 9 (( -us Fn No ∧ ( L ‘𝑥) ⊆ No ) → (∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))))
3119, 27, 30mp2an 692 . . . . . . . 8 (∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)))
3231abbii 2798 . . . . . . 7 {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)} = {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}
3332uneq2i 4115 . . . . . 6 ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)}) = ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})
3426, 33oveq12i 7358 . . . . 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 6835 . . . . . . . . . 10 ( L ‘𝑥) ∈ V
3635abrexex 7894 . . . . . . . . 9 {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∈ V
37 fvex 6835 . . . . . . . . . 10 ( R ‘𝑥) ∈ V
3837abrexex 7894 . . . . . . . . 9 {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ∈ V
3936, 38unex 7677 . . . . . . . 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 5374 . . . . . . . 8 { 0s } ∈ V
4241a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } ∈ V)
4327sseli 3930 . . . . . . . . . . . . 13 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 No )
4443adantl 481 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 No )
45 simpll 766 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥 No )
4645negscld 27980 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥) ∈ No )
4744, 46addscld 27924 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) ∈ No )
48 eleq1 2819 . . . . . . . . . . 11 (𝑎 = (𝑥𝐿 +s ( -us𝑥)) → (𝑎 No ↔ (𝑥𝐿 +s ( -us𝑥)) ∈ No ))
4947, 48syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑎 = (𝑥𝐿 +s ( -us𝑥)) → 𝑎 No ))
5049rexlimdva 3133 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥)) → 𝑎 No ))
5150abssdv 4019 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ⊆ No )
52 simpll 766 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥 No )
5320sseli 3930 . . . . . . . . . . . . . 14 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥𝑅 No )
5453adantl 481 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥𝑅 No )
5554negscld 27980 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥𝑅) ∈ No )
5652, 55addscld 27924 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) ∈ No )
57 eleq1 2819 . . . . . . . . . . 11 (𝑏 = (𝑥 +s ( -us𝑥𝑅)) → (𝑏 No ↔ (𝑥 +s ( -us𝑥𝑅)) ∈ No ))
5856, 57syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑏 = (𝑥 +s ( -us𝑥𝑅)) → 𝑏 No ))
5958rexlimdva 3133 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)) → 𝑏 No ))
6059abssdv 4019 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ⊆ No )
6151, 60unssd 4142 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ⊆ No )
62 0sno 27771 . . . . . . . 8 0s No
63 snssi 4760 . . . . . . . 8 ( 0s No → { 0s } ⊆ No )
6462, 63mp1i 13 . . . . . . 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 3440 . . . . . . . . . . . . 13 𝑝 ∈ V
67 eqeq1 2735 . . . . . . . . . . . . . 14 (𝑎 = 𝑝 → (𝑎 = (𝑥𝐿 +s ( -us𝑥)) ↔ 𝑝 = (𝑥𝐿 +s ( -us𝑥))))
6867rexbidv 3156 . . . . . . . . . . . . 13 (𝑎 = 𝑝 → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥))))
6966, 68elab 3635 . . . . . . . . . . . 12 (𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)))
70 eqeq1 2735 . . . . . . . . . . . . . 14 (𝑏 = 𝑝 → (𝑏 = (𝑥 +s ( -us𝑥𝑅)) ↔ 𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7170rexbidv 3156 . . . . . . . . . . . . 13 (𝑏 = 𝑝 → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7266, 71elab 3635 . . . . . . . . . . . 12 (𝑝 ∈ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)))
7369, 72orbi12i 914 . . . . . . . . . . 11 ((𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∨ 𝑝 ∈ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ↔ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7465, 73bitri 275 . . . . . . . . . 10 (𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ↔ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
75 velsn 4592 . . . . . . . . . 10 (𝑞 ∈ { 0s } ↔ 𝑞 = 0s )
7674, 75anbi12i 628 . . . . . . . . 9 ((𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) ↔ ((∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) ∧ 𝑞 = 0s ))
77 leftlt 27809 . . . . . . . . . . . . . . . . . . 19 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 <s 𝑥)
7877adantl 481 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 <s 𝑥)
79 sltnegim 27981 . . . . . . . . . . . . . . . . . . 19 ((𝑥𝐿 No 𝑥 No ) → (𝑥𝐿 <s 𝑥 → ( -us𝑥) <s ( -us𝑥𝐿)))
8044, 45, 79syl2anc 584 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 <s 𝑥 → ( -us𝑥) <s ( -us𝑥𝐿)))
8178, 80mpd 15 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥) <s ( -us𝑥𝐿))
8244negscld 27980 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥𝐿) ∈ No )
8346, 82, 44sltadd2d 27941 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (( -us𝑥) <s ( -us𝑥𝐿) ↔ (𝑥𝐿 +s ( -us𝑥)) <s (𝑥𝐿 +s ( -us𝑥𝐿))))
8481, 83mpbid 232 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) <s (𝑥𝐿 +s ( -us𝑥𝐿)))
85 id 22 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝐿𝑥𝑂 = 𝑥𝐿)
86 fveq2 6822 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝐿 → ( -us𝑥𝑂) = ( -us𝑥𝐿))
8785, 86oveq12d 7364 . . . . . . . . . . . . . . . . . 18 (𝑥𝑂 = 𝑥𝐿 → (𝑥𝑂 +s ( -us𝑥𝑂)) = (𝑥𝐿 +s ( -us𝑥𝐿)))
8887eqeq1d 2733 . . . . . . . . . . . . . . . . 17 (𝑥𝑂 = 𝑥𝐿 → ((𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ↔ (𝑥𝐿 +s ( -us𝑥𝐿)) = 0s ))
89 simplr 768 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s )
90 elun1 4132 . . . . . . . . . . . . . . . . . 18 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
9190adantl 481 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
9288, 89, 91rspcdva 3578 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥𝐿)) = 0s )
9384, 92breqtrd 5117 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) <s 0s )
94 breq1 5094 . . . . . . . . . . . . . . 15 (𝑝 = (𝑥𝐿 +s ( -us𝑥)) → (𝑝 <s 0s ↔ (𝑥𝐿 +s ( -us𝑥)) <s 0s ))
9593, 94syl5ibrcom 247 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑝 = (𝑥𝐿 +s ( -us𝑥)) → 𝑝 <s 0s ))
9695rexlimdva 3133 . . . . . . . . . . . . 13 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) → 𝑝 <s 0s ))
9796imp 406 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥))) → 𝑝 <s 0s )
98 rightgt 27810 . . . . . . . . . . . . . . . . . 18 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥 <s 𝑥𝑅)
9998adantl 481 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥 <s 𝑥𝑅)
10052, 54, 55sltadd1d 27942 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 <s 𝑥𝑅 ↔ (𝑥 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥𝑅))))
10199, 100mpbid 232 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥𝑅)))
102 id 22 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝑅𝑥𝑂 = 𝑥𝑅)
103 fveq2 6822 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝑅 → ( -us𝑥𝑂) = ( -us𝑥𝑅))
104102, 103oveq12d 7364 . . . . . . . . . . . . . . . . . 18 (𝑥𝑂 = 𝑥𝑅 → (𝑥𝑂 +s ( -us𝑥𝑂)) = (𝑥𝑅 +s ( -us𝑥𝑅)))
105104eqeq1d 2733 . . . . . . . . . . . . . . . . 17 (𝑥𝑂 = 𝑥𝑅 → ((𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ↔ (𝑥𝑅 +s ( -us𝑥𝑅)) = 0s ))
106 simplr 768 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s )
107 elun2 4133 . . . . . . . . . . . . . . . . . 18 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥𝑅 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
108107adantl 481 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥𝑅 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
109105, 106, 108rspcdva 3578 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥𝑅)) = 0s )
110101, 109breqtrd 5117 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) <s 0s )
111 breq1 5094 . . . . . . . . . . . . . . 15 (𝑝 = (𝑥 +s ( -us𝑥𝑅)) → (𝑝 <s 0s ↔ (𝑥 +s ( -us𝑥𝑅)) <s 0s ))
112110, 111syl5ibrcom 247 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑝 = (𝑥 +s ( -us𝑥𝑅)) → 𝑝 <s 0s ))
113112rexlimdva 3133 . . . . . . . . . . . . 13 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)) → 𝑝 <s 0s ))
114113imp 406 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) → 𝑝 <s 0s )
11597, 114jaodan 959 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)))) → 𝑝 <s 0s )
116 breq2 5095 . . . . . . . . . . 11 (𝑞 = 0s → (𝑝 <s 𝑞𝑝 <s 0s ))
117115, 116syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅)))) → (𝑞 = 0s𝑝 <s 𝑞))
118117expimpd 453 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (((∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) ∧ 𝑞 = 0s ) → 𝑝 <s 𝑞))
11976, 118biimtrid 242 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) → 𝑝 <s 𝑞))
1201193impib 1116 . . . . . . 7 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) → 𝑝 <s 𝑞)
12140, 42, 61, 64, 120ssltd 27732 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) <<s { 0s })
12237abrexex 7894 . . . . . . . . 9 {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∈ V
12335abrexex 7894 . . . . . . . . 9 {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ∈ V
124122, 123unex 7677 . . . . . . . 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 27980 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥) ∈ No )
12754, 126addscld 27924 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥)) ∈ No )
128 eleq1 2819 . . . . . . . . . . 11 (𝑐 = (𝑥𝑅 +s ( -us𝑥)) → (𝑐 No ↔ (𝑥𝑅 +s ( -us𝑥)) ∈ No ))
129127, 128syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑐 = (𝑥𝑅 +s ( -us𝑥)) → 𝑐 No ))
130129rexlimdva 3133 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥)) → 𝑐 No ))
131130abssdv 4019 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ⊆ No )
13245, 82addscld 27924 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥 +s ( -us𝑥𝐿)) ∈ No )
133 eleq1 2819 . . . . . . . . . . 11 (𝑑 = (𝑥 +s ( -us𝑥𝐿)) → (𝑑 No ↔ (𝑥 +s ( -us𝑥𝐿)) ∈ No ))
134132, 133syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑑 = (𝑥 +s ( -us𝑥𝐿)) → 𝑑 No ))
135134rexlimdva 3133 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)) → 𝑑 No ))
136135abssdv 4019 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ⊆ No )
137131, 136unssd 4142 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ⊆ No )
138 velsn 4592 . . . . . . . . . 10 (𝑝 ∈ { 0s } ↔ 𝑝 = 0s )
139 elun 4103 . . . . . . . . . . 11 (𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∨ 𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
140 vex 3440 . . . . . . . . . . . . 13 𝑞 ∈ V
141 eqeq1 2735 . . . . . . . . . . . . . 14 (𝑐 = 𝑞 → (𝑐 = (𝑥𝑅 +s ( -us𝑥)) ↔ 𝑞 = (𝑥𝑅 +s ( -us𝑥))))
142141rexbidv 3156 . . . . . . . . . . . . 13 (𝑐 = 𝑞 → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥))))
143140, 142elab 3635 . . . . . . . . . . . 12 (𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)))
144 eqeq1 2735 . . . . . . . . . . . . . 14 (𝑑 = 𝑞 → (𝑑 = (𝑥 +s ( -us𝑥𝐿)) ↔ 𝑞 = (𝑥 +s ( -us𝑥𝐿))))
145144rexbidv 3156 . . . . . . . . . . . . 13 (𝑑 = 𝑞 → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
146140, 145elab 3635 . . . . . . . . . . . 12 (𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))
147143, 146orbi12i 914 . . . . . . . . . . 11 ((𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∨ 𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
148139, 147bitri 275 . . . . . . . . . 10 (𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
149138, 148anbi12i 628 . . . . . . . . 9 ((𝑝 ∈ { 0s } ∧ 𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) ↔ (𝑝 = 0s ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))))
150 sltnegim 27981 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 No 𝑥𝑅 No ) → (𝑥 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥)))
15152, 54, 150syl2anc 584 . . . . . . . . . . . . . . . . . . 19 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 <s 𝑥𝑅 → ( -us𝑥𝑅) <s ( -us𝑥)))
15299, 151mpd 15 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥𝑅) <s ( -us𝑥))
15355, 126, 54sltadd2d 27941 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (( -us𝑥𝑅) <s ( -us𝑥) ↔ (𝑥𝑅 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥))))
154152, 153mpbid 232 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥𝑅)) <s (𝑥𝑅 +s ( -us𝑥)))
155109, 154eqbrtrrd 5115 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 0s <s (𝑥𝑅 +s ( -us𝑥)))
156 breq2 5095 . . . . . . . . . . . . . . . 16 (𝑞 = (𝑥𝑅 +s ( -us𝑥)) → ( 0s <s 𝑞 ↔ 0s <s (𝑥𝑅 +s ( -us𝑥))))
157155, 156syl5ibrcom 247 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑞 = (𝑥𝑅 +s ( -us𝑥)) → 0s <s 𝑞))
158157rexlimdva 3133 . . . . . . . . . . . . . 14 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) → 0s <s 𝑞))
159158imp 406 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥))) → 0s <s 𝑞)
16044, 45, 82sltadd1d 27942 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 <s 𝑥 ↔ (𝑥𝐿 +s ( -us𝑥𝐿)) <s (𝑥 +s ( -us𝑥𝐿))))
16178, 160mpbid 232 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥𝐿)) <s (𝑥 +s ( -us𝑥𝐿)))
16292, 161eqbrtrrd 5115 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 0s <s (𝑥 +s ( -us𝑥𝐿)))
163 breq2 5095 . . . . . . . . . . . . . . . 16 (𝑞 = (𝑥 +s ( -us𝑥𝐿)) → ( 0s <s 𝑞 ↔ 0s <s (𝑥 +s ( -us𝑥𝐿))))
164162, 163syl5ibrcom 247 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑞 = (𝑥 +s ( -us𝑥𝐿)) → 0s <s 𝑞))
165164rexlimdva 3133 . . . . . . . . . . . . . 14 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)) → 0s <s 𝑞))
166165imp 406 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))) → 0s <s 𝑞)
167159, 166jaodan 959 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))) → 0s <s 𝑞)
168 breq1 5094 . . . . . . . . . . . 12 (𝑝 = 0s → (𝑝 <s 𝑞 ↔ 0s <s 𝑞))
169167, 168syl5ibrcom 247 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))) → (𝑝 = 0s𝑝 <s 𝑞))
170169ex 412 . . . . . . . . . 10 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))) → (𝑝 = 0s𝑝 <s 𝑞)))
171170impcomd 411 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((𝑝 = 0s ∧ (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)) ∨ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿)))) → 𝑝 <s 𝑞))
172149, 171biimtrid 242 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ((𝑝 ∈ { 0s } ∧ 𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) → 𝑝 <s 𝑞))
1731723impib 1116 . . . . . . 7 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑝 ∈ { 0s } ∧ 𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) → 𝑝 <s 𝑞)
17442, 125, 64, 137, 173ssltd 27732 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } <<s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
175121, 174cuteq0 27777 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) = 0s )
17634, 175eqtrid 2778 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})) = 0s )
17718, 176eqtrd 2766 . . 3 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (𝑥 +s ( -us𝑥)) = 0s )
178177ex 412 . 2 (𝑥 No → (∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s → (𝑥 +s ( -us𝑥)) = 0s ))
1794, 8, 178noinds 27889 1 (𝐴 No → (𝐴 +s ( -us𝐴)) = 0s )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  wo 847   = wceq 1541  wcel 2111  {cab 2709  wral 3047  wrex 3056  Vcvv 3436  cun 3900  wss 3902  {csn 4576   class class class wbr 5091  cima 5619   Fn wfn 6476  cfv 6481  (class class class)co 7346   No csur 27579   <s cslt 27580   <<s csslt 27721   |s cscut 27723   0s c0s 27767   L cleft 27787   R cright 27788   +s cadds 27903   -us cnegs 27962
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-rep 5217  ax-sep 5234  ax-nul 5244  ax-pow 5303  ax-pr 5370  ax-un 7668
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-rmo 3346  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4476  df-pw 4552  df-sn 4577  df-pr 4579  df-tp 4581  df-op 4583  df-ot 4585  df-uni 4860  df-int 4898  df-iun 4943  df-br 5092  df-opab 5154  df-mpt 5173  df-tr 5199  df-id 5511  df-eprel 5516  df-po 5524  df-so 5525  df-fr 5569  df-se 5570  df-we 5571  df-xp 5622  df-rel 5623  df-cnv 5624  df-co 5625  df-dm 5626  df-rn 5627  df-res 5628  df-ima 5629  df-pred 6248  df-ord 6309  df-on 6310  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-riota 7303  df-ov 7349  df-oprab 7350  df-mpo 7351  df-1st 7921  df-2nd 7922  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-1o 8385  df-2o 8386  df-nadd 8581  df-no 27582  df-slt 27583  df-bday 27584  df-sle 27685  df-sslt 27722  df-scut 27724  df-0s 27769  df-made 27789  df-old 27790  df-left 27792  df-right 27793  df-norec 27882  df-norec2 27893  df-adds 27904  df-negs 27964
This theorem is referenced by:  negsidd  27985  negsex  27986  negnegs  27987  negsdi  27993  subsid  28010  subadds  28011
  Copyright terms: Public domain W3C validator