Proof of Theorem rmxyneg
| Step | Hyp | Ref
| Expression |
| 1 | | znegcl 12646 |
. . . 4
⊢ (𝑁 ∈ ℤ → -𝑁 ∈
ℤ) |
| 2 | | rmxyval 43702 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ -𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁)) |
| 3 | 1, 2 | sylan2 605 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁)) |
| 4 | | rmxyval 43702 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) = ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁)) |
| 5 | 4 | oveq2d 7435 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (1 / ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁)))) = (1 / ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁))) |
| 6 | | rmbaserp 43706 |
. . . . . . . . 9
⊢ (𝐴 ∈
(ℤ≥‘2) → (𝐴 + (√‘((𝐴↑2) − 1))) ∈
ℝ+) |
| 7 | 6 | rpcnd 13080 |
. . . . . . . 8
⊢ (𝐴 ∈
(ℤ≥‘2) → (𝐴 + (√‘((𝐴↑2) − 1))) ∈
ℂ) |
| 8 | 7 | adantr 486 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 + (√‘((𝐴↑2) − 1))) ∈
ℂ) |
| 9 | 6 | rpne0d 13083 |
. . . . . . . 8
⊢ (𝐴 ∈
(ℤ≥‘2) → (𝐴 + (√‘((𝐴↑2) − 1))) ≠
0) |
| 10 | 9 | adantr 486 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 + (√‘((𝐴↑2) − 1))) ≠
0) |
| 11 | | simpr 490 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → 𝑁 ∈ ℤ) |
| 12 | 8, 10, 11 | expclzd 14207 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁) ∈ ℂ) |
| 13 | 4, 12 | eqeltrd 2865 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) ∈
ℂ) |
| 14 | | frmx 43700 |
. . . . . . . 8
⊢
Xrm :((ℤ≥‘2) ×
ℤ)⟶ℕ0 |
| 15 | 14 | fovcl 7547 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm 𝑁) ∈
ℕ0) |
| 16 | 15 | nn0cnd 12584 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm 𝑁) ∈ ℂ) |
| 17 | | rmspecnonsq 43694 |
. . . . . . . . . . 11
⊢ (𝐴 ∈
(ℤ≥‘2) → ((𝐴↑2) − 1) ∈ (ℕ ∖
◻NN)) |
| 18 | 17 | eldifad 3918 |
. . . . . . . . . 10
⊢ (𝐴 ∈
(ℤ≥‘2) → ((𝐴↑2) − 1) ∈
ℕ) |
| 19 | 18 | nncnd 12266 |
. . . . . . . . 9
⊢ (𝐴 ∈
(ℤ≥‘2) → ((𝐴↑2) − 1) ∈
ℂ) |
| 20 | 19 | adantr 486 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴↑2) − 1) ∈
ℂ) |
| 21 | 20 | sqrtcld 15517 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(√‘((𝐴↑2)
− 1)) ∈ ℂ) |
| 22 | | frmy 43701 |
. . . . . . . . . 10
⊢
Yrm :((ℤ≥‘2) ×
ℤ)⟶ℤ |
| 23 | 22 | fovcl 7547 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm 𝑁) ∈ ℤ) |
| 24 | 23 | zcnd 12719 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm 𝑁) ∈ ℂ) |
| 25 | 24 | negcld 11573 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → -(𝐴 Yrm 𝑁) ∈ ℂ) |
| 26 | 21, 25 | mulcld 11246 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1)) · -(𝐴
Yrm 𝑁)) ∈
ℂ) |
| 27 | 16, 26 | addcld 11245 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) ∈
ℂ) |
| 28 | 8, 10, 11 | expne0d 14208 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁) ≠ 0) |
| 29 | 4, 28 | eqnetrd 3027 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) ≠ 0) |
| 30 | 21, 24 | mulneg2d 11685 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1)) · -(𝐴
Yrm 𝑁)) =
-((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) |
| 31 | 30 | oveq2d 7435 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) = ((𝐴 Xrm 𝑁) + -((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁)))) |
| 32 | 21, 24 | mulcld 11246 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1)) · (𝐴
Yrm 𝑁)) ∈
ℂ) |
| 33 | 16, 32 | negsubd 11592 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + -((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) = ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁)))) |
| 34 | 31, 33 | eqtrd 2800 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) = ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁)))) |
| 35 | 34 | oveq2d 7435 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) = (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))))) |
| 36 | | subsq 14266 |
. . . . . . 7
⊢ (((𝐴 Xrm 𝑁) ∈ ℂ ∧
((√‘((𝐴↑2)
− 1)) · (𝐴
Yrm 𝑁)) ∈
ℂ) → (((𝐴
Xrm 𝑁)↑2)
− (((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))↑2)) = (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))))) |
| 37 | 16, 32, 36 | syl2anc 596 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))↑2)) = (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) − ((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))))) |
| 38 | 21, 24 | sqmuld 14214 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))↑2) =
(((√‘((𝐴↑2) − 1))↑2) ·
((𝐴 Yrm 𝑁)↑2))) |
| 39 | 20 | sqsqrtd 15519 |
. . . . . . . . . 10
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
((√‘((𝐴↑2)
− 1))↑2) = ((𝐴↑2) − 1)) |
| 40 | 39 | oveq1d 7434 |
. . . . . . . . 9
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(((√‘((𝐴↑2) − 1))↑2) ·
((𝐴 Yrm 𝑁)↑2)) = (((𝐴↑2) − 1) ·
((𝐴 Yrm 𝑁)↑2))) |
| 41 | 38, 40 | eqtrd 2800 |
. . . . . . . 8
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))↑2) = (((𝐴↑2) − 1) ·
((𝐴 Yrm 𝑁)↑2))) |
| 42 | 41 | oveq2d 7435 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))↑2)) = (((𝐴 Xrm 𝑁)↑2) − (((𝐴↑2) − 1) ·
((𝐴 Yrm 𝑁)↑2)))) |
| 43 | | rmxynorm 43705 |
. . . . . . 7
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((𝐴↑2) − 1) · ((𝐴 Yrm 𝑁)↑2))) =
1) |
| 44 | 42, 43 | eqtrd 2800 |
. . . . . 6
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁)↑2) − (((√‘((𝐴↑2) − 1)) ·
(𝐴 Yrm 𝑁))↑2)) =
1) |
| 45 | 35, 37, 44 | 3eqtr2d 2806 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))) · ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) = 1) |
| 46 | 13, 27, 29, 45 | mvllmuld 12064 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) = (1 / ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm 𝑁))))) |
| 47 | 8, 10, 11 | expnegd 14209 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁) = (1 / ((𝐴 + (√‘((𝐴↑2) − 1)))↑𝑁))) |
| 48 | 5, 46, 47 | 3eqtr4rd 2811 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 + (√‘((𝐴↑2) − 1)))↑-𝑁) = ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) |
| 49 | 3, 48 | eqtrd 2800 |
. 2
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁)))) |
| 50 | | rmspecsqrtnq 43693 |
. . . 4
⊢ (𝐴 ∈
(ℤ≥‘2) → (√‘((𝐴↑2) − 1)) ∈ (ℂ ∖
ℚ)) |
| 51 | 50 | adantr 486 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) →
(√‘((𝐴↑2)
− 1)) ∈ (ℂ ∖ ℚ)) |
| 52 | | nn0ssq 12999 |
. . . 4
⊢
ℕ0 ⊆ ℚ |
| 53 | 14 | fovcl 7547 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ -𝑁 ∈ ℤ) → (𝐴 Xrm -𝑁) ∈
ℕ0) |
| 54 | 1, 53 | sylan2 605 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm -𝑁) ∈
ℕ0) |
| 55 | 52, 54 | sselid 3936 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm -𝑁) ∈ ℚ) |
| 56 | | zssq 12998 |
. . . 4
⊢ ℤ
⊆ ℚ |
| 57 | 22 | fovcl 7547 |
. . . . 5
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ -𝑁 ∈ ℤ) → (𝐴 Yrm -𝑁) ∈ ℤ) |
| 58 | 1, 57 | sylan2 605 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm -𝑁) ∈ ℤ) |
| 59 | 56, 58 | sselid 3936 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm -𝑁) ∈ ℚ) |
| 60 | 52, 15 | sselid 3936 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Xrm 𝑁) ∈ ℚ) |
| 61 | 56, 23 | sselid 3936 |
. . . 4
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (𝐴 Yrm 𝑁) ∈ ℚ) |
| 62 | | qnegcl 13008 |
. . . 4
⊢ ((𝐴 Yrm 𝑁) ∈ ℚ → -(𝐴 Yrm 𝑁) ∈
ℚ) |
| 63 | 61, 62 | syl 18 |
. . 3
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → -(𝐴 Yrm 𝑁) ∈ ℚ) |
| 64 | | qirropth 43695 |
. . 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 1406 |
. 2
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → (((𝐴 Xrm -𝑁) + ((√‘((𝐴↑2) − 1)) · (𝐴 Yrm -𝑁))) = ((𝐴 Xrm 𝑁) + ((√‘((𝐴↑2) − 1)) · -(𝐴 Yrm 𝑁))) ↔ ((𝐴 Xrm -𝑁) = (𝐴 Xrm 𝑁) ∧ (𝐴 Yrm -𝑁) = -(𝐴 Yrm 𝑁)))) |
| 66 | 49, 65 | mpbid 235 |
1
⊢ ((𝐴 ∈
(ℤ≥‘2) ∧ 𝑁 ∈ ℤ) → ((𝐴 Xrm -𝑁) = (𝐴 Xrm 𝑁) ∧ (𝐴 Yrm -𝑁) = -(𝐴 Yrm 𝑁))) |