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

Theorem atanlogaddlem 24931
Description: Lemma for atanlogadd 24932. (Contributed by Mario Carneiro, 3-Apr-2015.)
Assertion
Ref Expression
atanlogaddlem ((𝐴 ∈ dom arctan ∧ 0 ≤ (ℜ‘𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)

Proof of Theorem atanlogaddlem
StepHypRef Expression
1 0re 10295 . . . 4 0 ∈ ℝ
2 atandm2 24895 . . . . . 6 (𝐴 ∈ dom arctan ↔ (𝐴 ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0 ∧ (1 + (i · 𝐴)) ≠ 0))
32simp1bi 1175 . . . . 5 (𝐴 ∈ dom arctan → 𝐴 ∈ ℂ)
43recld 14221 . . . 4 (𝐴 ∈ dom arctan → (ℜ‘𝐴) ∈ ℝ)
5 leloe 10378 . . . 4 ((0 ∈ ℝ ∧ (ℜ‘𝐴) ∈ ℝ) → (0 ≤ (ℜ‘𝐴) ↔ (0 < (ℜ‘𝐴) ∨ 0 = (ℜ‘𝐴))))
61, 4, 5sylancr 581 . . 3 (𝐴 ∈ dom arctan → (0 ≤ (ℜ‘𝐴) ↔ (0 < (ℜ‘𝐴) ∨ 0 = (ℜ‘𝐴))))
76biimpa 468 . 2 ((𝐴 ∈ dom arctan ∧ 0 ≤ (ℜ‘𝐴)) → (0 < (ℜ‘𝐴) ∨ 0 = (ℜ‘𝐴)))
8 ax-1cn 10247 . . . . . . . 8 1 ∈ ℂ
9 ax-icn 10248 . . . . . . . . 9 i ∈ ℂ
10 mulcl 10273 . . . . . . . . 9 ((i ∈ ℂ ∧ 𝐴 ∈ ℂ) → (i · 𝐴) ∈ ℂ)
119, 3, 10sylancr 581 . . . . . . . 8 (𝐴 ∈ dom arctan → (i · 𝐴) ∈ ℂ)
12 addcl 10271 . . . . . . . 8 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 + (i · 𝐴)) ∈ ℂ)
138, 11, 12sylancr 581 . . . . . . 7 (𝐴 ∈ dom arctan → (1 + (i · 𝐴)) ∈ ℂ)
142simp3bi 1177 . . . . . . 7 (𝐴 ∈ dom arctan → (1 + (i · 𝐴)) ≠ 0)
1513, 14logcld 24608 . . . . . 6 (𝐴 ∈ dom arctan → (log‘(1 + (i · 𝐴))) ∈ ℂ)
16 subcl 10534 . . . . . . . 8 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (1 − (i · 𝐴)) ∈ ℂ)
178, 11, 16sylancr 581 . . . . . . 7 (𝐴 ∈ dom arctan → (1 − (i · 𝐴)) ∈ ℂ)
182simp2bi 1176 . . . . . . 7 (𝐴 ∈ dom arctan → (1 − (i · 𝐴)) ≠ 0)
1917, 18logcld 24608 . . . . . 6 (𝐴 ∈ dom arctan → (log‘(1 − (i · 𝐴))) ∈ ℂ)
2015, 19addcld 10313 . . . . 5 (𝐴 ∈ dom arctan → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ℂ)
2120adantr 472 . . . 4 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ℂ)
22 pire 24502 . . . . . . . 8 π ∈ ℝ
2322renegcli 10596 . . . . . . 7 -π ∈ ℝ
2423a1i 11 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π ∈ ℝ)
2519adantr 472 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(1 − (i · 𝐴))) ∈ ℂ)
2625imcld 14222 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 − (i · 𝐴)))) ∈ ℝ)
2715adantr 472 . . . . . . . 8 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (log‘(1 + (i · 𝐴))) ∈ ℂ)
2827imcld 14222 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 + (i · 𝐴)))) ∈ ℝ)
2928, 26readdcld 10323 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))) ∈ ℝ)
3017adantr 472 . . . . . . . . 9 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (1 − (i · 𝐴)) ∈ ℂ)
31 im1 14182 . . . . . . . . . . . . 13 (ℑ‘1) = 0
3231oveq1i 6852 . . . . . . . . . . . 12 ((ℑ‘1) − (ℑ‘(i · 𝐴))) = (0 − (ℑ‘(i · 𝐴)))
33 df-neg 10523 . . . . . . . . . . . 12 -(ℑ‘(i · 𝐴)) = (0 − (ℑ‘(i · 𝐴)))
3432, 33eqtr4i 2790 . . . . . . . . . . 11 ((ℑ‘1) − (ℑ‘(i · 𝐴))) = -(ℑ‘(i · 𝐴))
3511adantr 472 . . . . . . . . . . . 12 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (i · 𝐴) ∈ ℂ)
36 imsub 14162 . . . . . . . . . . . 12 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
378, 35, 36sylancr 581 . . . . . . . . . . 11 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(1 − (i · 𝐴))) = ((ℑ‘1) − (ℑ‘(i · 𝐴))))
383adantr 472 . . . . . . . . . . . . 13 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 𝐴 ∈ ℂ)
39 reim 14136 . . . . . . . . . . . . 13 (𝐴 ∈ ℂ → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
4038, 39syl 17 . . . . . . . . . . . 12 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
4140negeqd 10529 . . . . . . . . . . 11 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -(ℜ‘𝐴) = -(ℑ‘(i · 𝐴)))
4234, 37, 413eqtr4a 2825 . . . . . . . . . 10 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(1 − (i · 𝐴))) = -(ℜ‘𝐴))
434lt0neg2d 10852 . . . . . . . . . . 11 (𝐴 ∈ dom arctan → (0 < (ℜ‘𝐴) ↔ -(ℜ‘𝐴) < 0))
4443biimpa 468 . . . . . . . . . 10 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -(ℜ‘𝐴) < 0)
4542, 44eqbrtrd 4831 . . . . . . . . 9 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(1 − (i · 𝐴))) < 0)
46 argimlt0 24650 . . . . . . . . 9 (((1 − (i · 𝐴)) ∈ ℂ ∧ (ℑ‘(1 − (i · 𝐴))) < 0) → (ℑ‘(log‘(1 − (i · 𝐴)))) ∈ (-π(,)0))
4730, 45, 46syl2anc 579 . . . . . . . 8 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 − (i · 𝐴)))) ∈ (-π(,)0))
48 eliooord 12435 . . . . . . . 8 ((ℑ‘(log‘(1 − (i · 𝐴)))) ∈ (-π(,)0) → (-π < (ℑ‘(log‘(1 − (i · 𝐴)))) ∧ (ℑ‘(log‘(1 − (i · 𝐴)))) < 0))
4947, 48syl 17 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (-π < (ℑ‘(log‘(1 − (i · 𝐴)))) ∧ (ℑ‘(log‘(1 − (i · 𝐴)))) < 0))
5049simpld 488 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π < (ℑ‘(log‘(1 − (i · 𝐴)))))
5113adantr 472 . . . . . . . . . 10 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (1 + (i · 𝐴)) ∈ ℂ)
52 simpr 477 . . . . . . . . . . 11 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℜ‘𝐴))
53 imadd 14161 . . . . . . . . . . . . 13 ((1 ∈ ℂ ∧ (i · 𝐴) ∈ ℂ) → (ℑ‘(1 + (i · 𝐴))) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
548, 35, 53sylancr 581 . . . . . . . . . . . 12 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(1 + (i · 𝐴))) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
5540oveq2d 6858 . . . . . . . . . . . 12 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘1) + (ℜ‘𝐴)) = ((ℑ‘1) + (ℑ‘(i · 𝐴))))
5631oveq1i 6852 . . . . . . . . . . . . 13 ((ℑ‘1) + (ℜ‘𝐴)) = (0 + (ℜ‘𝐴))
5738recld 14221 . . . . . . . . . . . . . . 15 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ∈ ℝ)
5857recnd 10322 . . . . . . . . . . . . . 14 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ∈ ℂ)
5958addid2d 10491 . . . . . . . . . . . . 13 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (0 + (ℜ‘𝐴)) = (ℜ‘𝐴))
6056, 59syl5eq 2811 . . . . . . . . . . . 12 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘1) + (ℜ‘𝐴)) = (ℜ‘𝐴))
6154, 55, 603eqtr2d 2805 . . . . . . . . . . 11 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(1 + (i · 𝐴))) = (ℜ‘𝐴))
6252, 61breqtrrd 4837 . . . . . . . . . 10 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℑ‘(1 + (i · 𝐴))))
63 argimgt0 24649 . . . . . . . . . 10 (((1 + (i · 𝐴)) ∈ ℂ ∧ 0 < (ℑ‘(1 + (i · 𝐴)))) → (ℑ‘(log‘(1 + (i · 𝐴)))) ∈ (0(,)π))
6451, 62, 63syl2anc 579 . . . . . . . . 9 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 + (i · 𝐴)))) ∈ (0(,)π))
65 eliooord 12435 . . . . . . . . 9 ((ℑ‘(log‘(1 + (i · 𝐴)))) ∈ (0(,)π) → (0 < (ℑ‘(log‘(1 + (i · 𝐴)))) ∧ (ℑ‘(log‘(1 + (i · 𝐴)))) < π))
6664, 65syl 17 . . . . . . . 8 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (0 < (ℑ‘(log‘(1 + (i · 𝐴)))) ∧ (ℑ‘(log‘(1 + (i · 𝐴)))) < π))
6766simpld 488 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 < (ℑ‘(log‘(1 + (i · 𝐴)))))
6828, 26ltaddpos2d 10866 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (0 < (ℑ‘(log‘(1 + (i · 𝐴)))) ↔ (ℑ‘(log‘(1 − (i · 𝐴)))) < ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴)))))))
6967, 68mpbid 223 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 − (i · 𝐴)))) < ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))))
7024, 26, 29, 50, 69lttrd 10452 . . . . 5 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π < ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))))
7127, 25imaddd 14242 . . . . 5 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴))))) = ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))))
7270, 71breqtrrd 4837 . . . 4 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → -π < (ℑ‘((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴))))))
7322a1i 11 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → π ∈ ℝ)
74 0red 10297 . . . . . . . . 9 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → 0 ∈ ℝ)
7549simprd 489 . . . . . . . . 9 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 − (i · 𝐴)))) < 0)
7626, 74, 28, 75ltadd2dd 10450 . . . . . . . 8 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))) < ((ℑ‘(log‘(1 + (i · 𝐴)))) + 0))
7728recnd 10322 . . . . . . . . 9 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 + (i · 𝐴)))) ∈ ℂ)
7877addid1d 10490 . . . . . . . 8 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) + 0) = (ℑ‘(log‘(1 + (i · 𝐴)))))
7976, 78breqtrd 4835 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))) < (ℑ‘(log‘(1 + (i · 𝐴)))))
8066simprd 489 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘(log‘(1 + (i · 𝐴)))) < π)
8129, 28, 73, 79, 80lttrd 10452 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))) < π)
8229, 73, 81ltled 10439 . . . . 5 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((ℑ‘(log‘(1 + (i · 𝐴)))) + (ℑ‘(log‘(1 − (i · 𝐴))))) ≤ π)
8371, 82eqbrtrd 4831 . . . 4 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → (ℑ‘((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴))))) ≤ π)
84 ellogrn 24597 . . . 4 (((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log ↔ (((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ℂ ∧ -π < (ℑ‘((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴))))) ∧ (ℑ‘((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴))))) ≤ π))
8521, 72, 83, 84syl3anbrc 1443 . . 3 ((𝐴 ∈ dom arctan ∧ 0 < (ℜ‘𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
86 0red 10297 . . . 4 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → 0 ∈ ℝ)
8711adantr 472 . . . . 5 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → (i · 𝐴) ∈ ℂ)
88 simpr 477 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → 0 = (ℜ‘𝐴))
893adantr 472 . . . . . . 7 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → 𝐴 ∈ ℂ)
9089, 39syl 17 . . . . . 6 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → (ℜ‘𝐴) = (ℑ‘(i · 𝐴)))
9188, 90eqtr2d 2800 . . . . 5 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → (ℑ‘(i · 𝐴)) = 0)
9287, 91reim0bd 14227 . . . 4 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → (i · 𝐴) ∈ ℝ)
9315, 19addcomd 10492 . . . . . 6 (𝐴 ∈ dom arctan → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) = ((log‘(1 − (i · 𝐴))) + (log‘(1 + (i · 𝐴)))))
9493ad2antrr 717 . . . . 5 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) = ((log‘(1 − (i · 𝐴))) + (log‘(1 + (i · 𝐴)))))
95 logrncl 24605 . . . . . . . 8 (((1 − (i · 𝐴)) ∈ ℂ ∧ (1 − (i · 𝐴)) ≠ 0) → (log‘(1 − (i · 𝐴))) ∈ ran log)
9617, 18, 95syl2anc 579 . . . . . . 7 (𝐴 ∈ dom arctan → (log‘(1 − (i · 𝐴))) ∈ ran log)
9796ad2antrr 717 . . . . . 6 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → (log‘(1 − (i · 𝐴))) ∈ ran log)
98 1re 10293 . . . . . . . . 9 1 ∈ ℝ
9992adantr 472 . . . . . . . . 9 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → (i · 𝐴) ∈ ℝ)
100 readdcl 10272 . . . . . . . . 9 ((1 ∈ ℝ ∧ (i · 𝐴) ∈ ℝ) → (1 + (i · 𝐴)) ∈ ℝ)
10198, 99, 100sylancr 581 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → (1 + (i · 𝐴)) ∈ ℝ)
102 0red 10297 . . . . . . . . 9 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → 0 ∈ ℝ)
103 1red 10294 . . . . . . . . 9 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → 1 ∈ ℝ)
104 0lt1 10804 . . . . . . . . . 10 0 < 1
105104a1i 11 . . . . . . . . 9 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → 0 < 1)
106 addge01 10792 . . . . . . . . . . 11 ((1 ∈ ℝ ∧ (i · 𝐴) ∈ ℝ) → (0 ≤ (i · 𝐴) ↔ 1 ≤ (1 + (i · 𝐴))))
10798, 92, 106sylancr 581 . . . . . . . . . 10 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → (0 ≤ (i · 𝐴) ↔ 1 ≤ (1 + (i · 𝐴))))
108107biimpa 468 . . . . . . . . 9 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → 1 ≤ (1 + (i · 𝐴)))
109102, 103, 101, 105, 108ltletrd 10451 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → 0 < (1 + (i · 𝐴)))
110101, 109elrpd 12067 . . . . . . 7 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → (1 + (i · 𝐴)) ∈ ℝ+)
111110relogcld 24660 . . . . . 6 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → (log‘(1 + (i · 𝐴))) ∈ ℝ)
112 logrnaddcl 24612 . . . . . 6 (((log‘(1 − (i · 𝐴))) ∈ ran log ∧ (log‘(1 + (i · 𝐴))) ∈ ℝ) → ((log‘(1 − (i · 𝐴))) + (log‘(1 + (i · 𝐴)))) ∈ ran log)
11397, 111, 112syl2anc 579 . . . . 5 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → ((log‘(1 − (i · 𝐴))) + (log‘(1 + (i · 𝐴)))) ∈ ran log)
11494, 113eqeltrd 2844 . . . 4 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ 0 ≤ (i · 𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
115 logrncl 24605 . . . . . . 7 (((1 + (i · 𝐴)) ∈ ℂ ∧ (1 + (i · 𝐴)) ≠ 0) → (log‘(1 + (i · 𝐴))) ∈ ran log)
11613, 14, 115syl2anc 579 . . . . . 6 (𝐴 ∈ dom arctan → (log‘(1 + (i · 𝐴))) ∈ ran log)
117116ad2antrr 717 . . . . 5 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → (log‘(1 + (i · 𝐴))) ∈ ran log)
11892adantr 472 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → (i · 𝐴) ∈ ℝ)
119 resubcl 10599 . . . . . . . 8 ((1 ∈ ℝ ∧ (i · 𝐴) ∈ ℝ) → (1 − (i · 𝐴)) ∈ ℝ)
12098, 118, 119sylancr 581 . . . . . . 7 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → (1 − (i · 𝐴)) ∈ ℝ)
121 0red 10297 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → 0 ∈ ℝ)
122 1red 10294 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → 1 ∈ ℝ)
123104a1i 11 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → 0 < 1)
124 1m0e1 11400 . . . . . . . . 9 (1 − 0) = 1
125 1red 10294 . . . . . . . . . . 11 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → 1 ∈ ℝ)
12692, 86, 125lesub2d 10889 . . . . . . . . . 10 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → ((i · 𝐴) ≤ 0 ↔ (1 − 0) ≤ (1 − (i · 𝐴))))
127126biimpa 468 . . . . . . . . 9 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → (1 − 0) ≤ (1 − (i · 𝐴)))
128124, 127syl5eqbrr 4845 . . . . . . . 8 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → 1 ≤ (1 − (i · 𝐴)))
129121, 122, 120, 123, 128ltletrd 10451 . . . . . . 7 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → 0 < (1 − (i · 𝐴)))
130120, 129elrpd 12067 . . . . . 6 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → (1 − (i · 𝐴)) ∈ ℝ+)
131130relogcld 24660 . . . . 5 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → (log‘(1 − (i · 𝐴))) ∈ ℝ)
132 logrnaddcl 24612 . . . . 5 (((log‘(1 + (i · 𝐴))) ∈ ran log ∧ (log‘(1 − (i · 𝐴))) ∈ ℝ) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
133117, 131, 132syl2anc 579 . . . 4 (((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) ∧ (i · 𝐴) ≤ 0) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
13486, 92, 114, 133lecasei 10397 . . 3 ((𝐴 ∈ dom arctan ∧ 0 = (ℜ‘𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
13585, 134jaodan 980 . 2 ((𝐴 ∈ dom arctan ∧ (0 < (ℜ‘𝐴) ∨ 0 = (ℜ‘𝐴))) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
1367, 135syldan 585 1 ((𝐴 ∈ dom arctan ∧ 0 ≤ (ℜ‘𝐴)) → ((log‘(1 + (i · 𝐴))) + (log‘(1 − (i · 𝐴)))) ∈ ran log)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  wo 873   = wceq 1652  wcel 2155  wne 2937   class class class wbr 4809  dom cdm 5277  ran crn 5278  cfv 6068  (class class class)co 6842  cc 10187  cr 10188  0cc0 10189  1c1 10190  ici 10191   + caddc 10192   · cmul 10194   < clt 10328  cle 10329  cmin 10520  -cneg 10521  (,)cioo 12377  cre 14124  cim 14125  πcpi 15081  logclog 24592  arctancatan 24882
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-inf2 8753  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266  ax-pre-sup 10267  ax-addf 10268  ax-mulf 10269
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-fal 1666  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-iin 4679  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-se 5237  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-isom 6077  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-of 7095  df-om 7264  df-1st 7366  df-2nd 7367  df-supp 7498  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-2o 7765  df-oadd 7768  df-er 7947  df-map 8062  df-pm 8063  df-ixp 8114  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-fsupp 8483  df-fi 8524  df-sup 8555  df-inf 8556  df-oi 8622  df-card 9016  df-cda 9243  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-div 10939  df-nn 11275  df-2 11335  df-3 11336  df-4 11337  df-5 11338  df-6 11339  df-7 11340  df-8 11341  df-9 11342  df-n0 11539  df-z 11625  df-dec 11741  df-uz 11887  df-q 11990  df-rp 12029  df-xneg 12146  df-xadd 12147  df-xmul 12148  df-ioo 12381  df-ioc 12382  df-ico 12383  df-icc 12384  df-fz 12534  df-fzo 12674  df-fl 12801  df-mod 12877  df-seq 13009  df-exp 13068  df-fac 13265  df-bc 13294  df-hash 13322  df-shft 14094  df-cj 14126  df-re 14127  df-im 14128  df-sqrt 14262  df-abs 14263  df-limsup 14489  df-clim 14506  df-rlim 14507  df-sum 14704  df-ef 15082  df-sin 15084  df-cos 15085  df-pi 15087  df-struct 16134  df-ndx 16135  df-slot 16136  df-base 16138  df-sets 16139  df-ress 16140  df-plusg 16229  df-mulr 16230  df-starv 16231  df-sca 16232  df-vsca 16233  df-ip 16234  df-tset 16235  df-ple 16236  df-ds 16238  df-unif 16239  df-hom 16240  df-cco 16241  df-rest 16351  df-topn 16352  df-0g 16370  df-gsum 16371  df-topgen 16372  df-pt 16373  df-prds 16376  df-xrs 16430  df-qtop 16435  df-imas 16436  df-xps 16438  df-mre 16514  df-mrc 16515  df-acs 16517  df-mgm 17510  df-sgrp 17552  df-mnd 17563  df-submnd 17604  df-mulg 17810  df-cntz 18015  df-cmn 18461  df-psmet 20011  df-xmet 20012  df-met 20013  df-bl 20014  df-mopn 20015  df-fbas 20016  df-fg 20017  df-cnfld 20020  df-top 20978  df-topon 20995  df-topsp 21017  df-bases 21030  df-cld 21103  df-ntr 21104  df-cls 21105  df-nei 21182  df-lp 21220  df-perf 21221  df-cn 21311  df-cnp 21312  df-haus 21399  df-tx 21645  df-hmeo 21838  df-fil 21929  df-fm 22021  df-flim 22022  df-flf 22023  df-xms 22404  df-ms 22405  df-tms 22406  df-cncf 22960  df-limc 23921  df-dv 23922  df-log 24594  df-atan 24885
This theorem is referenced by:  atanlogadd  24932
  Copyright terms: Public domain W3C validator