Proof of Theorem coseq0negpitopi
| Step | Hyp | Ref
| Expression |
| 1 | | pire 26585 |
. . . . . . . 8
⊢ π
∈ ℝ |
| 2 | 1 | renegcli 11519 |
. . . . . . 7
⊢ -π
∈ ℝ |
| 3 | 2 | rexri 11267 |
. . . . . 6
⊢ -π
∈ ℝ* |
| 4 | | elioc2 13436 |
. . . . . 6
⊢ ((-π
∈ ℝ* ∧ π ∈ ℝ) → (𝐴 ∈ (-π(,]π) ↔ (𝐴 ∈ ℝ ∧ -π <
𝐴 ∧ 𝐴 ≤ π))) |
| 5 | 3, 1, 4 | mp2an 704 |
. . . . 5
⊢ (𝐴 ∈ (-π(,]π) ↔
(𝐴 ∈ ℝ ∧
-π < 𝐴 ∧ 𝐴 ≤ π)) |
| 6 | 5 | birani 508 |
. . . 4
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
(𝐴 ∈ ℝ ∧
-π < 𝐴 ∧ 𝐴 ≤ π)) |
| 7 | 6 | simp1d 1158 |
. . 3
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
𝐴 ∈
ℝ) |
| 8 | | 0re 11210 |
. . . 4
⊢ 0 ∈
ℝ |
| 9 | 8 | a1i 11 |
. . 3
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) → 0
∈ ℝ) |
| 10 | 7 | adantr 485 |
. . . . . . 7
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 𝐴 ∈
ℝ) |
| 11 | 10 | recnd 11237 |
. . . . . 6
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 𝐴 ∈
ℂ) |
| 12 | 7 | recnd 11237 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
𝐴 ∈
ℂ) |
| 13 | 12 | adantr 485 |
. . . . . . . . 9
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 𝐴 ∈
ℂ) |
| 14 | | cosneg 16203 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℂ →
(cos‘-𝐴) =
(cos‘𝐴)) |
| 15 | 13, 14 | syl 18 |
. . . . . . . 8
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) →
(cos‘-𝐴) =
(cos‘𝐴)) |
| 16 | | simplr 780 |
. . . . . . . 8
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) →
(cos‘𝐴) =
0) |
| 17 | 15, 16 | eqtrd 2804 |
. . . . . . 7
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) →
(cos‘-𝐴) =
0) |
| 18 | 7 | renegcld 11641 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
-𝐴 ∈
ℝ) |
| 19 | 18 | adantr 485 |
. . . . . . . . 9
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → -𝐴 ∈
ℝ) |
| 20 | | simpr 489 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 𝐴 ≤ 0) |
| 21 | 10 | le0neg1d 11785 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → (𝐴 ≤ 0 ↔ 0 ≤ -𝐴)) |
| 22 | 20, 21 | mpbid 235 |
. . . . . . . . 9
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 0 ≤
-𝐴) |
| 23 | 1 | a1i 11 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
π ∈ ℝ) |
| 24 | 6 | simp2d 1159 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
-π < 𝐴) |
| 25 | 23, 7, 24 | ltnegcon1d 11794 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
-𝐴 <
π) |
| 26 | 18, 23, 25 | ltled 11358 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
-𝐴 ≤
π) |
| 27 | 26 | adantr 485 |
. . . . . . . . 9
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → -𝐴 ≤ π) |
| 28 | 8, 1 | elicc2i 13439 |
. . . . . . . . 9
⊢ (-𝐴 ∈ (0[,]π) ↔
(-𝐴 ∈ ℝ ∧ 0
≤ -𝐴 ∧ -𝐴 ≤ π)) |
| 29 | 19, 22, 27, 28 | syl3anbrc 1360 |
. . . . . . . 8
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → -𝐴 ∈
(0[,]π)) |
| 30 | | coseq00topi 26633 |
. . . . . . . 8
⊢ (-𝐴 ∈ (0[,]π) →
((cos‘-𝐴) = 0 ↔
-𝐴 = (π /
2))) |
| 31 | 29, 30 | syl 18 |
. . . . . . 7
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) →
((cos‘-𝐴) = 0 ↔
-𝐴 = (π /
2))) |
| 32 | 17, 31 | mpbid 235 |
. . . . . 6
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → -𝐴 = (π / 2)) |
| 33 | 11, 32 | negcon1ad 11564 |
. . . . 5
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → -(π /
2) = 𝐴) |
| 34 | 33 | eqcomd 2775 |
. . . 4
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 𝐴 = -(π / 2)) |
| 35 | | halfpire 26595 |
. . . . . 6
⊢ (π /
2) ∈ ℝ |
| 36 | 35 | renegcli 11519 |
. . . . 5
⊢ -(π /
2) ∈ ℝ |
| 37 | | prid2g 4732 |
. . . . 5
⊢ (-(π /
2) ∈ ℝ → -(π / 2) ∈ {(π / 2), -(π /
2)}) |
| 38 | | eleq1a 2864 |
. . . . 5
⊢ (-(π /
2) ∈ {(π / 2), -(π / 2)} → (𝐴 = -(π / 2) → 𝐴 ∈ {(π / 2), -(π /
2)})) |
| 39 | 36, 37, 38 | mp2b 10 |
. . . 4
⊢ (𝐴 = -(π / 2) → 𝐴 ∈ {(π / 2), -(π /
2)}) |
| 40 | 34, 39 | syl 18 |
. . 3
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧
𝐴 ≤ 0) → 𝐴 ∈ {(π / 2), -(π /
2)}) |
| 41 | | simplr 780 |
. . . . 5
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) →
(cos‘𝐴) =
0) |
| 42 | 7 | adantr 485 |
. . . . . . 7
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) → 𝐴 ∈
ℝ) |
| 43 | | simpr 489 |
. . . . . . 7
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) → 0 ≤ 𝐴) |
| 44 | 6 | simp3d 1160 |
. . . . . . . 8
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
𝐴 ≤
π) |
| 45 | 44 | adantr 485 |
. . . . . . 7
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) → 𝐴 ≤ π) |
| 46 | 8, 1 | elicc2i 13439 |
. . . . . . 7
⊢ (𝐴 ∈ (0[,]π) ↔ (𝐴 ∈ ℝ ∧ 0 ≤
𝐴 ∧ 𝐴 ≤ π)) |
| 47 | 42, 43, 45, 46 | syl3anbrc 1360 |
. . . . . 6
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) → 𝐴 ∈
(0[,]π)) |
| 48 | | coseq00topi 26633 |
. . . . . 6
⊢ (𝐴 ∈ (0[,]π) →
((cos‘𝐴) = 0 ↔
𝐴 = (π /
2))) |
| 49 | 47, 48 | syl 18 |
. . . . 5
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) →
((cos‘𝐴) = 0 ↔
𝐴 = (π /
2))) |
| 50 | 41, 49 | mpbid 235 |
. . . 4
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) → 𝐴 = (π / 2)) |
| 51 | | prid1g 4731 |
. . . . 5
⊢ ((π /
2) ∈ ℝ → (π / 2) ∈ {(π / 2), -(π /
2)}) |
| 52 | | eleq1a 2864 |
. . . . 5
⊢ ((π /
2) ∈ {(π / 2), -(π / 2)} → (𝐴 = (π / 2) → 𝐴 ∈ {(π / 2), -(π /
2)})) |
| 53 | 35, 51, 52 | mp2b 10 |
. . . 4
⊢ (𝐴 = (π / 2) → 𝐴 ∈ {(π / 2), -(π /
2)}) |
| 54 | 50, 53 | syl 18 |
. . 3
⊢ (((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) ∧ 0
≤ 𝐴) → 𝐴 ∈ {(π / 2), -(π /
2)}) |
| 55 | 7, 9, 40, 54 | lecasei 11316 |
. 2
⊢ ((𝐴 ∈ (-π(,]π) ∧
(cos‘𝐴) = 0) →
𝐴 ∈ {(π / 2),
-(π / 2)}) |
| 56 | | elpri 4618 |
. . . 4
⊢ (𝐴 ∈ {(π / 2), -(π /
2)} → (𝐴 = (π / 2)
∨ 𝐴 = -(π /
2))) |
| 57 | | fveq2 6882 |
. . . . . 6
⊢ (𝐴 = (π / 2) →
(cos‘𝐴) =
(cos‘(π / 2))) |
| 58 | | coshalfpi 26600 |
. . . . . 6
⊢
(cos‘(π / 2)) = 0 |
| 59 | 57, 58 | eqtrdi 2820 |
. . . . 5
⊢ (𝐴 = (π / 2) →
(cos‘𝐴) =
0) |
| 60 | | fveq2 6882 |
. . . . . 6
⊢ (𝐴 = -(π / 2) →
(cos‘𝐴) =
(cos‘-(π / 2))) |
| 61 | | cosneghalfpi 26601 |
. . . . . 6
⊢
(cos‘-(π / 2)) = 0 |
| 62 | 60, 61 | eqtrdi 2820 |
. . . . 5
⊢ (𝐴 = -(π / 2) →
(cos‘𝐴) =
0) |
| 63 | 59, 62 | jaoi 870 |
. . . 4
⊢ ((𝐴 = (π / 2) ∨ 𝐴 = -(π / 2)) →
(cos‘𝐴) =
0) |
| 64 | 56, 63 | syl 18 |
. . 3
⊢ (𝐴 ∈ {(π / 2), -(π /
2)} → (cos‘𝐴) =
0) |
| 65 | 64 | adantl 486 |
. 2
⊢ ((𝐴 ∈ (-π(,]π) ∧
𝐴 ∈ {(π / 2),
-(π / 2)}) → (cos‘𝐴) = 0) |
| 66 | 55, 65 | impbida 812 |
1
⊢ (𝐴 ∈ (-π(,]π) →
((cos‘𝐴) = 0 ↔
𝐴 ∈ {(π / 2),
-(π / 2)})) |