Proof of Theorem ang180lem5
Step | Hyp | Ref
| Expression |
1 | | simp1l 1195 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 𝐴 ∈ ℂ) |
2 | | 1cnd 10901 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 1 ∈ ℂ) |
3 | | simp2l 1197 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 𝐵 ∈ ℂ) |
4 | | simp1r 1196 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 𝐴 ≠ 0) |
5 | 3, 1, 4 | divcld 11681 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐵 / 𝐴) ∈ ℂ) |
6 | 1, 2, 5 | subdid 11361 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴 · (1 − (𝐵 / 𝐴))) = ((𝐴 · 1) − (𝐴 · (𝐵 / 𝐴)))) |
7 | 1 | mulid1d 10923 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴 · 1) = 𝐴) |
8 | 3, 1, 4 | divcan2d 11683 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴 · (𝐵 / 𝐴)) = 𝐵) |
9 | 7, 8 | oveq12d 7273 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · 1) − (𝐴 · (𝐵 / 𝐴))) = (𝐴 − 𝐵)) |
10 | 6, 9 | eqtrd 2778 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴 · (1 − (𝐵 / 𝐴))) = (𝐴 − 𝐵)) |
11 | 10, 7 | oveq12d 7273 |
. . . . 5
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · (1 − (𝐵 / 𝐴)))𝐹(𝐴 · 1)) = ((𝐴 − 𝐵)𝐹𝐴)) |
12 | 2, 5 | subcld 11262 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (1 − (𝐵 / 𝐴)) ∈ ℂ) |
13 | | simp3 1136 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 𝐴 ≠ 𝐵) |
14 | 13 | necomd 2998 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 𝐵 ≠ 𝐴) |
15 | 3, 1, 4, 14 | divne1d 11692 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐵 / 𝐴) ≠ 1) |
16 | 15 | necomd 2998 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 1 ≠ (𝐵 / 𝐴)) |
17 | 2, 5, 16 | subne0d 11271 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (1 − (𝐵 / 𝐴)) ≠ 0) |
18 | | ax-1ne0 10871 |
. . . . . . 7
⊢ 1 ≠
0 |
19 | 18 | a1i 11 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 1 ≠ 0) |
20 | | ang.1 |
. . . . . . 7
⊢ 𝐹 = (𝑥 ∈ (ℂ ∖ {0}), 𝑦 ∈ (ℂ ∖ {0})
↦ (ℑ‘(log‘(𝑦 / 𝑥)))) |
21 | 20 | angcan 25857 |
. . . . . 6
⊢ ((((1
− (𝐵 / 𝐴)) ∈ ℂ ∧ (1
− (𝐵 / 𝐴)) ≠ 0) ∧ (1 ∈
ℂ ∧ 1 ≠ 0) ∧ (𝐴 ∈ ℂ ∧ 𝐴 ≠ 0)) → ((𝐴 · (1 − (𝐵 / 𝐴)))𝐹(𝐴 · 1)) = ((1 − (𝐵 / 𝐴))𝐹1)) |
22 | 12, 17, 2, 19, 1, 4,
21 | syl222anc 1384 |
. . . . 5
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · (1 − (𝐵 / 𝐴)))𝐹(𝐴 · 1)) = ((1 − (𝐵 / 𝐴))𝐹1)) |
23 | 11, 22 | eqtr3d 2780 |
. . . 4
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 − 𝐵)𝐹𝐴) = ((1 − (𝐵 / 𝐴))𝐹1)) |
24 | 1, 5, 2 | subdid 11361 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴 · ((𝐵 / 𝐴) − 1)) = ((𝐴 · (𝐵 / 𝐴)) − (𝐴 · 1))) |
25 | 8, 7 | oveq12d 7273 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · (𝐵 / 𝐴)) − (𝐴 · 1)) = (𝐵 − 𝐴)) |
26 | 24, 25 | eqtrd 2778 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴 · ((𝐵 / 𝐴) − 1)) = (𝐵 − 𝐴)) |
27 | 8, 26 | oveq12d 7273 |
. . . . 5
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · (𝐵 / 𝐴))𝐹(𝐴 · ((𝐵 / 𝐴) − 1))) = (𝐵𝐹(𝐵 − 𝐴))) |
28 | | simp2r 1198 |
. . . . . . 7
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → 𝐵 ≠ 0) |
29 | 3, 1, 28, 4 | divne0d 11697 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐵 / 𝐴) ≠ 0) |
30 | 5, 2 | subcld 11262 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐵 / 𝐴) − 1) ∈
ℂ) |
31 | 5, 2, 15 | subne0d 11271 |
. . . . . 6
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐵 / 𝐴) − 1) ≠ 0) |
32 | 20 | angcan 25857 |
. . . . . 6
⊢ ((((𝐵 / 𝐴) ∈ ℂ ∧ (𝐵 / 𝐴) ≠ 0) ∧ (((𝐵 / 𝐴) − 1) ∈ ℂ ∧ ((𝐵 / 𝐴) − 1) ≠ 0) ∧ (𝐴 ∈ ℂ ∧ 𝐴 ≠ 0)) → ((𝐴 · (𝐵 / 𝐴))𝐹(𝐴 · ((𝐵 / 𝐴) − 1))) = ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1))) |
33 | 5, 29, 30, 31, 1, 4, 32 | syl222anc 1384 |
. . . . 5
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · (𝐵 / 𝐴))𝐹(𝐴 · ((𝐵 / 𝐴) − 1))) = ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1))) |
34 | 27, 33 | eqtr3d 2780 |
. . . 4
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐵𝐹(𝐵 − 𝐴)) = ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1))) |
35 | 23, 34 | oveq12d 7273 |
. . 3
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (((𝐴 − 𝐵)𝐹𝐴) + (𝐵𝐹(𝐵 − 𝐴))) = (((1 − (𝐵 / 𝐴))𝐹1) + ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1)))) |
36 | 7, 8 | oveq12d 7273 |
. . . 4
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · 1)𝐹(𝐴 · (𝐵 / 𝐴))) = (𝐴𝐹𝐵)) |
37 | 20 | angcan 25857 |
. . . . 5
⊢ (((1
∈ ℂ ∧ 1 ≠ 0) ∧ ((𝐵 / 𝐴) ∈ ℂ ∧ (𝐵 / 𝐴) ≠ 0) ∧ (𝐴 ∈ ℂ ∧ 𝐴 ≠ 0)) → ((𝐴 · 1)𝐹(𝐴 · (𝐵 / 𝐴))) = (1𝐹(𝐵 / 𝐴))) |
38 | 2, 19, 5, 29, 1, 4,
37 | syl222anc 1384 |
. . . 4
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((𝐴 · 1)𝐹(𝐴 · (𝐵 / 𝐴))) = (1𝐹(𝐵 / 𝐴))) |
39 | 36, 38 | eqtr3d 2780 |
. . 3
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → (𝐴𝐹𝐵) = (1𝐹(𝐵 / 𝐴))) |
40 | 35, 39 | oveq12d 7273 |
. 2
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((((𝐴 − 𝐵)𝐹𝐴) + (𝐵𝐹(𝐵 − 𝐴))) + (𝐴𝐹𝐵)) = ((((1 − (𝐵 / 𝐴))𝐹1) + ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1))) + (1𝐹(𝐵 / 𝐴)))) |
41 | 20 | ang180lem4 25867 |
. . 3
⊢ (((𝐵 / 𝐴) ∈ ℂ ∧ (𝐵 / 𝐴) ≠ 0 ∧ (𝐵 / 𝐴) ≠ 1) → ((((1 − (𝐵 / 𝐴))𝐹1) + ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1))) + (1𝐹(𝐵 / 𝐴))) ∈ {-π, π}) |
42 | 5, 29, 15, 41 | syl3anc 1369 |
. 2
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((((1 − (𝐵 / 𝐴))𝐹1) + ((𝐵 / 𝐴)𝐹((𝐵 / 𝐴) − 1))) + (1𝐹(𝐵 / 𝐴))) ∈ {-π, π}) |
43 | 40, 42 | eqeltrd 2839 |
1
⊢ (((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ 𝐴 ≠ 𝐵) → ((((𝐴 − 𝐵)𝐹𝐴) + (𝐵𝐹(𝐵 − 𝐴))) + (𝐴𝐹𝐵)) ∈ {-π, π}) |