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

Theorem elreno2 28505
Description: Alternate characterization of the surreal reals. Theorem 4.4(b) of [Gonshor] p. 39. (Contributed by Scott Fenton, 29-Jan-2026.)
Assertion
Ref Expression
elreno2 (𝐴 ∈ ℝs ↔ (𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)))))
Distinct variable group:   𝐴,𝑛,𝑥𝑂

Proof of Theorem elreno2
Dummy variables 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elreno 28501 . 2 (𝐴 ∈ ℝs ↔ (𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}))))
2 recut 28504 . . . . . . . . . 10 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} <<s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})
32adantr 481 . . . . . . . . 9 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} <<s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})
4 simpr 485 . . . . . . . . 9 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}))
53, 4cofcutr1d 27935 . . . . . . . 8 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦)
6 eqeq1 2743 . . . . . . . . . . . . 13 (𝑤 = 𝑦 → (𝑤 = (𝐴 -s ( 1s /su 𝑛)) ↔ 𝑦 = (𝐴 -s ( 1s /su 𝑛))))
76rexbidv 3163 . . . . . . . . . . . 12 (𝑤 = 𝑦 → (∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛)) ↔ ∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛))))
87rexab 3636 . . . . . . . . . . 11 (∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦 ↔ ∃𝑦(∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦))
9 rexcom4 3266 . . . . . . . . . . . 12 (∃𝑛 ∈ ℕs𝑦(𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦) ↔ ∃𝑦𝑛 ∈ ℕs (𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦))
10 ovex 7389 . . . . . . . . . . . . . 14 (𝐴 -s ( 1s /su 𝑛)) ∈ V
11 breq2 5076 . . . . . . . . . . . . . 14 (𝑦 = (𝐴 -s ( 1s /su 𝑛)) → (𝑥𝑂 ≤s 𝑦𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛))))
1210, 11ceqsexv 3479 . . . . . . . . . . . . 13 (∃𝑦(𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦) ↔ 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)))
1312rexbii 3086 . . . . . . . . . . . 12 (∃𝑛 ∈ ℕs𝑦(𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦) ↔ ∃𝑛 ∈ ℕs 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)))
14 r19.41v 3169 . . . . . . . . . . . . 13 (∃𝑛 ∈ ℕs (𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦) ↔ (∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦))
1514exbii 1855 . . . . . . . . . . . 12 (∃𝑦𝑛 ∈ ℕs (𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦) ↔ ∃𝑦(∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦))
169, 13, 153bitr3ri 303 . . . . . . . . . . 11 (∃𝑦(∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑥𝑂 ≤s 𝑦) ↔ ∃𝑛 ∈ ℕs 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)))
178, 16bitri 276 . . . . . . . . . 10 (∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦 ↔ ∃𝑛 ∈ ℕs 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)))
18 leftno 27887 . . . . . . . . . . . . . . . 16 (𝑥𝑂 ∈ ( L ‘𝐴) → 𝑥𝑂 No )
1918adantl 482 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → 𝑥𝑂 No )
2019adantr 481 . . . . . . . . . . . . . 14 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → 𝑥𝑂 No )
21 simpll 772 . . . . . . . . . . . . . . 15 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → 𝐴 No )
22 1no 27820 . . . . . . . . . . . . . . . . . 18 1s No
2322a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕs → 1s No )
24 nnno 28334 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕs𝑛 No )
25 nnne0s 28347 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕs𝑛 ≠ 0s )
2623, 24, 25divscld 28234 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕs → ( 1s /su 𝑛) ∈ No )
2726adantl 482 . . . . . . . . . . . . . . 15 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ( 1s /su 𝑛) ∈ No )
2821, 27subscld 28073 . . . . . . . . . . . . . 14 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝐴 -s ( 1s /su 𝑛)) ∈ No )
2920, 28, 27leadds1d 28005 . . . . . . . . . . . . 13 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)) ↔ (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s ((𝐴 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛))))
30 npcans 28085 . . . . . . . . . . . . . . 15 ((𝐴 No ∧ ( 1s /su 𝑛) ∈ No ) → ((𝐴 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛)) = 𝐴)
3121, 27, 30syl2anc 590 . . . . . . . . . . . . . 14 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ((𝐴 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛)) = 𝐴)
3231breq2d 5084 . . . . . . . . . . . . 13 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ((𝑥𝑂 +s ( 1s /su 𝑛)) ≤s ((𝐴 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛)) ↔ (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
3329, 32bitrd 280 . . . . . . . . . . . 12 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)) ↔ (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
3433rexbidva 3161 . . . . . . . . . . 11 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (∃𝑛 ∈ ℕs 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)) ↔ ∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
3534adantlr 721 . . . . . . . . . 10 (((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) ∧ 𝑥𝑂 ∈ ( L ‘𝐴)) → (∃𝑛 ∈ ℕs 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)) ↔ ∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
3617, 35bitrid 284 . . . . . . . . 9 (((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) ∧ 𝑥𝑂 ∈ ( L ‘𝐴)) → (∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦 ↔ ∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
3736ralbidva 3160 . . . . . . . 8 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦 ↔ ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
385, 37mpbid 233 . . . . . . 7 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴)
393, 4cofcutr2d 27936 . . . . . . . 8 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂)
40 eqeq1 2743 . . . . . . . . . . . . . 14 (𝑤 = 𝑦 → (𝑤 = (𝐴 +s ( 1s /su 𝑛)) ↔ 𝑦 = (𝐴 +s ( 1s /su 𝑛))))
4140rexbidv 3163 . . . . . . . . . . . . 13 (𝑤 = 𝑦 → (∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛)) ↔ ∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛))))
4241rexab 3636 . . . . . . . . . . . 12 (∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂 ↔ ∃𝑦(∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂))
43 rexcom4 3266 . . . . . . . . . . . . 13 (∃𝑛 ∈ ℕs𝑦(𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂) ↔ ∃𝑦𝑛 ∈ ℕs (𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂))
44 ovex 7389 . . . . . . . . . . . . . . 15 (𝐴 +s ( 1s /su 𝑛)) ∈ V
45 breq1 5075 . . . . . . . . . . . . . . 15 (𝑦 = (𝐴 +s ( 1s /su 𝑛)) → (𝑦 ≤s 𝑥𝑂 ↔ (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂))
4644, 45ceqsexv 3479 . . . . . . . . . . . . . 14 (∃𝑦(𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂) ↔ (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂)
4746rexbii 3086 . . . . . . . . . . . . 13 (∃𝑛 ∈ ℕs𝑦(𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂) ↔ ∃𝑛 ∈ ℕs (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂)
48 r19.41v 3169 . . . . . . . . . . . . . 14 (∃𝑛 ∈ ℕs (𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂) ↔ (∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂))
4948exbii 1855 . . . . . . . . . . . . 13 (∃𝑦𝑛 ∈ ℕs (𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂) ↔ ∃𝑦(∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂))
5043, 47, 493bitr3ri 303 . . . . . . . . . . . 12 (∃𝑦(∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑦 ≤s 𝑥𝑂) ↔ ∃𝑛 ∈ ℕs (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂)
5142, 50bitri 276 . . . . . . . . . . 11 (∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂 ↔ ∃𝑛 ∈ ℕs (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂)
52 simpll 772 . . . . . . . . . . . . . 14 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → 𝐴 No )
53 rightno 27888 . . . . . . . . . . . . . . . . 17 (𝑥𝑂 ∈ ( R ‘𝐴) → 𝑥𝑂 No )
5453adantl 482 . . . . . . . . . . . . . . . 16 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → 𝑥𝑂 No )
5554adantr 481 . . . . . . . . . . . . . . 15 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → 𝑥𝑂 No )
5626adantl 482 . . . . . . . . . . . . . . 15 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ( 1s /su 𝑛) ∈ No )
5755, 56subscld 28073 . . . . . . . . . . . . . 14 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝑥𝑂 -s ( 1s /su 𝑛)) ∈ No )
5852, 57, 56leadds1d 28005 . . . . . . . . . . . . 13 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)) ↔ (𝐴 +s ( 1s /su 𝑛)) ≤s ((𝑥𝑂 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛))))
59 npcans 28085 . . . . . . . . . . . . . . 15 ((𝑥𝑂 No ∧ ( 1s /su 𝑛) ∈ No ) → ((𝑥𝑂 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛)) = 𝑥𝑂)
6055, 56, 59syl2anc 590 . . . . . . . . . . . . . 14 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ((𝑥𝑂 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛)) = 𝑥𝑂)
6160breq2d 5084 . . . . . . . . . . . . 13 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ((𝐴 +s ( 1s /su 𝑛)) ≤s ((𝑥𝑂 -s ( 1s /su 𝑛)) +s ( 1s /su 𝑛)) ↔ (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂))
6258, 61bitr2d 281 . . . . . . . . . . . 12 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ((𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
6362rexbidva 3161 . . . . . . . . . . 11 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (∃𝑛 ∈ ℕs (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂 ↔ ∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
6451, 63bitrid 284 . . . . . . . . . 10 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂 ↔ ∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
6564ralbidva 3160 . . . . . . . . 9 (𝐴 No → (∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂 ↔ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
6665adantr 481 . . . . . . . 8 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → (∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂 ↔ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
6739, 66mpbid 233 . . . . . . 7 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))
6838, 67jca 516 . . . . . 6 ((𝐴 No 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) → (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
69 lrcut 27914 . . . . . . . 8 (𝐴 No → (( L ‘𝐴) |s ( R ‘𝐴)) = 𝐴)
7069adantr 481 . . . . . . 7 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → (( L ‘𝐴) |s ( R ‘𝐴)) = 𝐴)
71 lltr 27872 . . . . . . . . 9 ( L ‘𝐴) <<s ( R ‘𝐴)
7271a1i 11 . . . . . . . 8 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → ( L ‘𝐴) <<s ( R ‘𝐴))
7334biimpar 478 . . . . . . . . . . . . 13 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ ∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴) → ∃𝑛 ∈ ℕs 𝑥𝑂 ≤s (𝐴 -s ( 1s /su 𝑛)))
7473, 17sylibr 235 . . . . . . . . . . . 12 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ ∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴) → ∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦)
7574ex 413 . . . . . . . . . . 11 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 → ∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦))
7675ralimdva 3151 . . . . . . . . . 10 (𝐴 No → (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 → ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦))
7776imp 407 . . . . . . . . 9 ((𝐴 No ∧ ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴) → ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦)
7877adantrr 723 . . . . . . . 8 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))}𝑥𝑂 ≤s 𝑦)
7963biimpar 478 . . . . . . . . . . . . 13 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ ∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))) → ∃𝑛 ∈ ℕs (𝐴 +s ( 1s /su 𝑛)) ≤s 𝑥𝑂)
8079, 51sylibr 235 . . . . . . . . . . . 12 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ ∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))) → ∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂)
8180ex 413 . . . . . . . . . . 11 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)) → ∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂))
8281ralimdva 3151 . . . . . . . . . 10 (𝐴 No → (∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)) → ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂))
8382imp 407 . . . . . . . . 9 ((𝐴 No ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))) → ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂)
8483adantrl 722 . . . . . . . 8 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}𝑦 ≤s 𝑥𝑂)
85 nnsex 28328 . . . . . . . . . . . . 13 s ∈ V
8685abrexex 7904 . . . . . . . . . . . 12 {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} ∈ V
8786a1i 11 . . . . . . . . . . 11 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} ∈ V)
88 snexg 5369 . . . . . . . . . . 11 (𝐴 No → {𝐴} ∈ V)
89 simpl 483 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑛 ∈ ℕs) → 𝐴 No )
9026adantl 482 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑛 ∈ ℕs) → ( 1s /su 𝑛) ∈ No )
9189, 90subscld 28073 . . . . . . . . . . . . . 14 ((𝐴 No 𝑛 ∈ ℕs) → (𝐴 -s ( 1s /su 𝑛)) ∈ No )
92 eleq1 2827 . . . . . . . . . . . . . 14 (𝑤 = (𝐴 -s ( 1s /su 𝑛)) → (𝑤 No ↔ (𝐴 -s ( 1s /su 𝑛)) ∈ No ))
9391, 92syl5ibrcom 248 . . . . . . . . . . . . 13 ((𝐴 No 𝑛 ∈ ℕs) → (𝑤 = (𝐴 -s ( 1s /su 𝑛)) → 𝑤 No ))
9493rexlimdva 3140 . . . . . . . . . . . 12 (𝐴 No → (∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛)) → 𝑤 No ))
9594abssdv 3998 . . . . . . . . . . 11 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} ⊆ No )
96 snssi 4717 . . . . . . . . . . 11 (𝐴 No → {𝐴} ⊆ No )
97 biid 262 . . . . . . . . . . . 12 (𝐴 No 𝐴 No )
98 vex 3435 . . . . . . . . . . . . 13 𝑦 ∈ V
9998, 7elab 3617 . . . . . . . . . . . 12 (𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} ↔ ∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)))
100 velsn 4571 . . . . . . . . . . . 12 (𝑧 ∈ {𝐴} ↔ 𝑧 = 𝐴)
101 id 22 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕs𝑛 ∈ ℕs)
102101nnsrecgt0d 28361 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕs → 0s <s ( 1s /su 𝑛))
103102adantl 482 . . . . . . . . . . . . . . . . 17 ((𝐴 No 𝑛 ∈ ℕs) → 0s <s ( 1s /su 𝑛))
10490, 89ltsubsposd 28109 . . . . . . . . . . . . . . . . 17 ((𝐴 No 𝑛 ∈ ℕs) → ( 0s <s ( 1s /su 𝑛) ↔ (𝐴 -s ( 1s /su 𝑛)) <s 𝐴))
105103, 104mpbid 233 . . . . . . . . . . . . . . . 16 ((𝐴 No 𝑛 ∈ ℕs) → (𝐴 -s ( 1s /su 𝑛)) <s 𝐴)
106 breq12 5077 . . . . . . . . . . . . . . . 16 ((𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = 𝐴) → (𝑦 <s 𝑧 ↔ (𝐴 -s ( 1s /su 𝑛)) <s 𝐴))
107105, 106syl5ibrcom 248 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑛 ∈ ℕs) → ((𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = 𝐴) → 𝑦 <s 𝑧))
108107expd 416 . . . . . . . . . . . . . 14 ((𝐴 No 𝑛 ∈ ℕs) → (𝑦 = (𝐴 -s ( 1s /su 𝑛)) → (𝑧 = 𝐴𝑦 <s 𝑧)))
109108rexlimdva 3140 . . . . . . . . . . . . 13 (𝐴 No → (∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)) → (𝑧 = 𝐴𝑦 <s 𝑧)))
1101093imp 1116 . . . . . . . . . . . 12 ((𝐴 No ∧ ∃𝑛 ∈ ℕs 𝑦 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = 𝐴) → 𝑦 <s 𝑧)
11197, 99, 100, 110syl3anb 1167 . . . . . . . . . . 11 ((𝐴 No 𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} ∧ 𝑧 ∈ {𝐴}) → 𝑦 <s 𝑧)
11287, 88, 95, 96, 111sltsd 27778 . . . . . . . . . 10 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} <<s {𝐴})
11369sneqd 4567 . . . . . . . . . 10 (𝐴 No → {(( L ‘𝐴) |s ( R ‘𝐴))} = {𝐴})
114112, 113breqtrrd 5100 . . . . . . . . 9 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} <<s {(( L ‘𝐴) |s ( R ‘𝐴))})
115114adantr 481 . . . . . . . 8 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} <<s {(( L ‘𝐴) |s ( R ‘𝐴))})
11670sneqd 4567 . . . . . . . . 9 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → {(( L ‘𝐴) |s ( R ‘𝐴))} = {𝐴})
11785abrexex 7904 . . . . . . . . . . . 12 {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))} ∈ V
118117a1i 11 . . . . . . . . . . 11 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))} ∈ V)
11989, 90addscld 27990 . . . . . . . . . . . . . 14 ((𝐴 No 𝑛 ∈ ℕs) → (𝐴 +s ( 1s /su 𝑛)) ∈ No )
120 eleq1 2827 . . . . . . . . . . . . . 14 (𝑤 = (𝐴 +s ( 1s /su 𝑛)) → (𝑤 No ↔ (𝐴 +s ( 1s /su 𝑛)) ∈ No ))
121119, 120syl5ibrcom 248 . . . . . . . . . . . . 13 ((𝐴 No 𝑛 ∈ ℕs) → (𝑤 = (𝐴 +s ( 1s /su 𝑛)) → 𝑤 No ))
122121rexlimdva 3140 . . . . . . . . . . . 12 (𝐴 No → (∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛)) → 𝑤 No ))
123122abssdv 3998 . . . . . . . . . . 11 (𝐴 No → {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))} ⊆ No )
12498, 41elab 3617 . . . . . . . . . . . 12 (𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))} ↔ ∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)))
12590, 89ltaddspos1d 28021 . . . . . . . . . . . . . . . . . 18 ((𝐴 No 𝑛 ∈ ℕs) → ( 0s <s ( 1s /su 𝑛) ↔ 𝐴 <s (𝐴 +s ( 1s /su 𝑛))))
126103, 125mpbid 233 . . . . . . . . . . . . . . . . 17 ((𝐴 No 𝑛 ∈ ℕs) → 𝐴 <s (𝐴 +s ( 1s /su 𝑛)))
127 breq12 5077 . . . . . . . . . . . . . . . . 17 ((𝑧 = 𝐴𝑦 = (𝐴 +s ( 1s /su 𝑛))) → (𝑧 <s 𝑦𝐴 <s (𝐴 +s ( 1s /su 𝑛))))
128126, 127syl5ibrcom 248 . . . . . . . . . . . . . . . 16 ((𝐴 No 𝑛 ∈ ℕs) → ((𝑧 = 𝐴𝑦 = (𝐴 +s ( 1s /su 𝑛))) → 𝑧 <s 𝑦))
129128expcomd 417 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑛 ∈ ℕs) → (𝑦 = (𝐴 +s ( 1s /su 𝑛)) → (𝑧 = 𝐴𝑧 <s 𝑦)))
130129rexlimdva 3140 . . . . . . . . . . . . . 14 (𝐴 No → (∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)) → (𝑧 = 𝐴𝑧 <s 𝑦)))
131130com23 86 . . . . . . . . . . . . 13 (𝐴 No → (𝑧 = 𝐴 → (∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛)) → 𝑧 <s 𝑦)))
1321313imp 1116 . . . . . . . . . . . 12 ((𝐴 No 𝑧 = 𝐴 ∧ ∃𝑛 ∈ ℕs 𝑦 = (𝐴 +s ( 1s /su 𝑛))) → 𝑧 <s 𝑦)
13397, 100, 124, 132syl3anb 1167 . . . . . . . . . . 11 ((𝐴 No 𝑧 ∈ {𝐴} ∧ 𝑦 ∈ {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}) → 𝑧 <s 𝑦)
13488, 118, 96, 123, 133sltsd 27778 . . . . . . . . . 10 (𝐴 No → {𝐴} <<s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})
135134adantr 481 . . . . . . . . 9 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → {𝐴} <<s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})
136116, 135eqbrtrd 5094 . . . . . . . 8 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → {(( L ‘𝐴) |s ( R ‘𝐴))} <<s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})
13772, 78, 84, 115, 136cofcut1d 27931 . . . . . . 7 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → (( L ‘𝐴) |s ( R ‘𝐴)) = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}))
13870, 137eqtr3d 2776 . . . . . 6 ((𝐴 No ∧ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))) → 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}))
13968, 138impbida 806 . . . . 5 (𝐴 No → (𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}) ↔ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))))
140 ralunb 4126 . . . . . 6 (∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂))))
141 simpl 483 . . . . . . . . . . . . . 14 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → 𝐴 No )
142141, 19subscld 28073 . . . . . . . . . . . . 13 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (𝐴 -s 𝑥𝑂) ∈ No )
143 0no 27819 . . . . . . . . . . . . . . 15 0s No
144143a1i 11 . . . . . . . . . . . . . 14 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → 0s No )
145 leftlt 27863 . . . . . . . . . . . . . . . 16 (𝑥𝑂 ∈ ( L ‘𝐴) → 𝑥𝑂 <s 𝐴)
146145adantl 482 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → 𝑥𝑂 <s 𝐴)
14719, 141posdifsd 28108 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (𝑥𝑂 <s 𝐴 ↔ 0s <s (𝐴 -s 𝑥𝑂)))
148146, 147mpbid 233 . . . . . . . . . . . . . 14 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → 0s <s (𝐴 -s 𝑥𝑂))
149144, 142, 148ltlesd 27755 . . . . . . . . . . . . 13 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → 0s ≤s (𝐴 -s 𝑥𝑂))
150 abssid 28251 . . . . . . . . . . . . 13 (((𝐴 -s 𝑥𝑂) ∈ No ∧ 0s ≤s (𝐴 -s 𝑥𝑂)) → (abss‘(𝐴 -s 𝑥𝑂)) = (𝐴 -s 𝑥𝑂))
151142, 149, 150syl2anc 590 . . . . . . . . . . . 12 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (abss‘(𝐴 -s 𝑥𝑂)) = (𝐴 -s 𝑥𝑂))
152151breq2d 5084 . . . . . . . . . . 11 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ( 1s /su 𝑛) ≤s (𝐴 -s 𝑥𝑂)))
153152adantr 481 . . . . . . . . . 10 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ( 1s /su 𝑛) ≤s (𝐴 -s 𝑥𝑂)))
154142adantr 481 . . . . . . . . . . 11 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝐴 -s 𝑥𝑂) ∈ No )
15527, 154, 20leadds2d 28006 . . . . . . . . . 10 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (( 1s /su 𝑛) ≤s (𝐴 -s 𝑥𝑂) ↔ (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s (𝑥𝑂 +s (𝐴 -s 𝑥𝑂))))
156 pncan3s 28083 . . . . . . . . . . . . 13 ((𝑥𝑂 No 𝐴 No ) → (𝑥𝑂 +s (𝐴 -s 𝑥𝑂)) = 𝐴)
15719, 141, 156syl2anc 590 . . . . . . . . . . . 12 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (𝑥𝑂 +s (𝐴 -s 𝑥𝑂)) = 𝐴)
158157adantr 481 . . . . . . . . . . 11 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (𝑥𝑂 +s (𝐴 -s 𝑥𝑂)) = 𝐴)
159158breq2d 5084 . . . . . . . . . 10 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → ((𝑥𝑂 +s ( 1s /su 𝑛)) ≤s (𝑥𝑂 +s (𝐴 -s 𝑥𝑂)) ↔ (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
160153, 155, 1593bitrd 306 . . . . . . . . 9 (((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
161160rexbidva 3161 . . . . . . . 8 ((𝐴 No 𝑥𝑂 ∈ ( L ‘𝐴)) → (∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
162161ralbidva 3160 . . . . . . 7 (𝐴 No → (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴))
163 abssubs 28260 . . . . . . . . . . . . . 14 ((𝐴 No 𝑥𝑂 No ) → (abss‘(𝐴 -s 𝑥𝑂)) = (abss‘(𝑥𝑂 -s 𝐴)))
16453, 163sylan2 599 . . . . . . . . . . . . 13 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (abss‘(𝐴 -s 𝑥𝑂)) = (abss‘(𝑥𝑂 -s 𝐴)))
165164adantr 481 . . . . . . . . . . . 12 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (abss‘(𝐴 -s 𝑥𝑂)) = (abss‘(𝑥𝑂 -s 𝐴)))
166 simpl 483 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → 𝐴 No )
16754, 166subscld 28073 . . . . . . . . . . . . . 14 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (𝑥𝑂 -s 𝐴) ∈ No )
168143a1i 11 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → 0s No )
169 rightgt 27864 . . . . . . . . . . . . . . . . 17 (𝑥𝑂 ∈ ( R ‘𝐴) → 𝐴 <s 𝑥𝑂)
170169adantl 482 . . . . . . . . . . . . . . . 16 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → 𝐴 <s 𝑥𝑂)
171166, 54posdifsd 28108 . . . . . . . . . . . . . . . 16 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (𝐴 <s 𝑥𝑂 ↔ 0s <s (𝑥𝑂 -s 𝐴)))
172170, 171mpbid 233 . . . . . . . . . . . . . . 15 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → 0s <s (𝑥𝑂 -s 𝐴))
173168, 167, 172ltlesd 27755 . . . . . . . . . . . . . 14 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → 0s ≤s (𝑥𝑂 -s 𝐴))
174 abssid 28251 . . . . . . . . . . . . . 14 (((𝑥𝑂 -s 𝐴) ∈ No ∧ 0s ≤s (𝑥𝑂 -s 𝐴)) → (abss‘(𝑥𝑂 -s 𝐴)) = (𝑥𝑂 -s 𝐴))
175167, 173, 174syl2anc 590 . . . . . . . . . . . . 13 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (abss‘(𝑥𝑂 -s 𝐴)) = (𝑥𝑂 -s 𝐴))
176175adantr 481 . . . . . . . . . . . 12 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (abss‘(𝑥𝑂 -s 𝐴)) = (𝑥𝑂 -s 𝐴))
177165, 176eqtrd 2774 . . . . . . . . . . 11 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (abss‘(𝐴 -s 𝑥𝑂)) = (𝑥𝑂 -s 𝐴))
178177breq2d 5084 . . . . . . . . . 10 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ( 1s /su 𝑛) ≤s (𝑥𝑂 -s 𝐴)))
17956, 55, 52lesubsd 28106 . . . . . . . . . 10 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (( 1s /su 𝑛) ≤s (𝑥𝑂 -s 𝐴) ↔ 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
180178, 179bitrd 280 . . . . . . . . 9 (((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) ∧ 𝑛 ∈ ℕs) → (( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
181180rexbidva 3161 . . . . . . . 8 ((𝐴 No 𝑥𝑂 ∈ ( R ‘𝐴)) → (∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
182181ralbidva 3160 . . . . . . 7 (𝐴 No → (∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛))))
183162, 182anbi12d 638 . . . . . 6 (𝐴 No → ((∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂))) ↔ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))))
184140, 183bitrid 284 . . . . 5 (𝐴 No → (∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)) ↔ (∀𝑥𝑂 ∈ ( L ‘𝐴)∃𝑛 ∈ ℕs (𝑥𝑂 +s ( 1s /su 𝑛)) ≤s 𝐴 ∧ ∀𝑥𝑂 ∈ ( R ‘𝐴)∃𝑛 ∈ ℕs 𝐴 ≤s (𝑥𝑂 -s ( 1s /su 𝑛)))))
185139, 184bitr4d 283 . . . 4 (𝐴 No → (𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}) ↔ ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂))))
186185anbi2d 636 . . 3 (𝐴 No → ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))})) ↔ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)))))
187186pm5.32i 579 . 2 ((𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑤 ∣ ∃𝑛 ∈ ℕs 𝑤 = (𝐴 +s ( 1s /su 𝑛))}))) ↔ (𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)))))
1881, 187bitri 276 1 (𝐴 ∈ ℝs ↔ (𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))∃𝑛 ∈ ℕs ( 1s /su 𝑛) ≤s (abss‘(𝐴 -s 𝑥𝑂)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1547  wex 1786  wcel 2119  {cab 2717  wral 3053  wrex 3063  Vcvv 3431  cun 3881  {csn 4555   class class class wbr 5072  cfv 6485  (class class class)co 7356   No csur 27621   <s clts 27622   ≤s cles 27726   <<s cslts 27767   |s ccuts 27769   0s c0s 27815   1s c1s 27816   L cleft 27835   R cright 27836   +s cadds 27969   -us cnegs 28029   -s csubs 28030   /su cdivs 28197  absscabss 28247  scnns 28323  screno 28499
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-inf2 9553  ax-dc 10359
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-ot 4564  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-oadd 8399  df-nadd 8592  df-no 27624  df-lts 27625  df-bday 27626  df-les 27727  df-slts 27768  df-cuts 27770  df-0s 27817  df-1s 27818  df-made 27837  df-old 27838  df-left 27840  df-right 27841  df-norec 27948  df-norec2 27959  df-adds 27970  df-negs 28031  df-subs 28032  df-muls 28117  df-divs 28198  df-abss 28248  df-n0s 28324  df-nns 28325  df-reno 28500
This theorem is referenced by:  0reno  28506  1reno  28507
  Copyright terms: Public domain W3C validator