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

Theorem negsid 27947
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 6858 . . . 4 (𝑥 = 𝑥𝑂 → ( -us𝑥) = ( -us𝑥𝑂))
31, 2oveq12d 7405 . . 3 (𝑥 = 𝑥𝑂 → (𝑥 +s ( -us𝑥)) = (𝑥𝑂 +s ( -us𝑥𝑂)))
43eqeq1d 2731 . 2 (𝑥 = 𝑥𝑂 → ((𝑥 +s ( -us𝑥)) = 0s ↔ (𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ))
5 id 22 . . . 4 (𝑥 = 𝐴𝑥 = 𝐴)
6 fveq2 6858 . . . 4 (𝑥 = 𝐴 → ( -us𝑥) = ( -us𝐴))
75, 6oveq12d 7405 . . 3 (𝑥 = 𝐴 → (𝑥 +s ( -us𝑥)) = (𝐴 +s ( -us𝐴)))
87eqeq1d 2731 . 2 (𝑥 = 𝐴 → ((𝑥 +s ( -us𝑥)) = 0s ↔ (𝐴 +s ( -us𝐴)) = 0s ))
9 lltropt 27784 . . . . . 6 ( L ‘𝑥) <<s ( R ‘𝑥)
109a1i 11 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( L ‘𝑥) <<s ( R ‘𝑥))
11 negscut2 27946 . . . . . 6 (𝑥 No → ( -us “ ( R ‘𝑥)) <<s ( -us “ ( L ‘𝑥)))
1211adantr 480 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ( -us “ ( R ‘𝑥)) <<s ( -us “ ( L ‘𝑥)))
13 lrcut 27815 . . . . . . 7 (𝑥 No → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
1413adantr 480 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (( L ‘𝑥) |s ( R ‘𝑥)) = 𝑥)
1514eqcomd 2735 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → 𝑥 = (( L ‘𝑥) |s ( R ‘𝑥)))
16 negsval 27931 . . . . . 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 27909 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (𝑥 +s ( -us𝑥)) = (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})))
19 negsfn 27929 . . . . . . . . 9 -us Fn No
20 rightssno 27793 . . . . . . . . 9 ( R ‘𝑥) ⊆ No
21 oveq2 7395 . . . . . . . . . . 11 (𝑝 = ( -us𝑥𝑅) → (𝑥 +s 𝑝) = (𝑥 +s ( -us𝑥𝑅)))
2221eqeq2d 2740 . . . . . . . . . 10 (𝑝 = ( -us𝑥𝑅) → (𝑏 = (𝑥 +s 𝑝) ↔ 𝑏 = (𝑥 +s ( -us𝑥𝑅))))
2322rexima 7212 . . . . . . . . 9 (( -us Fn No ∧ ( R ‘𝑥) ⊆ No ) → (∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))))
2419, 20, 23mp2an 692 . . . . . . . 8 (∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)))
2524abbii 2796 . . . . . . 7 {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)} = {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}
2625uneq2i 4128 . . . . . 6 ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) = ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))})
27 leftssno 27792 . . . . . . . . 9 ( L ‘𝑥) ⊆ No
28 oveq2 7395 . . . . . . . . . . 11 (𝑞 = ( -us𝑥𝐿) → (𝑥 +s 𝑞) = (𝑥 +s ( -us𝑥𝐿)))
2928eqeq2d 2740 . . . . . . . . . 10 (𝑞 = ( -us𝑥𝐿) → (𝑑 = (𝑥 +s 𝑞) ↔ 𝑑 = (𝑥 +s ( -us𝑥𝐿))))
3029rexima 7212 . . . . . . . . 9 (( -us Fn No ∧ ( L ‘𝑥) ⊆ No ) → (∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))))
3119, 27, 30mp2an 692 . . . . . . . 8 (∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)))
3231abbii 2796 . . . . . . 7 {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)} = {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}
3332uneq2i 4128 . . . . . 6 ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)}) = ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})
3426, 33oveq12i 7399 . . . . 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 6871 . . . . . . . . . 10 ( L ‘𝑥) ∈ V
3635abrexex 7941 . . . . . . . . 9 {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∈ V
37 fvex 6871 . . . . . . . . . 10 ( R ‘𝑥) ∈ V
3837abrexex 7941 . . . . . . . . 9 {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ∈ V
3936, 38unex 7720 . . . . . . . 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 5391 . . . . . . . 8 { 0s } ∈ V
4241a1i 11 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } ∈ V)
4327sseli 3942 . . . . . . . . . . . . 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 27943 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥) ∈ No )
4744, 46addscld 27887 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥)) ∈ No )
48 eleq1 2816 . . . . . . . . . . 11 (𝑎 = (𝑥𝐿 +s ( -us𝑥)) → (𝑎 No ↔ (𝑥𝐿 +s ( -us𝑥)) ∈ No ))
4947, 48syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑎 = (𝑥𝐿 +s ( -us𝑥)) → 𝑎 No ))
5049rexlimdva 3134 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥)) → 𝑎 No ))
5150abssdv 4031 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ⊆ No )
52 simpll 766 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥 No )
5320sseli 3942 . . . . . . . . . . . . . 14 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥𝑅 No )
5453adantl 481 . . . . . . . . . . . . 13 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥𝑅 No )
5554negscld 27943 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥𝑅) ∈ No )
5652, 55addscld 27887 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥 +s ( -us𝑥𝑅)) ∈ No )
57 eleq1 2816 . . . . . . . . . . 11 (𝑏 = (𝑥 +s ( -us𝑥𝑅)) → (𝑏 No ↔ (𝑥 +s ( -us𝑥𝑅)) ∈ No ))
5856, 57syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑏 = (𝑥 +s ( -us𝑥𝑅)) → 𝑏 No ))
5958rexlimdva 3134 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)) → 𝑏 No ))
6059abssdv 4031 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))} ⊆ No )
6151, 60unssd 4155 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ⊆ No )
62 0sno 27738 . . . . . . . 8 0s No
63 snssi 4772 . . . . . . . 8 ( 0s No → { 0s } ⊆ No )
6462, 63mp1i 13 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } ⊆ No )
65 elun 4116 . . . . . . . . . . 11 (𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ↔ (𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∨ 𝑝 ∈ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}))
66 vex 3451 . . . . . . . . . . . . 13 𝑝 ∈ V
67 eqeq1 2733 . . . . . . . . . . . . . 14 (𝑎 = 𝑝 → (𝑎 = (𝑥𝐿 +s ( -us𝑥)) ↔ 𝑝 = (𝑥𝐿 +s ( -us𝑥))))
6867rexbidv 3157 . . . . . . . . . . . . 13 (𝑎 = 𝑝 → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥))))
6966, 68elab 3646 . . . . . . . . . . . 12 (𝑝 ∈ {𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)))
70 eqeq1 2733 . . . . . . . . . . . . . 14 (𝑏 = 𝑝 → (𝑏 = (𝑥 +s ( -us𝑥𝑅)) ↔ 𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7170rexbidv 3157 . . . . . . . . . . . . 13 (𝑏 = 𝑝 → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))))
7266, 71elab 3646 . . . . . . . . . . . 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 4605 . . . . . . . . . 10 (𝑞 ∈ { 0s } ↔ 𝑞 = 0s )
7674, 75anbi12i 628 . . . . . . . . 9 ((𝑝 ∈ ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) ∧ 𝑞 ∈ { 0s }) ↔ ((∃𝑥𝐿 ∈ ( L ‘𝑥)𝑝 = (𝑥𝐿 +s ( -us𝑥)) ∨ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑝 = (𝑥 +s ( -us𝑥𝑅))) ∧ 𝑞 = 0s ))
77 leftlt 27775 . . . . . . . . . . . . . . . . . . 19 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 <s 𝑥)
7877adantl 481 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 <s 𝑥)
79 sltnegim 27944 . . . . . . . . . . . . . . . . . . 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 27943 . . . . . . . . . . . . . . . . . 18 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → ( -us𝑥𝐿) ∈ No )
8346, 82, 44sltadd2d 27904 . . . . . . . . . . . . . . . . 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 6858 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝐿 → ( -us𝑥𝑂) = ( -us𝑥𝐿))
8785, 86oveq12d 7405 . . . . . . . . . . . . . . . . . 18 (𝑥𝑂 = 𝑥𝐿 → (𝑥𝑂 +s ( -us𝑥𝑂)) = (𝑥𝐿 +s ( -us𝑥𝐿)))
8887eqeq1d 2731 . . . . . . . . . . . . . . . . 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 4145 . . . . . . . . . . . . . . . . . 18 (𝑥𝐿 ∈ ( L ‘𝑥) → 𝑥𝐿 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
9190adantl 481 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → 𝑥𝐿 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
9288, 89, 91rspcdva 3589 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥𝐿 +s ( -us𝑥𝐿)) = 0s )
9384, 92breqtrd 5133 . . . . . . . . . . . . . . 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 247 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑝 = (𝑥𝐿 +s ( -us𝑥)) → 𝑝 <s 0s ))
9695rexlimdva 3134 . . . . . . . . . . . . 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 27776 . . . . . . . . . . . . . . . . . 18 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥 <s 𝑥𝑅)
9998adantl 481 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥 <s 𝑥𝑅)
10052, 54, 55sltadd1d 27905 . . . . . . . . . . . . . . . . 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 6858 . . . . . . . . . . . . . . . . . . 19 (𝑥𝑂 = 𝑥𝑅 → ( -us𝑥𝑂) = ( -us𝑥𝑅))
104102, 103oveq12d 7405 . . . . . . . . . . . . . . . . . 18 (𝑥𝑂 = 𝑥𝑅 → (𝑥𝑂 +s ( -us𝑥𝑂)) = (𝑥𝑅 +s ( -us𝑥𝑅)))
105104eqeq1d 2731 . . . . . . . . . . . . . . . . 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 4146 . . . . . . . . . . . . . . . . . 18 (𝑥𝑅 ∈ ( R ‘𝑥) → 𝑥𝑅 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
108107adantl 481 . . . . . . . . . . . . . . . . 17 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → 𝑥𝑅 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥)))
109105, 106, 108rspcdva 3589 . . . . . . . . . . . . . . . 16 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥𝑅)) = 0s )
110101, 109breqtrd 5133 . . . . . . . . . . . . . . 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 247 . . . . . . . . . . . . . 14 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑝 = (𝑥 +s ( -us𝑥𝑅)) → 𝑝 <s 0s ))
113112rexlimdva 3134 . . . . . . . . . . . . 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 5111 . . . . . . . . . . 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 27703 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) <<s { 0s })
12237abrexex 7941 . . . . . . . . 9 {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∈ V
12335abrexex 7941 . . . . . . . . 9 {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ∈ V
124122, 123unex 7720 . . . . . . . 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 27943 . . . . . . . . . . . 12 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → ( -us𝑥) ∈ No )
12754, 126addscld 27887 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑥𝑅 +s ( -us𝑥)) ∈ No )
128 eleq1 2816 . . . . . . . . . . 11 (𝑐 = (𝑥𝑅 +s ( -us𝑥)) → (𝑐 No ↔ (𝑥𝑅 +s ( -us𝑥)) ∈ No ))
129127, 128syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑐 = (𝑥𝑅 +s ( -us𝑥)) → 𝑐 No ))
130129rexlimdva 3134 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥)) → 𝑐 No ))
131130abssdv 4031 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ⊆ No )
13245, 82addscld 27887 . . . . . . . . . . 11 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑥 +s ( -us𝑥𝐿)) ∈ No )
133 eleq1 2816 . . . . . . . . . . 11 (𝑑 = (𝑥 +s ( -us𝑥𝐿)) → (𝑑 No ↔ (𝑥 +s ( -us𝑥𝐿)) ∈ No ))
134132, 133syl5ibrcom 247 . . . . . . . . . 10 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑑 = (𝑥 +s ( -us𝑥𝐿)) → 𝑑 No ))
135134rexlimdva 3134 . . . . . . . . 9 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)) → 𝑑 No ))
136135abssdv 4031 . . . . . . . 8 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))} ⊆ No )
137131, 136unssd 4155 . . . . . . 7 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ⊆ No )
138 velsn 4605 . . . . . . . . . 10 (𝑝 ∈ { 0s } ↔ 𝑝 = 0s )
139 elun 4116 . . . . . . . . . . 11 (𝑞 ∈ ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}) ↔ (𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∨ 𝑞 ∈ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
140 vex 3451 . . . . . . . . . . . . 13 𝑞 ∈ V
141 eqeq1 2733 . . . . . . . . . . . . . 14 (𝑐 = 𝑞 → (𝑐 = (𝑥𝑅 +s ( -us𝑥)) ↔ 𝑞 = (𝑥𝑅 +s ( -us𝑥))))
142141rexbidv 3157 . . . . . . . . . . . . 13 (𝑐 = 𝑞 → (∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥)) ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥))))
143140, 142elab 3646 . . . . . . . . . . . 12 (𝑞 ∈ {𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ↔ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑞 = (𝑥𝑅 +s ( -us𝑥)))
144 eqeq1 2733 . . . . . . . . . . . . . 14 (𝑑 = 𝑞 → (𝑑 = (𝑥 +s ( -us𝑥𝐿)) ↔ 𝑞 = (𝑥 +s ( -us𝑥𝐿))))
145144rexbidv 3157 . . . . . . . . . . . . 13 (𝑑 = 𝑞 → (∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿)) ↔ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑞 = (𝑥 +s ( -us𝑥𝐿))))
146140, 145elab 3646 . . . . . . . . . . . 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 27944 . . . . . . . . . . . . . . . . . . . 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 27904 . . . . . . . . . . . . . . . . . 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 5131 . . . . . . . . . . . . . . . 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 247 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝑅 ∈ ( R ‘𝑥)) → (𝑞 = (𝑥𝑅 +s ( -us𝑥)) → 0s <s 𝑞))
158157rexlimdva 3134 . . . . . . . . . . . . . 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 27905 . . . . . . . . . . . . . . . . . 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 5131 . . . . . . . . . . . . . . . 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 247 . . . . . . . . . . . . . . 15 (((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) ∧ 𝑥𝐿 ∈ ( L ‘𝑥)) → (𝑞 = (𝑥 +s ( -us𝑥𝐿)) → 0s <s 𝑞))
165164rexlimdva 3134 . . . . . . . . . . . . . 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 5110 . . . . . . . . . . . 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 27703 . . . . . 6 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → { 0s } <<s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))}))
175121, 174cuteq0 27744 . . . . 5 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑏 = (𝑥 +s ( -us𝑥𝑅))}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑑 = (𝑥 +s ( -us𝑥𝐿))})) = 0s )
17634, 175eqtrid 2776 . . . 4 ((𝑥 No ∧ ∀𝑥𝑂 ∈ (( L ‘𝑥) ∪ ( R ‘𝑥))(𝑥𝑂 +s ( -us𝑥𝑂)) = 0s ) → (({𝑎 ∣ ∃𝑥𝐿 ∈ ( L ‘𝑥)𝑎 = (𝑥𝐿 +s ( -us𝑥))} ∪ {𝑏 ∣ ∃𝑝 ∈ ( -us “ ( R ‘𝑥))𝑏 = (𝑥 +s 𝑝)}) |s ({𝑐 ∣ ∃𝑥𝑅 ∈ ( R ‘𝑥)𝑐 = (𝑥𝑅 +s ( -us𝑥))} ∪ {𝑑 ∣ ∃𝑞 ∈ ( -us “ ( L ‘𝑥))𝑑 = (𝑥 +s 𝑞)})) = 0s )
17718, 176eqtrd 2764 . . 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 27852 1 (𝐴 No → (𝐴 +s ( -us𝐴)) = 0s )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  wo 847   = wceq 1540  wcel 2109  {cab 2707  wral 3044  wrex 3053  Vcvv 3447  cun 3912  wss 3914  {csn 4589   class class class wbr 5107  cima 5641   Fn wfn 6506  cfv 6511  (class class class)co 7387   No csur 27551   <s cslt 27552   <<s csslt 27692   |s cscut 27694   0s c0s 27734   L cleft 27753   R cright 27754   +s cadds 27866   -us cnegs 27925
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 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-ot 4598  df-uni 4872  df-int 4911  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-se 5592  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-1st 7968  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-1o 8434  df-2o 8435  df-nadd 8630  df-no 27554  df-slt 27555  df-bday 27556  df-sle 27657  df-sslt 27693  df-scut 27695  df-0s 27736  df-made 27755  df-old 27756  df-left 27758  df-right 27759  df-norec 27845  df-norec2 27856  df-adds 27867  df-negs 27927
This theorem is referenced by:  negsidd  27948  negsex  27949  negnegs  27950  negsdi  27956  subsid  27973  subadds  27974
  Copyright terms: Public domain W3C validator