Proof of Theorem rmxyneg
| Step | Hyp | Ref
| Expression |
| 1 | | znegcl 12652 |
. . . 4
⊢ (𝑁 ∈ ℤ → -𝑁 ∈
ℤ) |
| 2 | | rmxyval 42927 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ -𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁)) |
| 3 | 1, 2 | sylan2 593 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁)) |
| 4 | | rmxyval 42927 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) = ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁)) |
| 5 | 4 | oveq2d 7447 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (1 / ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁)))) = (1 / ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁))) |
| 6 | | rmbaserp 42931 |
. . . . . . . . 9
⊢ (𝐴 ∈
(ℤ≥‘2) → (𝐴 + (√‘((𝐴↑2) − 1))) ∈
ℝ+) |
| 7 | 6 | rpcnd 13079 |
. . . . . . . 8
⊢ (𝐴 ∈
(ℤ≥‘2) → (𝐴 + (√‘((𝐴↑2) − 1))) ∈
ℂ) |
| 8 | 7 | adantr 480 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 + (√‘((𝐴↑2) − 1))) ∈
ℂ) |
| 9 | 6 | rpne0d 13082 |
. . . . . . . 8
⊢ (𝐴 ∈
(ℤ≥‘2) → (𝐴 + (√‘((𝐴↑2) − 1))) ≠
0) |
| 10 | 9 | adantr 480 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 + (√‘((𝐴↑2) − 1))) ≠
0) |
| 11 | | simpr 484 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → 𝑁 ∈ ℤ) |
| 12 | 8, 10, 11 | expclzd 14191 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁) ∈ ℂ) |
| 13 | 4, 12 | eqeltrd 2841 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) ∈
ℂ) |
| 14 | | frmx 42925 |
. . . . . . . 8
⊢
Xrm :((ℤ≥‘2) ×
ℤ)⟶ℕ0 |
| 15 | 14 | fovcl 7561 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm 𝑁) ∈
ℕ0) |
| 16 | 15 | nn0cnd 12589 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm 𝑁) ∈ ℂ) |
| 17 | | rmspecnonsq 42918 |
. . . . . . . . . . 11
⊢ (𝐴 ∈
(ℤ≥‘2) → ((𝐴↑2) − 1) ∈ (ℕ ∖
◻NN)) |
| 18 | 17 | eldifad 3963 |
. . . . . . . . . 10
⊢ (𝐴 ∈
(ℤ≥‘2) → ((𝐴↑2) − 1) ∈
ℕ) |
| 19 | 18 | nncnd 12282 |
. . . . . . . . 9
⊢ (𝐴 ∈
(ℤ≥‘2) → ((𝐴↑2) − 1) ∈
ℂ) |
| 20 | 19 | adantr 480 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴↑2) − 1) ∈
ℂ) |
| 21 | 20 | sqrtcld 15476 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(√‘((𝐴↑2)
− 1)) ∈ ℂ) |
| 22 | | frmy 42926 |
. . . . . . . . . 10
⊢
Yrm :((ℤ≥‘2) ×
ℤ)⟶ℤ |
| 23 | 22 | fovcl 7561 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm 𝑁) ∈ ℤ) |
| 24 | 23 | zcnd 12723 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm 𝑁) ∈ ℂ) |
| 25 | 24 | negcld 11607 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → -(𝐴 Yrm 𝑁) ∈ ℂ) |
| 26 | 21, 25 | mulcld 11281 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1)) · -(𝐴
Yrm 𝑁)) ∈
ℂ) |
| 27 | 16, 26 | addcld 11280 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) ∈
ℂ) |
| 28 | 8, 10, 11 | expne0d 14192 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁) ≠ 0) |
| 29 | 4, 28 | eqnetrd 3008 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) ≠ 0) |
| 30 | 21, 24 | mulneg2d 11717 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1)) · -(𝐴
Yrm 𝑁)) =
-((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) |
| 31 | 30 | oveq2d 7447 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) = ((𝐴 Xrm 𝑁) + -((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁)))) |
| 32 | 21, 24 | mulcld 11281 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1)) · (𝐴
Yrm 𝑁)) ∈
ℂ) |
| 33 | 16, 32 | negsubd 11626 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + -((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) = ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁)))) |
| 34 | 31, 33 | eqtrd 2777 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) = ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁)))) |
| 35 | 34 | oveq2d 7447 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) = (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))))) |
| 36 | | subsq 14249 |
. . . . . . 7
⊢ (((𝐴 Xrm 𝑁) ∈ ℂ ∧
((√‘((𝐴↑2)
− 1)) · (𝐴
Yrm 𝑁)) ∈
ℂ) → (((𝐴
Xrm 𝑁)↑2)
− (((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))↑2)) = (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))))) |
| 37 | 16, 32, 36 | syl2anc 584 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))↑2)) = (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))))) |
| 38 | 21, 24 | sqmuld 14198 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))↑2) =
(((√‘((𝐴↑2) − 1))↑2) ·
((𝐴 Yrm 𝑁)↑2))) |
| 39 | 20 | sqsqrtd 15478 |
. . . . . . . . . 10
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1))↑2) = ((𝐴↑2) − 1)) |
| 40 | 39 | oveq1d 7446 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(((√‘((𝐴↑2) − 1))↑2) ·
((𝐴 Yrm 𝑁)↑2)) = (((𝐴↑2) − 1) ·
((𝐴 Yrm 𝑁)↑2))) |
| 41 | 38, 40 | eqtrd 2777 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))↑2) = (((𝐴↑2) − 1) ·
((𝐴 Yrm 𝑁)↑2))) |
| 42 | 41 | oveq2d 7447 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))↑2)) = (((𝐴 Xrm 𝑁)↑2) − (((𝐴↑2) − 1) ·
((𝐴 Yrm 𝑁)↑2)))) |
| 43 | | rmxynorm 42930 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((𝐴↑2) − 1) · ((𝐴 Yrm 𝑁)↑2))) =
1) |
| 44 | 42, 43 | eqtrd 2777 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))↑2)) =
1) |
| 45 | 35, 37, 44 | 3eqtr2d 2783 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) = 1) |
| 46 | 13, 27, 29, 45 | mvllmuld 12099 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) = (1 / ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))))) |
| 47 | 8, 10, 11 | expnegd 14193 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁) = (1 / ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁))) |
| 48 | 5, 46, 47 | 3eqtr4rd 2788 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁) = ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) |
| 49 | 3, 48 | eqtrd 2777 |
. 2
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) |
| 50 | | rmspecsqrtnq 42917 |
. . . 4
⊢ (𝐴 ∈
(ℤ≥‘2) → (√‘((𝐴↑2) − 1)) ∈ (ℂ ∖
ℚ)) |
| 51 | 50 | adantr 480 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(√‘((𝐴↑2)
− 1)) ∈ (ℂ ∖ ℚ)) |
| 52 | | nn0ssq 12999 |
. . . 4
⊢
ℕ0 ⊆ ℚ |
| 53 | 14 | fovcl 7561 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ -𝑁 ∈ ℤ) → (𝐴 Xrm -𝑁) ∈
ℕ0) |
| 54 | 1, 53 | sylan2 593 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm -𝑁) ∈
ℕ0) |
| 55 | 52, 54 | sselid 3981 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm -𝑁) ∈ ℚ) |
| 56 | | zssq 12998 |
. . . 4
⊢ ℤ
⊆ ℚ |
| 57 | 22 | fovcl 7561 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ -𝑁 ∈ ℤ) → (𝐴 Yrm -𝑁) ∈ ℤ) |
| 58 | 1, 57 | sylan2 593 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm -𝑁) ∈ ℤ) |
| 59 | 56, 58 | sselid 3981 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm -𝑁) ∈ ℚ) |
| 60 | 52, 15 | sselid 3981 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm 𝑁) ∈ ℚ) |
| 61 | 56, 23 | sselid 3981 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm 𝑁) ∈ ℚ) |
| 62 | | qnegcl 13008 |
. . . 4
⊢ ((𝐴 Yrm 𝑁) ∈ ℚ → -(𝐴 Yrm 𝑁) ∈
ℚ) |
| 63 | 61, 62 | syl 17 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → -(𝐴 Yrm 𝑁) ∈ ℚ) |
| 64 | | qirropth 42919 |
. . 3
⊢
(((√‘((𝐴↑2) − 1)) ∈ (ℂ ∖
ℚ) ∧ ((𝐴
Xrm -𝑁) ∈
ℚ ∧ (𝐴
Yrm -𝑁) ∈
ℚ) ∧ ((𝐴
Xrm 𝑁) ∈
ℚ ∧ -(𝐴
Yrm 𝑁) ∈
ℚ)) → (((𝐴
Xrm -𝑁) +
((√‘((𝐴↑2)
− 1)) · (𝐴
Yrm -𝑁))) =
((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
-(𝐴 Yrm 𝑁))) ↔ ((𝐴 Xrm -𝑁) = (𝐴 Xrm 𝑁) ∧ (𝐴 Yrm -𝑁) = -(𝐴 Yrm 𝑁)))) |
| 65 | 51, 55, 59, 60, 63, 64 | syl122anc 1381 |
. 2
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) ↔ ((𝐴 Xrm -𝑁) = (𝐴 Xrm 𝑁) ∧ (𝐴 Yrm -𝑁) = -(𝐴 Yrm 𝑁)))) |
| 66 | 49, 65 | mpbid 232 |
1
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) = (𝐴 Xrm 𝑁) ∧ (𝐴 Yrm -𝑁) = -(𝐴 Yrm 𝑁))) |