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

Theorem readdscl 28168
Description: The surreal reals are closed under addition. Part of theorem 13(ii) of [Conway] p. 24. (Contributed by Scott Fenton, 15-Apr-2025.)
Assertion
Ref Expression
readdscl ((𝐴 ∈ ℝs𝐵 ∈ ℝs) → (𝐴 +s 𝐵) ∈ ℝs)

Proof of Theorem readdscl
Dummy variables 𝑛 𝑚 𝑝 𝑡 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 addscl 27839 . . . . 5 ((𝐴 No 𝐵 No ) → (𝐴 +s 𝐵) ∈ No )
21adantr 480 . . . 4 (((𝐴 No 𝐵 No ) ∧ ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))) → (𝐴 +s 𝐵) ∈ No )
3 nnaddscl 28153 . . . . . . . . . 10 ((𝑛 ∈ ℕs𝑚 ∈ ℕs) → (𝑛 +s 𝑚) ∈ ℕs)
43adantr 480 . . . . . . . . 9 (((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚))) → (𝑛 +s 𝑚) ∈ ℕs)
54adantl 481 . . . . . . . 8 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → (𝑛 +s 𝑚) ∈ ℕs)
6 simprll 776 . . . . . . . . . . 11 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝑛 ∈ ℕs)
76nnsnod 28139 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝑛 No )
8 simprlr 777 . . . . . . . . . . 11 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝑚 ∈ ℕs)
98nnsnod 28139 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝑚 No )
10 negsdi 27903 . . . . . . . . . 10 ((𝑛 No 𝑚 No ) → ( -us ‘(𝑛 +s 𝑚)) = (( -us𝑛) +s ( -us𝑚)))
117, 9, 10syl2anc 583 . . . . . . . . 9 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ( -us ‘(𝑛 +s 𝑚)) = (( -us𝑛) +s ( -us𝑚)))
127negscld 27890 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ( -us𝑛) ∈ No )
139negscld 27890 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ( -us𝑚) ∈ No )
14 simpll 764 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝐴 No )
15 simplr 766 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝐵 No )
16 simprll 776 . . . . . . . . . . 11 (((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚))) → ( -us𝑛) <s 𝐴)
1716adantl 481 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ( -us𝑛) <s 𝐴)
18 simprrl 778 . . . . . . . . . . 11 (((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚))) → ( -us𝑚) <s 𝐵)
1918adantl 481 . . . . . . . . . 10 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ( -us𝑚) <s 𝐵)
2012, 13, 14, 15, 17, 19slt2addd 27871 . . . . . . . . 9 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → (( -us𝑛) +s ( -us𝑚)) <s (𝐴 +s 𝐵))
2111, 20eqbrtrd 5161 . . . . . . . 8 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ( -us ‘(𝑛 +s 𝑚)) <s (𝐴 +s 𝐵))
22 simprlr 777 . . . . . . . . . 10 (((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚))) → 𝐴 <s 𝑛)
2322adantl 481 . . . . . . . . 9 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝐴 <s 𝑛)
24 simprrr 779 . . . . . . . . . 10 (((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚))) → 𝐵 <s 𝑚)
2524adantl 481 . . . . . . . . 9 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → 𝐵 <s 𝑚)
2614, 15, 7, 9, 23, 25slt2addd 27871 . . . . . . . 8 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → (𝐴 +s 𝐵) <s (𝑛 +s 𝑚))
27 fveq2 6882 . . . . . . . . . . 11 (𝑝 = (𝑛 +s 𝑚) → ( -us𝑝) = ( -us ‘(𝑛 +s 𝑚)))
2827breq1d 5149 . . . . . . . . . 10 (𝑝 = (𝑛 +s 𝑚) → (( -us𝑝) <s (𝐴 +s 𝐵) ↔ ( -us ‘(𝑛 +s 𝑚)) <s (𝐴 +s 𝐵)))
29 breq2 5143 . . . . . . . . . 10 (𝑝 = (𝑛 +s 𝑚) → ((𝐴 +s 𝐵) <s 𝑝 ↔ (𝐴 +s 𝐵) <s (𝑛 +s 𝑚)))
3028, 29anbi12d 630 . . . . . . . . 9 (𝑝 = (𝑛 +s 𝑚) → ((( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝) ↔ (( -us ‘(𝑛 +s 𝑚)) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s (𝑛 +s 𝑚))))
3130rspcev 3604 . . . . . . . 8 (((𝑛 +s 𝑚) ∈ ℕs ∧ (( -us ‘(𝑛 +s 𝑚)) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s (𝑛 +s 𝑚))) → ∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝))
325, 21, 26, 31syl12anc 834 . . . . . . 7 (((𝐴 No 𝐵 No ) ∧ ((𝑛 ∈ ℕs𝑚 ∈ ℕs) ∧ ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))) → ∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝))
3332expr 456 . . . . . 6 (((𝐴 No 𝐵 No ) ∧ (𝑛 ∈ ℕs𝑚 ∈ ℕs)) → (((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)) → ∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝)))
3433rexlimdvva 3203 . . . . 5 ((𝐴 No 𝐵 No ) → (∃𝑛 ∈ ℕs𝑚 ∈ ℕs ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)) → ∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝)))
35 simpl 482 . . . . . . 7 ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) → ∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛))
36 simpl 482 . . . . . . 7 ((∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})) → ∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚))
3735, 36anim12i 612 . . . . . 6 (((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ ∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))
38 reeanv 3218 . . . . . 6 (∃𝑛 ∈ ℕs𝑚 ∈ ℕs ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)) ↔ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ ∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))
3937, 38sylibr 233 . . . . 5 (((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → ∃𝑛 ∈ ℕs𝑚 ∈ ℕs ((( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ (( -us𝑚) <s 𝐵𝐵 <s 𝑚)))
4034, 39impel 505 . . . 4 (((𝐴 No 𝐵 No ) ∧ ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))) → ∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝))
41 simpr 484 . . . . . 6 ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) → 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}))
42 simpr 484 . . . . . 6 ((∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})) → 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))
4341, 42anim12i 612 . . . . 5 (((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))
44 simpll 764 . . . . . . . 8 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → 𝐴 No )
45 recut 28165 . . . . . . . 8 (𝐴 No → {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} <<s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})
4644, 45syl 17 . . . . . . 7 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} <<s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})
47 simplr 766 . . . . . . . 8 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → 𝐵 No )
48 recut 28165 . . . . . . . 8 (𝐵 No → {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} <<s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})
4947, 48syl 17 . . . . . . 7 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} <<s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})
50 simprl 768 . . . . . . 7 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}))
51 simprr 770 . . . . . . 7 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))
5246, 49, 50, 51addsunif 27860 . . . . . 6 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → (𝐴 +s 𝐵) = (({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) |s ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)})))
53 ovex 7435 . . . . . . . . . . . . . . 15 (𝐴 -s ( 1s /su 𝑛)) ∈ V
54 oveq1 7409 . . . . . . . . . . . . . . . 16 (𝑡 = (𝐴 -s ( 1s /su 𝑛)) → (𝑡 +s 𝐵) = ((𝐴 -s ( 1s /su 𝑛)) +s 𝐵))
5554eqeq2d 2735 . . . . . . . . . . . . . . 15 (𝑡 = (𝐴 -s ( 1s /su 𝑛)) → (𝑧 = (𝑡 +s 𝐵) ↔ 𝑧 = ((𝐴 -s ( 1s /su 𝑛)) +s 𝐵)))
5653, 55ceqsexv 3518 . . . . . . . . . . . . . 14 (∃𝑡(𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ 𝑧 = ((𝐴 -s ( 1s /su 𝑛)) +s 𝐵))
57 simpll 764 . . . . . . . . . . . . . . . 16 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → 𝐴 No )
58 simplr 766 . . . . . . . . . . . . . . . 16 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → 𝐵 No )
59 1sno 27701 . . . . . . . . . . . . . . . . . . 19 1s No
6059a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕs → 1s No )
61 nnsno 28137 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕs𝑛 No )
62 nnne0s 28146 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕs𝑛 ≠ 0s )
6360, 61, 62divscld 28063 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕs → ( 1s /su 𝑛) ∈ No )
6463adantl 481 . . . . . . . . . . . . . . . 16 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → ( 1s /su 𝑛) ∈ No )
6557, 58, 64addsubsd 27931 . . . . . . . . . . . . . . 15 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → ((𝐴 +s 𝐵) -s ( 1s /su 𝑛)) = ((𝐴 -s ( 1s /su 𝑛)) +s 𝐵))
6665eqeq2d 2735 . . . . . . . . . . . . . 14 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → (𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑛)) ↔ 𝑧 = ((𝐴 -s ( 1s /su 𝑛)) +s 𝐵)))
6756, 66bitr4id 290 . . . . . . . . . . . . 13 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → (∃𝑡(𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑛))))
6867rexbidva 3168 . . . . . . . . . . . 12 ((𝐴 No 𝐵 No ) → (∃𝑛 ∈ ℕs𝑡(𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ ∃𝑛 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑛))))
69 r19.41v 3180 . . . . . . . . . . . . . 14 (∃𝑛 ∈ ℕs (𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ (∃𝑛 ∈ ℕs 𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
7069exbii 1842 . . . . . . . . . . . . 13 (∃𝑡𝑛 ∈ ℕs (𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ ∃𝑡(∃𝑛 ∈ ℕs 𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
71 rexcom4 3277 . . . . . . . . . . . . 13 (∃𝑛 ∈ ℕs𝑡(𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ ∃𝑡𝑛 ∈ ℕs (𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
72 eqeq1 2728 . . . . . . . . . . . . . . 15 (𝑥 = 𝑡 → (𝑥 = (𝐴 -s ( 1s /su 𝑛)) ↔ 𝑡 = (𝐴 -s ( 1s /su 𝑛))))
7372rexbidv 3170 . . . . . . . . . . . . . 14 (𝑥 = 𝑡 → (∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛)) ↔ ∃𝑛 ∈ ℕs 𝑡 = (𝐴 -s ( 1s /su 𝑛))))
7473rexab 3683 . . . . . . . . . . . . 13 (∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵) ↔ ∃𝑡(∃𝑛 ∈ ℕs 𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
7570, 71, 743bitr4ri 304 . . . . . . . . . . . 12 (∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵) ↔ ∃𝑛 ∈ ℕs𝑡(𝑡 = (𝐴 -s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
76 oveq2 7410 . . . . . . . . . . . . . . 15 (𝑝 = 𝑛 → ( 1s /su 𝑝) = ( 1s /su 𝑛))
7776oveq2d 7418 . . . . . . . . . . . . . 14 (𝑝 = 𝑛 → ((𝐴 +s 𝐵) -s ( 1s /su 𝑝)) = ((𝐴 +s 𝐵) -s ( 1s /su 𝑛)))
7877eqeq2d 2735 . . . . . . . . . . . . 13 (𝑝 = 𝑛 → (𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝)) ↔ 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑛))))
7978cbvrexvw 3227 . . . . . . . . . . . 12 (∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝)) ↔ ∃𝑛 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑛)))
8068, 75, 793bitr4g 314 . . . . . . . . . . 11 ((𝐴 No 𝐵 No ) → (∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵) ↔ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))))
8180abbidv 2793 . . . . . . . . . 10 ((𝐴 No 𝐵 No ) → {𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))})
82 ovex 7435 . . . . . . . . . . . . . . 15 (𝐵 -s ( 1s /su 𝑚)) ∈ V
83 oveq2 7410 . . . . . . . . . . . . . . . 16 (𝑡 = (𝐵 -s ( 1s /su 𝑚)) → (𝐴 +s 𝑡) = (𝐴 +s (𝐵 -s ( 1s /su 𝑚))))
8483eqeq2d 2735 . . . . . . . . . . . . . . 15 (𝑡 = (𝐵 -s ( 1s /su 𝑚)) → (𝑧 = (𝐴 +s 𝑡) ↔ 𝑧 = (𝐴 +s (𝐵 -s ( 1s /su 𝑚)))))
8582, 84ceqsexv 3518 . . . . . . . . . . . . . 14 (∃𝑡(𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ 𝑧 = (𝐴 +s (𝐵 -s ( 1s /su 𝑚))))
86 simpll 764 . . . . . . . . . . . . . . . 16 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → 𝐴 No )
87 simplr 766 . . . . . . . . . . . . . . . 16 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → 𝐵 No )
8859a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑚 ∈ ℕs → 1s No )
89 nnsno 28137 . . . . . . . . . . . . . . . . . 18 (𝑚 ∈ ℕs𝑚 No )
90 nnne0s 28146 . . . . . . . . . . . . . . . . . 18 (𝑚 ∈ ℕs𝑚 ≠ 0s )
9188, 89, 90divscld 28063 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℕs → ( 1s /su 𝑚) ∈ No )
9291adantl 481 . . . . . . . . . . . . . . . 16 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → ( 1s /su 𝑚) ∈ No )
9386, 87, 92addsubsassd 27930 . . . . . . . . . . . . . . 15 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → ((𝐴 +s 𝐵) -s ( 1s /su 𝑚)) = (𝐴 +s (𝐵 -s ( 1s /su 𝑚))))
9493eqeq2d 2735 . . . . . . . . . . . . . 14 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → (𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑚)) ↔ 𝑧 = (𝐴 +s (𝐵 -s ( 1s /su 𝑚)))))
9585, 94bitr4id 290 . . . . . . . . . . . . 13 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → (∃𝑡(𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑚))))
9695rexbidva 3168 . . . . . . . . . . . 12 ((𝐴 No 𝐵 No ) → (∃𝑚 ∈ ℕs𝑡(𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ ∃𝑚 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑚))))
97 r19.41v 3180 . . . . . . . . . . . . . 14 (∃𝑚 ∈ ℕs (𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ (∃𝑚 ∈ ℕs 𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
9897exbii 1842 . . . . . . . . . . . . 13 (∃𝑡𝑚 ∈ ℕs (𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ ∃𝑡(∃𝑚 ∈ ℕs 𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
99 rexcom4 3277 . . . . . . . . . . . . 13 (∃𝑚 ∈ ℕs𝑡(𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ ∃𝑡𝑚 ∈ ℕs (𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
100 eqeq1 2728 . . . . . . . . . . . . . . 15 (𝑦 = 𝑡 → (𝑦 = (𝐵 -s ( 1s /su 𝑚)) ↔ 𝑡 = (𝐵 -s ( 1s /su 𝑚))))
101100rexbidv 3170 . . . . . . . . . . . . . 14 (𝑦 = 𝑡 → (∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚)) ↔ ∃𝑚 ∈ ℕs 𝑡 = (𝐵 -s ( 1s /su 𝑚))))
102101rexab 3683 . . . . . . . . . . . . 13 (∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡) ↔ ∃𝑡(∃𝑚 ∈ ℕs 𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
10398, 99, 1023bitr4ri 304 . . . . . . . . . . . 12 (∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡) ↔ ∃𝑚 ∈ ℕs𝑡(𝑡 = (𝐵 -s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
104 oveq2 7410 . . . . . . . . . . . . . . 15 (𝑝 = 𝑚 → ( 1s /su 𝑝) = ( 1s /su 𝑚))
105104oveq2d 7418 . . . . . . . . . . . . . 14 (𝑝 = 𝑚 → ((𝐴 +s 𝐵) -s ( 1s /su 𝑝)) = ((𝐴 +s 𝐵) -s ( 1s /su 𝑚)))
106105eqeq2d 2735 . . . . . . . . . . . . 13 (𝑝 = 𝑚 → (𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝)) ↔ 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑚))))
107106cbvrexvw 3227 . . . . . . . . . . . 12 (∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝)) ↔ ∃𝑚 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑚)))
10896, 103, 1073bitr4g 314 . . . . . . . . . . 11 ((𝐴 No 𝐵 No ) → (∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡) ↔ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))))
109108abbidv 2793 . . . . . . . . . 10 ((𝐴 No 𝐵 No ) → {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)} = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))})
11081, 109uneq12d 4157 . . . . . . . . 9 ((𝐴 No 𝐵 No ) → ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} ∪ {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))}))
111 unidm 4145 . . . . . . . . 9 ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} ∪ {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))}) = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))}
112110, 111eqtrdi 2780 . . . . . . . 8 ((𝐴 No 𝐵 No ) → ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))})
113 ovex 7435 . . . . . . . . . . . . . . 15 (𝐴 +s ( 1s /su 𝑛)) ∈ V
114 oveq1 7409 . . . . . . . . . . . . . . . 16 (𝑡 = (𝐴 +s ( 1s /su 𝑛)) → (𝑡 +s 𝐵) = ((𝐴 +s ( 1s /su 𝑛)) +s 𝐵))
115114eqeq2d 2735 . . . . . . . . . . . . . . 15 (𝑡 = (𝐴 +s ( 1s /su 𝑛)) → (𝑧 = (𝑡 +s 𝐵) ↔ 𝑧 = ((𝐴 +s ( 1s /su 𝑛)) +s 𝐵)))
116113, 115ceqsexv 3518 . . . . . . . . . . . . . 14 (∃𝑡(𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ 𝑧 = ((𝐴 +s ( 1s /su 𝑛)) +s 𝐵))
11757, 64, 58adds32d 27865 . . . . . . . . . . . . . . 15 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → ((𝐴 +s ( 1s /su 𝑛)) +s 𝐵) = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛)))
118117eqeq2d 2735 . . . . . . . . . . . . . 14 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → (𝑧 = ((𝐴 +s ( 1s /su 𝑛)) +s 𝐵) ↔ 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛))))
119116, 118bitrid 283 . . . . . . . . . . . . 13 (((𝐴 No 𝐵 No ) ∧ 𝑛 ∈ ℕs) → (∃𝑡(𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛))))
120119rexbidva 3168 . . . . . . . . . . . 12 ((𝐴 No 𝐵 No ) → (∃𝑛 ∈ ℕs𝑡(𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ ∃𝑛 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛))))
121 r19.41v 3180 . . . . . . . . . . . . . 14 (∃𝑛 ∈ ℕs (𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ (∃𝑛 ∈ ℕs 𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
122121exbii 1842 . . . . . . . . . . . . 13 (∃𝑡𝑛 ∈ ℕs (𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ ∃𝑡(∃𝑛 ∈ ℕs 𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
123 rexcom4 3277 . . . . . . . . . . . . 13 (∃𝑛 ∈ ℕs𝑡(𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)) ↔ ∃𝑡𝑛 ∈ ℕs (𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
124 eqeq1 2728 . . . . . . . . . . . . . . 15 (𝑥 = 𝑡 → (𝑥 = (𝐴 +s ( 1s /su 𝑛)) ↔ 𝑡 = (𝐴 +s ( 1s /su 𝑛))))
125124rexbidv 3170 . . . . . . . . . . . . . 14 (𝑥 = 𝑡 → (∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛)) ↔ ∃𝑛 ∈ ℕs 𝑡 = (𝐴 +s ( 1s /su 𝑛))))
126125rexab 3683 . . . . . . . . . . . . 13 (∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵) ↔ ∃𝑡(∃𝑛 ∈ ℕs 𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
127122, 123, 1263bitr4ri 304 . . . . . . . . . . . 12 (∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵) ↔ ∃𝑛 ∈ ℕs𝑡(𝑡 = (𝐴 +s ( 1s /su 𝑛)) ∧ 𝑧 = (𝑡 +s 𝐵)))
12876oveq2d 7418 . . . . . . . . . . . . . 14 (𝑝 = 𝑛 → ((𝐴 +s 𝐵) +s ( 1s /su 𝑝)) = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛)))
129128eqeq2d 2735 . . . . . . . . . . . . 13 (𝑝 = 𝑛 → (𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝)) ↔ 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛))))
130129cbvrexvw 3227 . . . . . . . . . . . 12 (∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝)) ↔ ∃𝑛 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑛)))
131120, 127, 1303bitr4g 314 . . . . . . . . . . 11 ((𝐴 No 𝐵 No ) → (∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵) ↔ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))))
132131abbidv 2793 . . . . . . . . . 10 ((𝐴 No 𝐵 No ) → {𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))})
133 ovex 7435 . . . . . . . . . . . . . . 15 (𝐵 +s ( 1s /su 𝑚)) ∈ V
134 oveq2 7410 . . . . . . . . . . . . . . . 16 (𝑡 = (𝐵 +s ( 1s /su 𝑚)) → (𝐴 +s 𝑡) = (𝐴 +s (𝐵 +s ( 1s /su 𝑚))))
135134eqeq2d 2735 . . . . . . . . . . . . . . 15 (𝑡 = (𝐵 +s ( 1s /su 𝑚)) → (𝑧 = (𝐴 +s 𝑡) ↔ 𝑧 = (𝐴 +s (𝐵 +s ( 1s /su 𝑚)))))
136133, 135ceqsexv 3518 . . . . . . . . . . . . . 14 (∃𝑡(𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ 𝑧 = (𝐴 +s (𝐵 +s ( 1s /su 𝑚))))
13786, 87, 92addsassd 27864 . . . . . . . . . . . . . . 15 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → ((𝐴 +s 𝐵) +s ( 1s /su 𝑚)) = (𝐴 +s (𝐵 +s ( 1s /su 𝑚))))
138137eqeq2d 2735 . . . . . . . . . . . . . 14 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → (𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑚)) ↔ 𝑧 = (𝐴 +s (𝐵 +s ( 1s /su 𝑚)))))
139136, 138bitr4id 290 . . . . . . . . . . . . 13 (((𝐴 No 𝐵 No ) ∧ 𝑚 ∈ ℕs) → (∃𝑡(𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑚))))
140139rexbidva 3168 . . . . . . . . . . . 12 ((𝐴 No 𝐵 No ) → (∃𝑚 ∈ ℕs𝑡(𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ ∃𝑚 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑚))))
141 r19.41v 3180 . . . . . . . . . . . . . 14 (∃𝑚 ∈ ℕs (𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ (∃𝑚 ∈ ℕs 𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
142141exbii 1842 . . . . . . . . . . . . 13 (∃𝑡𝑚 ∈ ℕs (𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ ∃𝑡(∃𝑚 ∈ ℕs 𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
143 rexcom4 3277 . . . . . . . . . . . . 13 (∃𝑚 ∈ ℕs𝑡(𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)) ↔ ∃𝑡𝑚 ∈ ℕs (𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
144 eqeq1 2728 . . . . . . . . . . . . . . 15 (𝑦 = 𝑡 → (𝑦 = (𝐵 +s ( 1s /su 𝑚)) ↔ 𝑡 = (𝐵 +s ( 1s /su 𝑚))))
145144rexbidv 3170 . . . . . . . . . . . . . 14 (𝑦 = 𝑡 → (∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚)) ↔ ∃𝑚 ∈ ℕs 𝑡 = (𝐵 +s ( 1s /su 𝑚))))
146145rexab 3683 . . . . . . . . . . . . 13 (∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡) ↔ ∃𝑡(∃𝑚 ∈ ℕs 𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
147142, 143, 1463bitr4ri 304 . . . . . . . . . . . 12 (∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡) ↔ ∃𝑚 ∈ ℕs𝑡(𝑡 = (𝐵 +s ( 1s /su 𝑚)) ∧ 𝑧 = (𝐴 +s 𝑡)))
148104oveq2d 7418 . . . . . . . . . . . . . 14 (𝑝 = 𝑚 → ((𝐴 +s 𝐵) +s ( 1s /su 𝑝)) = ((𝐴 +s 𝐵) +s ( 1s /su 𝑚)))
149148eqeq2d 2735 . . . . . . . . . . . . 13 (𝑝 = 𝑚 → (𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝)) ↔ 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑚))))
150149cbvrexvw 3227 . . . . . . . . . . . 12 (∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝)) ↔ ∃𝑚 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑚)))
151140, 147, 1503bitr4g 314 . . . . . . . . . . 11 ((𝐴 No 𝐵 No ) → (∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡) ↔ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))))
152151abbidv 2793 . . . . . . . . . 10 ((𝐴 No 𝐵 No ) → {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)} = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))})
153132, 152uneq12d 4157 . . . . . . . . 9 ((𝐴 No 𝐵 No ) → ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))} ∪ {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))
154 unidm 4145 . . . . . . . . 9 ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))} ∪ {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}) = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}
155153, 154eqtrdi 2780 . . . . . . . 8 ((𝐴 No 𝐵 No ) → ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) = {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))})
156112, 155oveq12d 7420 . . . . . . 7 ((𝐴 No 𝐵 No ) → (({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) |s ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)})) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))
157156adantr 480 . . . . . 6 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → (({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)}) |s ({𝑧 ∣ ∃𝑡 ∈ {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}𝑧 = (𝑡 +s 𝐵)} ∪ {𝑧 ∣ ∃𝑡 ∈ {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}𝑧 = (𝐴 +s 𝑡)})) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))
15852, 157eqtrd 2764 . . . . 5 (((𝐴 No 𝐵 No ) ∧ (𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))) → (𝐴 +s 𝐵) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))
15943, 158sylan2 592 . . . 4 (((𝐴 No 𝐵 No ) ∧ ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))) → (𝐴 +s 𝐵) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))
1602, 40, 159jca32 515 . . 3 (((𝐴 No 𝐵 No ) ∧ ((∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))})) ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))) → ((𝐴 +s 𝐵) ∈ No ∧ (∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝) ∧ (𝐴 +s 𝐵) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))))
161160an4s 657 . 2 (((𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}))) ∧ (𝐵 No ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))) → ((𝐴 +s 𝐵) ∈ No ∧ (∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝) ∧ (𝐴 +s 𝐵) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))))
162 elreno 28164 . . 3 (𝐴 ∈ ℝs ↔ (𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}))))
163 elreno 28164 . . 3 (𝐵 ∈ ℝs ↔ (𝐵 No ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))}))))
164162, 163anbi12i 626 . 2 ((𝐴 ∈ ℝs𝐵 ∈ ℝs) ↔ ((𝐴 No ∧ (∃𝑛 ∈ ℕs (( -us𝑛) <s 𝐴𝐴 <s 𝑛) ∧ 𝐴 = ({𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 -s ( 1s /su 𝑛))} |s {𝑥 ∣ ∃𝑛 ∈ ℕs 𝑥 = (𝐴 +s ( 1s /su 𝑛))}))) ∧ (𝐵 No ∧ (∃𝑚 ∈ ℕs (( -us𝑚) <s 𝐵𝐵 <s 𝑚) ∧ 𝐵 = ({𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 -s ( 1s /su 𝑚))} |s {𝑦 ∣ ∃𝑚 ∈ ℕs 𝑦 = (𝐵 +s ( 1s /su 𝑚))})))))
165 elreno 28164 . 2 ((𝐴 +s 𝐵) ∈ ℝs ↔ ((𝐴 +s 𝐵) ∈ No ∧ (∃𝑝 ∈ ℕs (( -us𝑝) <s (𝐴 +s 𝐵) ∧ (𝐴 +s 𝐵) <s 𝑝) ∧ (𝐴 +s 𝐵) = ({𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) -s ( 1s /su 𝑝))} |s {𝑧 ∣ ∃𝑝 ∈ ℕs 𝑧 = ((𝐴 +s 𝐵) +s ( 1s /su 𝑝))}))))
166161, 164, 1653imtr4i 292 1 ((𝐴 ∈ ℝs𝐵 ∈ ℝs) → (𝐴 +s 𝐵) ∈ ℝs)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1533  wex 1773  wcel 2098  {cab 2701  wrex 3062  cun 3939   class class class wbr 5139  cfv 6534  (class class class)co 7402   No csur 27514   <s cslt 27515   <<s csslt 27654   |s cscut 27656   1s c1s 27697   +s cadds 27817   -us cnegs 27873   -s csubs 27874   /su cdivs 28028  scnns 28127  screno 28162
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5276  ax-sep 5290  ax-nul 5297  ax-pow 5354  ax-pr 5418  ax-un 7719  ax-dc 10438
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3960  df-nul 4316  df-if 4522  df-pw 4597  df-sn 4622  df-pr 4624  df-tp 4626  df-op 4628  df-ot 4630  df-uni 4901  df-int 4942  df-iun 4990  df-br 5140  df-opab 5202  df-mpt 5223  df-tr 5257  df-id 5565  df-eprel 5571  df-po 5579  df-so 5580  df-fr 5622  df-se 5623  df-we 5624  df-xp 5673  df-rel 5674  df-cnv 5675  df-co 5676  df-dm 5677  df-rn 5678  df-res 5679  df-ima 5680  df-pred 6291  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6486  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7358  df-ov 7405  df-oprab 7406  df-mpo 7407  df-om 7850  df-1st 7969  df-2nd 7970  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-nadd 8662  df-no 27517  df-slt 27518  df-bday 27519  df-sle 27619  df-sslt 27655  df-scut 27657  df-0s 27698  df-1s 27699  df-made 27715  df-old 27716  df-left 27718  df-right 27719  df-norec 27796  df-norec2 27807  df-adds 27818  df-negs 27875  df-subs 27876  df-muls 27948  df-divs 28029  df-n0s 28128  df-nns 28129  df-reno 28163
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator