Proof of Theorem addcn2
| Step | Hyp | Ref
 | Expression | 
| 1 |   | rphalfcl 9756 | 
. . 3
⊢ (𝐴 ∈ ℝ+
→ (𝐴 / 2) ∈
ℝ+) | 
| 2 | 1 | 3ad2ant1 1020 | 
. 2
⊢ ((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
→ (𝐴 / 2) ∈
ℝ+) | 
| 3 |   | simprl 529 | 
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ 𝑢 ∈
ℂ) | 
| 4 |   | simpl2 1003 | 
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ 𝐵 ∈
ℂ) | 
| 5 |   | simprr 531 | 
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ 𝑣 ∈
ℂ) | 
| 6 | 3, 4, 5 | pnpcan2d 8375 | 
. . . . . . 7
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ ((𝑢 + 𝑣) − (𝐵 + 𝑣)) = (𝑢 − 𝐵)) | 
| 7 | 6 | fveq2d 5562 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (abs‘((𝑢 +
𝑣) − (𝐵 + 𝑣))) = (abs‘(𝑢 − 𝐵))) | 
| 8 | 7 | breq1d 4043 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ ((abs‘((𝑢 +
𝑣) − (𝐵 + 𝑣))) < (𝐴 / 2) ↔ (abs‘(𝑢 − 𝐵)) < (𝐴 / 2))) | 
| 9 |   | simpl3 1004 | 
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ 𝐶 ∈
ℂ) | 
| 10 | 4, 5, 9 | pnpcand 8374 | 
. . . . . . 7
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ ((𝐵 + 𝑣) − (𝐵 + 𝐶)) = (𝑣 − 𝐶)) | 
| 11 | 10 | fveq2d 5562 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (abs‘((𝐵 +
𝑣) − (𝐵 + 𝐶))) = (abs‘(𝑣 − 𝐶))) | 
| 12 | 11 | breq1d 4043 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ ((abs‘((𝐵 +
𝑣) − (𝐵 + 𝐶))) < (𝐴 / 2) ↔ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2))) | 
| 13 | 8, 12 | anbi12d 473 | 
. . . 4
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (((abs‘((𝑢 +
𝑣) − (𝐵 + 𝑣))) < (𝐴 / 2) ∧ (abs‘((𝐵 + 𝑣) − (𝐵 + 𝐶))) < (𝐴 / 2)) ↔ ((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)))) | 
| 14 |   | addcl 8004 | 
. . . . . 6
⊢ ((𝑢 ∈ ℂ ∧ 𝑣 ∈ ℂ) → (𝑢 + 𝑣) ∈ ℂ) | 
| 15 | 14 | adantl 277 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (𝑢 + 𝑣) ∈
ℂ) | 
| 16 | 4, 9 | addcld 8046 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (𝐵 + 𝐶) ∈
ℂ) | 
| 17 | 4, 5 | addcld 8046 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (𝐵 + 𝑣) ∈
ℂ) | 
| 18 |   | simpl1 1002 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ 𝐴 ∈
ℝ+) | 
| 19 | 18 | rpred 9771 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ 𝐴 ∈
ℝ) | 
| 20 |   | abs3lem 11276 | 
. . . . 5
⊢ ((((𝑢 + 𝑣) ∈ ℂ ∧ (𝐵 + 𝐶) ∈ ℂ) ∧ ((𝐵 + 𝑣) ∈ ℂ ∧ 𝐴 ∈ ℝ)) →
(((abs‘((𝑢 + 𝑣) − (𝐵 + 𝑣))) < (𝐴 / 2) ∧ (abs‘((𝐵 + 𝑣) − (𝐵 + 𝐶))) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) | 
| 21 | 15, 16, 17, 19, 20 | syl22anc 1250 | 
. . . 4
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (((abs‘((𝑢 +
𝑣) − (𝐵 + 𝑣))) < (𝐴 / 2) ∧ (abs‘((𝐵 + 𝑣) − (𝐵 + 𝐶))) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) | 
| 22 | 13, 21 | sylbird 170 | 
. . 3
⊢ (((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
∧ (𝑢 ∈ ℂ
∧ 𝑣 ∈ ℂ))
→ (((abs‘(𝑢
− 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) | 
| 23 | 22 | ralrimivva 2579 | 
. 2
⊢ ((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
→ ∀𝑢 ∈
ℂ ∀𝑣 ∈
ℂ (((abs‘(𝑢
− 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) | 
| 24 |   | breq2 4037 | 
. . . . . 6
⊢ (𝑦 = (𝐴 / 2) → ((abs‘(𝑢 − 𝐵)) < 𝑦 ↔ (abs‘(𝑢 − 𝐵)) < (𝐴 / 2))) | 
| 25 | 24 | anbi1d 465 | 
. . . . 5
⊢ (𝑦 = (𝐴 / 2) → (((abs‘(𝑢 − 𝐵)) < 𝑦 ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) ↔ ((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < 𝑧))) | 
| 26 | 25 | imbi1d 231 | 
. . . 4
⊢ (𝑦 = (𝐴 / 2) → ((((abs‘(𝑢 − 𝐵)) < 𝑦 ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴) ↔ (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴))) | 
| 27 | 26 | 2ralbidv 2521 | 
. . 3
⊢ (𝑦 = (𝐴 / 2) → (∀𝑢 ∈ ℂ ∀𝑣 ∈ ℂ (((abs‘(𝑢 − 𝐵)) < 𝑦 ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴) ↔ ∀𝑢 ∈ ℂ ∀𝑣 ∈ ℂ (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴))) | 
| 28 |   | breq2 4037 | 
. . . . . 6
⊢ (𝑧 = (𝐴 / 2) → ((abs‘(𝑣 − 𝐶)) < 𝑧 ↔ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2))) | 
| 29 | 28 | anbi2d 464 | 
. . . . 5
⊢ (𝑧 = (𝐴 / 2) → (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) ↔ ((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)))) | 
| 30 | 29 | imbi1d 231 | 
. . . 4
⊢ (𝑧 = (𝐴 / 2) → ((((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴) ↔ (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴))) | 
| 31 | 30 | 2ralbidv 2521 | 
. . 3
⊢ (𝑧 = (𝐴 / 2) → (∀𝑢 ∈ ℂ ∀𝑣 ∈ ℂ (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴) ↔ ∀𝑢 ∈ ℂ ∀𝑣 ∈ ℂ (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴))) | 
| 32 | 27, 31 | rspc2ev 2883 | 
. 2
⊢ (((𝐴 / 2) ∈ ℝ+
∧ (𝐴 / 2) ∈
ℝ+ ∧ ∀𝑢 ∈ ℂ ∀𝑣 ∈ ℂ (((abs‘(𝑢 − 𝐵)) < (𝐴 / 2) ∧ (abs‘(𝑣 − 𝐶)) < (𝐴 / 2)) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) → ∃𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
∀𝑢 ∈ ℂ
∀𝑣 ∈ ℂ
(((abs‘(𝑢 −
𝐵)) < 𝑦 ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) | 
| 33 | 2, 2, 23, 32 | syl3anc 1249 | 
1
⊢ ((𝐴 ∈ ℝ+
∧ 𝐵 ∈ ℂ
∧ 𝐶 ∈ ℂ)
→ ∃𝑦 ∈
ℝ+ ∃𝑧 ∈ ℝ+ ∀𝑢 ∈ ℂ ∀𝑣 ∈ ℂ
(((abs‘(𝑢 −
𝐵)) < 𝑦 ∧ (abs‘(𝑣 − 𝐶)) < 𝑧) → (abs‘((𝑢 + 𝑣) − (𝐵 + 𝐶))) < 𝐴)) |