Proof of Theorem acoscos
| Step | Hyp | Ref
| Expression |
| 1 | | coscl 14857 |
. . . 4
⊢ (𝐴 ∈ ℂ →
(cos‘𝐴) ∈
ℂ) |
| 2 | 1 | adantr 481 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (cos‘𝐴) ∈ ℂ) |
| 3 | | acosval 24610 |
. . 3
⊢
((cos‘𝐴)
∈ ℂ → (arccos‘(cos‘𝐴)) = ((π / 2) −
(arcsin‘(cos‘𝐴)))) |
| 4 | 2, 3 | syl 17 |
. 2
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (arccos‘(cos‘𝐴)) = ((π / 2) −
(arcsin‘(cos‘𝐴)))) |
| 5 | | picn 24211 |
. . . . . . . . 9
⊢ π
∈ ℂ |
| 6 | | halfcl 11257 |
. . . . . . . . 9
⊢ (π
∈ ℂ → (π / 2) ∈ ℂ) |
| 7 | 5, 6 | ax-mp 5 |
. . . . . . . 8
⊢ (π /
2) ∈ ℂ |
| 8 | | simpl 473 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → 𝐴 ∈
ℂ) |
| 9 | | nncan 10310 |
. . . . . . . 8
⊢ (((π /
2) ∈ ℂ ∧ 𝐴
∈ ℂ) → ((π / 2) − ((π / 2) − 𝐴)) = 𝐴) |
| 10 | 7, 8, 9 | sylancr 695 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − ((π / 2) − 𝐴)) = 𝐴) |
| 11 | 10 | fveq2d 6195 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (cos‘((π / 2) − ((π / 2) − 𝐴))) = (cos‘𝐴)) |
| 12 | | subcl 10280 |
. . . . . . . 8
⊢ (((π /
2) ∈ ℂ ∧ 𝐴
∈ ℂ) → ((π / 2) − 𝐴) ∈ ℂ) |
| 13 | 7, 8, 12 | sylancr 695 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − 𝐴) ∈ ℂ) |
| 14 | | coshalfpim 24247 |
. . . . . . 7
⊢ (((π /
2) − 𝐴) ∈
ℂ → (cos‘((π / 2) − ((π / 2) − 𝐴))) = (sin‘((π / 2)
− 𝐴))) |
| 15 | 13, 14 | syl 17 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (cos‘((π / 2) − ((π / 2) − 𝐴))) = (sin‘((π / 2)
− 𝐴))) |
| 16 | 11, 15 | eqtr3d 2658 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (cos‘𝐴) = (sin‘((π / 2) − 𝐴))) |
| 17 | 16 | fveq2d 6195 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (arcsin‘(cos‘𝐴)) = (arcsin‘(sin‘((π / 2)
− 𝐴)))) |
| 18 | | halfpire 24216 |
. . . . . . . . 9
⊢ (π /
2) ∈ ℝ |
| 19 | 18 | recni 10052 |
. . . . . . . 8
⊢ (π /
2) ∈ ℂ |
| 20 | | resub 13867 |
. . . . . . . 8
⊢ (((π /
2) ∈ ℂ ∧ 𝐴
∈ ℂ) → (ℜ‘((π / 2) − 𝐴)) = ((ℜ‘(π / 2)) −
(ℜ‘𝐴))) |
| 21 | 19, 8, 20 | sylancr 695 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (ℜ‘((π / 2) − 𝐴)) = ((ℜ‘(π / 2)) −
(ℜ‘𝐴))) |
| 22 | | rere 13862 |
. . . . . . . . 9
⊢ ((π /
2) ∈ ℝ → (ℜ‘(π / 2)) = (π /
2)) |
| 23 | 18, 22 | ax-mp 5 |
. . . . . . . 8
⊢
(ℜ‘(π / 2)) = (π / 2) |
| 24 | 23 | oveq1i 6660 |
. . . . . . 7
⊢
((ℜ‘(π / 2)) − (ℜ‘𝐴)) = ((π / 2) − (ℜ‘𝐴)) |
| 25 | 21, 24 | syl6eq 2672 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (ℜ‘((π / 2) − 𝐴)) = ((π / 2) − (ℜ‘𝐴))) |
| 26 | | recl 13850 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℂ →
(ℜ‘𝐴) ∈
ℝ) |
| 27 | 26 | adantr 481 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (ℜ‘𝐴) ∈ ℝ) |
| 28 | | resubcl 10345 |
. . . . . . . 8
⊢ (((π /
2) ∈ ℝ ∧ (ℜ‘𝐴) ∈ ℝ) → ((π / 2) −
(ℜ‘𝐴)) ∈
ℝ) |
| 29 | 18, 27, 28 | sylancr 695 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − (ℜ‘𝐴)) ∈ ℝ) |
| 30 | 18 | a1i 11 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (π / 2) ∈ ℝ) |
| 31 | | neghalfpire 24217 |
. . . . . . . . 9
⊢ -(π /
2) ∈ ℝ |
| 32 | 31 | a1i 11 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → -(π / 2) ∈ ℝ) |
| 33 | | eliooord 12233 |
. . . . . . . . . . 11
⊢
((ℜ‘𝐴)
∈ (0(,)π) → (0 < (ℜ‘𝐴) ∧ (ℜ‘𝐴) < π)) |
| 34 | 33 | adantl 482 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (0 < (ℜ‘𝐴) ∧ (ℜ‘𝐴) < π)) |
| 35 | 34 | simprd 479 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (ℜ‘𝐴) < π) |
| 36 | 19, 19 | subnegi 10360 |
. . . . . . . . . 10
⊢ ((π /
2) − -(π / 2)) = ((π / 2) + (π / 2)) |
| 37 | | pidiv2halves 24219 |
. . . . . . . . . 10
⊢ ((π /
2) + (π / 2)) = π |
| 38 | 36, 37 | eqtri 2644 |
. . . . . . . . 9
⊢ ((π /
2) − -(π / 2)) = π |
| 39 | 35, 38 | syl6breqr 4695 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (ℜ‘𝐴) < ((π / 2) − -(π /
2))) |
| 40 | 27, 30, 32, 39 | ltsub13d 10633 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → -(π / 2) < ((π / 2) − (ℜ‘𝐴))) |
| 41 | 34 | simpld 475 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → 0 < (ℜ‘𝐴)) |
| 42 | | ltsubpos 10520 |
. . . . . . . . 9
⊢
(((ℜ‘𝐴)
∈ ℝ ∧ (π / 2) ∈ ℝ) → (0 <
(ℜ‘𝐴) ↔
((π / 2) − (ℜ‘𝐴)) < (π / 2))) |
| 43 | 27, 18, 42 | sylancl 694 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (0 < (ℜ‘𝐴) ↔ ((π / 2) −
(ℜ‘𝐴)) <
(π / 2))) |
| 44 | 41, 43 | mpbid 222 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − (ℜ‘𝐴)) < (π / 2)) |
| 45 | 31 | rexri 10097 |
. . . . . . . 8
⊢ -(π /
2) ∈ ℝ* |
| 46 | 18 | rexri 10097 |
. . . . . . . 8
⊢ (π /
2) ∈ ℝ* |
| 47 | | elioo2 12216 |
. . . . . . . 8
⊢ ((-(π
/ 2) ∈ ℝ* ∧ (π / 2) ∈ ℝ*)
→ (((π / 2) − (ℜ‘𝐴)) ∈ (-(π / 2)(,)(π / 2)) ↔
(((π / 2) − (ℜ‘𝐴)) ∈ ℝ ∧ -(π / 2) <
((π / 2) − (ℜ‘𝐴)) ∧ ((π / 2) −
(ℜ‘𝐴)) <
(π / 2)))) |
| 48 | 45, 46, 47 | mp2an 708 |
. . . . . . 7
⊢ (((π /
2) − (ℜ‘𝐴)) ∈ (-(π / 2)(,)(π / 2)) ↔
(((π / 2) − (ℜ‘𝐴)) ∈ ℝ ∧ -(π / 2) <
((π / 2) − (ℜ‘𝐴)) ∧ ((π / 2) −
(ℜ‘𝐴)) <
(π / 2))) |
| 49 | 29, 40, 44, 48 | syl3anbrc 1246 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − (ℜ‘𝐴)) ∈ (-(π / 2)(,)(π /
2))) |
| 50 | 25, 49 | eqeltrd 2701 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (ℜ‘((π / 2) − 𝐴)) ∈ (-(π / 2)(,)(π /
2))) |
| 51 | | asinsin 24619 |
. . . . 5
⊢ ((((π
/ 2) − 𝐴) ∈
ℂ ∧ (ℜ‘((π / 2) − 𝐴)) ∈ (-(π / 2)(,)(π / 2))) →
(arcsin‘(sin‘((π / 2) − 𝐴))) = ((π / 2) − 𝐴)) |
| 52 | 13, 50, 51 | syl2anc 693 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (arcsin‘(sin‘((π / 2) − 𝐴))) = ((π / 2) − 𝐴)) |
| 53 | 17, 52 | eqtr2d 2657 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − 𝐴) = (arcsin‘(cos‘𝐴))) |
| 54 | 19 | a1i 11 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (π / 2) ∈ ℂ) |
| 55 | | asincl 24600 |
. . . . 5
⊢
((cos‘𝐴)
∈ ℂ → (arcsin‘(cos‘𝐴)) ∈ ℂ) |
| 56 | 2, 55 | syl 17 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (arcsin‘(cos‘𝐴)) ∈ ℂ) |
| 57 | | subsub23 10286 |
. . . 4
⊢ (((π /
2) ∈ ℂ ∧ 𝐴
∈ ℂ ∧ (arcsin‘(cos‘𝐴)) ∈ ℂ) → (((π / 2)
− 𝐴) =
(arcsin‘(cos‘𝐴)) ↔ ((π / 2) −
(arcsin‘(cos‘𝐴))) = 𝐴)) |
| 58 | 54, 8, 56, 57 | syl3anc 1326 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (((π / 2) − 𝐴) = (arcsin‘(cos‘𝐴)) ↔ ((π / 2) −
(arcsin‘(cos‘𝐴))) = 𝐴)) |
| 59 | 53, 58 | mpbid 222 |
. 2
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → ((π / 2) − (arcsin‘(cos‘𝐴))) = 𝐴) |
| 60 | 4, 59 | eqtrd 2656 |
1
⊢ ((𝐴 ∈ ℂ ∧
(ℜ‘𝐴) ∈
(0(,)π)) → (arccos‘(cos‘𝐴)) = 𝐴) |