Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  jm2.22 Structured version   Unicode version
Theorem jm2.22 31103
Description: Lemma for jm2.20nn 31105. Applying binomial theorem and taking irrational part. (Contributed by Stefan O'Rear, 26-Sep-2014.) (Revised by Stefan O'Rear, 6-May-2015.)
Assertion
Ref Expression
jm2.22 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Yrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) )
Distinct variable groups:   A, i, x   i, N, x   i, J, x
Proof of Theorem jm2.22
StepHypRef Expression
1 nn0z 10804 . . . . 5 |- ( J e. NN0 -> J e. ZZ )
2 jm2.21 31102 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. ZZ ) -> ( ( A Xrm ( N x. J ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm ( N x. J ) ) ) ) = ( ( ( A Xrm N ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ) ^ J ) )
31, 2syl3an3 1261 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( A Xrm ( N x. J ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm ( N x. J ) ) ) ) = ( ( ( A Xrm N ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ) ^ J ) )
4 frmx 31014 . . . . . . . 8 |- Xrm : ( ( ZZ>= ` 2 ) X. ZZ ) --> NN0
54fovcl 6306 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ ) -> ( A Xrm N ) e. NN0 )
653adant3 1014 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Xrm N ) e. NN0 )
76nn0cnd 10771 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Xrm N ) e. CC )
8 eluzelz 11010 . . . . . . . . . 10 |- ( A e. ( ZZ>= ` 2 ) -> A e. ZZ )
9 zsqcl 12141 . . . . . . . . . 10 |- ( A e. ZZ -> ( A ^ 2 ) e. ZZ )
10 peano2zm 10824 . . . . . . . . . 10 |- ( ( A ^ 2 ) e. ZZ -> ( ( A ^ 2 ) - 1 ) e. ZZ )
118, 9, 103syl 20 . . . . . . . . 9 |- ( A e. ( ZZ>= ` 2 ) -> ( ( A ^ 2 ) - 1 ) e. ZZ )
12113ad2ant1 1015 . . . . . . . 8 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( A ^ 2 ) - 1 ) e. ZZ )
1312zcnd 10885 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( A ^ 2 ) - 1 ) e. CC )
1413sqrtcld 13270 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. CC )
15 frmy 31015 . . . . . . . . 9 |- Yrm : ( ( ZZ>= ` 2 ) X. ZZ ) --> ZZ
1615fovcl 6306 . . . . . . . 8 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ ) -> ( A Yrm N ) e. ZZ )
17163adant3 1014 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Yrm N ) e. ZZ )
1817zcnd 10885 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Yrm N ) e. CC )
1914, 18mulcld 9527 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) e. CC )
20 simp3 996 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> J e. NN0 )
21 binom 13644 . . . . 5 |- ( ( ( A Xrm N ) e. CC /\ ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) e. CC /\ J e. NN0 ) -> ( ( ( A Xrm N ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ) ^ J ) = sum_ i e. ( 0 ... J ) ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) )
227, 19, 20, 21syl3anc 1226 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( ( A Xrm N ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ) ^ J ) = sum_ i e. ( 0 ... J ) ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) )
23 rabnc 3736 . . . . . . 7 |- ( { x e. ( 0 ... J ) | 2 || x } i^i { x e. ( 0 ... J ) | -. 2 || x } ) = (/)
2423a1i 11 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( { x e. ( 0 ... J ) | 2 || x } i^i { x e. ( 0 ... J ) | -. 2 || x } ) = (/) )
25 rabxm 3735 . . . . . . 7 |- ( 0 ... J ) = ( { x e. ( 0 ... J ) | 2 || x } u. { x e. ( 0 ... J ) | -. 2 || x } )
2625a1i 11 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( 0 ... J ) = ( { x e. ( 0 ... J ) | 2 || x } u. { x e. ( 0 ... J ) | -. 2 || x } ) )
27 fzfid 11986 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( 0 ... J ) e. Fin )
28 simpl3 999 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> J e. NN0 )
29 elfzelz 11609 . . . . . . . . . 10 |- ( i e. ( 0 ... J ) -> i e. ZZ )
3029adantl 464 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> i e. ZZ )
31 bccl 12302 . . . . . . . . . 10 |- ( ( J e. NN0 /\ i e. ZZ ) -> ( J _C i ) e. NN0 )
3231nn0zd 10882 . . . . . . . . 9 |- ( ( J e. NN0 /\ i e. ZZ ) -> ( J _C i ) e. ZZ )
3328, 30, 32syl2anc 659 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( J _C i ) e. ZZ )
3433zcnd 10885 . . . . . . 7 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( J _C i ) e. CC )
356nn0zd 10882 . . . . . . . . . . 11 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Xrm N ) e. ZZ )
3635adantr 463 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( A Xrm N ) e. ZZ )
3736zcnd 10885 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( A Xrm N ) e. CC )
38 fznn0sub 11638 . . . . . . . . . 10 |- ( i e. ( 0 ... J ) -> ( J - i ) e. NN0 )
3938adantl 464 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( J - i ) e. NN0 )
4037, 39expcld 12212 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( A Xrm N ) ^ ( J - i ) ) e. CC )
4112adantr 463 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( A ^ 2 ) - 1 ) e. ZZ )
4241zcnd 10885 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( A ^ 2 ) - 1 ) e. CC )
4342sqrtcld 13270 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. CC )
4417adantr 463 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( A Yrm N ) e. ZZ )
4544zcnd 10885 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( A Yrm N ) e. CC )
4643, 45mulcld 9527 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) e. CC )
47 elfznn0 11693 . . . . . . . . . 10 |- ( i e. ( 0 ... J ) -> i e. NN0 )
4847adantl 464 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> i e. NN0 )
4946, 48expcld 12212 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) e. CC )
5040, 49mulcld 9527 . . . . . . 7 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) e. CC )
5134, 50mulcld 9527 . . . . . 6 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) e. CC )
5224, 26, 27, 51fsumsplit 13564 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. ( 0 ... J ) ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) = ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) ) )
53 fzfi 11985 . . . . . . . . . 10 |- ( 0 ... J ) e. Fin
54 ssrab2 3499 . . . . . . . . . 10 |- { x e. ( 0 ... J ) | -. 2 || x } C_ ( 0 ... J )
55 ssfi 7656 . . . . . . . . . 10 |- ( ( ( 0 ... J ) e. Fin /\ { x e. ( 0 ... J ) | -. 2 || x } C_ ( 0 ... J ) ) -> { x e. ( 0 ... J ) | -. 2 || x } e. Fin )
5653, 54, 55mp2an 670 . . . . . . . . 9 |- { x e. ( 0 ... J ) | -. 2 || x } e. Fin
5756a1i 11 . . . . . . . 8 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> { x e. ( 0 ... J ) | -. 2 || x } e. Fin )
58 breq2 4371 . . . . . . . . . . 11 |- ( x = i -> ( 2 || x <-> 2 || i ) )
5958notbid 292 . . . . . . . . . 10 |- ( x = i -> ( -. 2 || x <-> -. 2 || i ) )
6059elrab 3182 . . . . . . . . 9 |- ( i e. { x e. ( 0 ... J ) | -. 2 || x } <-> ( i e. ( 0 ... J ) /\ -. 2 || i ) )
6134adantrr 714 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( J _C i ) e. CC )
6240adantrr 714 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( A Xrm N ) ^ ( J - i ) ) e. CC )
63 zexpcl 12084 . . . . . . . . . . . . . . 15 |- ( ( ( A Yrm N ) e. ZZ /\ i e. NN0 ) -> ( ( A Yrm N ) ^ i ) e. ZZ )
6417, 47, 63syl2an 475 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( A Yrm N ) ^ i ) e. ZZ )
6564zcnd 10885 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( A Yrm N ) ^ i ) e. CC )
6665adantrr 714 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( A Yrm N ) ^ i ) e. CC )
6742adantrr 714 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( A ^ 2 ) - 1 ) e. CC )
6829adantr 463 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> i e. ZZ )
69 simpr 459 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> -. 2 || i )
70 1zzd 10812 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 1 e. ZZ )
71 n2dvds1 14037 . . . . . . . . . . . . . . . . . 18 |- -. 2 || 1
7271a1i 11 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> -. 2 || 1 )
73 omoe 14338 . . . . . . . . . . . . . . . . 17 |- ( ( ( i e. ZZ /\ -. 2 || i ) /\ ( 1 e. ZZ /\ -. 2 || 1 ) ) -> 2 || ( i - 1 ) )
7468, 69, 70, 72, 73syl22anc 1227 . . . . . . . . . . . . . . . 16 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 2 || ( i - 1 ) )
75 2z 10813 . . . . . . . . . . . . . . . . . 18 |- 2 e. ZZ
7675a1i 11 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 2 e. ZZ )
77 2ne0 10545 . . . . . . . . . . . . . . . . . 18 |- 2 =/= 0
7877a1i 11 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 2 =/= 0 )
79 peano2zm 10824 . . . . . . . . . . . . . . . . . . 19 |- ( i e. ZZ -> ( i - 1 ) e. ZZ )
8029, 79syl 16 . . . . . . . . . . . . . . . . . 18 |- ( i e. ( 0 ... J ) -> ( i - 1 ) e. ZZ )
8180adantr 463 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( i - 1 ) e. ZZ )
82 dvdsval2 13991 . . . . . . . . . . . . . . . . 17 |- ( ( 2 e. ZZ /\ 2 =/= 0 /\ ( i - 1 ) e. ZZ ) -> ( 2 || ( i - 1 ) <-> ( ( i - 1 ) / 2 ) e. ZZ ) )
8376, 78, 81, 82syl3anc 1226 . . . . . . . . . . . . . . . 16 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( 2 || ( i - 1 ) <-> ( ( i - 1 ) / 2 ) e. ZZ ) )
8474, 83mpbid 210 . . . . . . . . . . . . . . 15 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( ( i - 1 ) / 2 ) e. ZZ )
8580zred 10884 . . . . . . . . . . . . . . . . 17 |- ( i e. ( 0 ... J ) -> ( i - 1 ) e. RR )
8685adantr 463 . . . . . . . . . . . . . . . 16 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( i - 1 ) e. RR )
87 dvds0 14001 . . . . . . . . . . . . . . . . . . . . . . 23 |- ( 2 e. ZZ -> 2 || 0 )
8875, 87ax-mp 5 . . . . . . . . . . . . . . . . . . . . . 22 |- 2 || 0
89 breq2 4371 . . . . . . . . . . . . . . . . . . . . . 22 |- ( i = 0 -> ( 2 || i <-> 2 || 0 ) )
9088, 89mpbiri 233 . . . . . . . . . . . . . . . . . . . . 21 |- ( i = 0 -> 2 || i )
9190con3i 135 . . . . . . . . . . . . . . . . . . . 20 |- ( -. 2 || i -> -. i = 0 )
9291adantl 464 . . . . . . . . . . . . . . . . . . 19 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> -. i = 0 )
9347adantr 463 . . . . . . . . . . . . . . . . . . . 20 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> i e. NN0 )
94 elnn0 10714 . . . . . . . . . . . . . . . . . . . 20 |- ( i e. NN0 <-> ( i e. NN \/ i = 0 ) )
9593, 94sylib 196 . . . . . . . . . . . . . . . . . . 19 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( i e. NN \/ i = 0 ) )
96 orel2 381 . . . . . . . . . . . . . . . . . . 19 |- ( -. i = 0 -> ( ( i e. NN \/ i = 0 ) -> i e. NN ) )
9792, 95, 96sylc 60 . . . . . . . . . . . . . . . . . 18 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> i e. NN )
98 nnm1nn0 10754 . . . . . . . . . . . . . . . . . 18 |- ( i e. NN -> ( i - 1 ) e. NN0 )
9997, 98syl 16 . . . . . . . . . . . . . . . . 17 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( i - 1 ) e. NN0 )
10099nn0ge0d 10772 . . . . . . . . . . . . . . . 16 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 0 <_ ( i - 1 ) )
101 2re 10522 . . . . . . . . . . . . . . . . 17 |- 2 e. RR
102101a1i 11 . . . . . . . . . . . . . . . 16 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 2 e. RR )
103 2pos 10544 . . . . . . . . . . . . . . . . 17 |- 0 < 2
104103a1i 11 . . . . . . . . . . . . . . . 16 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 0 < 2 )
105 divge0 10328 . . . . . . . . . . . . . . . 16 |- ( ( ( ( i - 1 ) e. RR /\ 0 <_ ( i - 1 ) ) /\ ( 2 e. RR /\ 0 < 2 ) ) -> 0 <_ ( ( i - 1 ) / 2 ) )
10686, 100, 102, 104, 105syl22anc 1227 . . . . . . . . . . . . . . 15 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> 0 <_ ( ( i - 1 ) / 2 ) )
107 elnn0z 10794 . . . . . . . . . . . . . . 15 |- ( ( ( i - 1 ) / 2 ) e. NN0 <-> ( ( ( i - 1 ) / 2 ) e. ZZ /\ 0 <_ ( ( i - 1 ) / 2 ) ) )
10884, 106, 107sylanbrc 662 . . . . . . . . . . . . . 14 |- ( ( i e. ( 0 ... J ) /\ -. 2 || i ) -> ( ( i - 1 ) / 2 ) e. NN0 )
109108adantl 464 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( i - 1 ) / 2 ) e. NN0 )
11067, 109expcld 12212 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) e. CC )
11166, 110mulcld 9527 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) e. CC )
11262, 111mulcld 9527 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) e. CC )
11361, 112mulcld 9527 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. CC )
11460, 113sylan2b 473 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. { x e. ( 0 ... J ) | -. 2 || x } ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. CC )
11557, 14, 114fsummulc2 13601 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) )
11643adantrr 714 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. CC )
117116, 61, 112mul12d 9700 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) = ( ( J _C i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) )
118116, 62, 111mul12d 9700 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) = ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) )
11943, 48expcld 12212 . . . . . . . . . . . . . . . 16 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) e. CC )
120119adantrr 714 . . . . . . . . . . . . . . 15 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) e. CC )
12166, 120mulcomd 9528 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Yrm N ) ^ i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) x. ( ( A Yrm N ) ^ i ) ) )
122116, 66, 110mul12d 9700 . . . . . . . . . . . . . . 15 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) = ( ( ( A Yrm N ) ^ i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) )
123 2nn0 10729 . . . . . . . . . . . . . . . . . . . . 21 |- 2 e. NN0
124123a1i 11 . . . . . . . . . . . . . . . . . . . 20 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> 2 e. NN0 )
125116, 109, 124expmuld 12215 . . . . . . . . . . . . . . . . . . 19 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( 2 x. ( ( i - 1 ) / 2 ) ) ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ 2 ) ^ ( ( i - 1 ) / 2 ) ) )
12680zcnd 10885 . . . . . . . . . . . . . . . . . . . . . 22 |- ( i e. ( 0 ... J ) -> ( i - 1 ) e. CC )
127126ad2antrl 725 . . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( i - 1 ) e. CC )
128 2cnd 10525 . . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> 2 e. CC )
12977a1i 11 . . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> 2 =/= 0 )
130127, 128, 129divcan2d 10239 . . . . . . . . . . . . . . . . . . . 20 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( 2 x. ( ( i - 1 ) / 2 ) ) = ( i - 1 ) )
131130oveq2d 6212 . . . . . . . . . . . . . . . . . . 19 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( 2 x. ( ( i - 1 ) / 2 ) ) ) = ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( i - 1 ) ) )
13267sqsqrtd 13272 . . . . . . . . . . . . . . . . . . . 20 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ 2 ) = ( ( A ^ 2 ) - 1 ) )
133132oveq1d 6211 . . . . . . . . . . . . . . . . . . 19 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ 2 ) ^ ( ( i - 1 ) / 2 ) ) = ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) )
134125, 131, 1333eqtr3rd 2432 . . . . . . . . . . . . . . . . . 18 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) = ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( i - 1 ) ) )
135134oveq1d 6211 . . . . . . . . . . . . . . . . 17 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) x. ( sqr ` ( ( A ^ 2 ) - 1 ) ) ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( i - 1 ) ) x. ( sqr ` ( ( A ^ 2 ) - 1 ) ) ) )
136116, 110mulcomd 9528 . . . . . . . . . . . . . . . . 17 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) = ( ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) x. ( sqr ` ( ( A ^ 2 ) - 1 ) ) ) )
13797adantl 464 . . . . . . . . . . . . . . . . . 18 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> i e. NN )
138 expm1t 12097 . . . . . . . . . . . . . . . . . 18 |- ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. CC /\ i e. NN ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( i - 1 ) ) x. ( sqr ` ( ( A ^ 2 ) - 1 ) ) ) )
139116, 137, 138syl2anc 659 . . . . . . . . . . . . . . . . 17 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( i - 1 ) ) x. ( sqr ` ( ( A ^ 2 ) - 1 ) ) ) )
140135, 136, 1393eqtr4d 2433 . . . . . . . . . . . . . . . 16 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) = ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) )
141140oveq2d 6212 . . . . . . . . . . . . . . 15 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Yrm N ) ^ i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) = ( ( ( A Yrm N ) ^ i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) ) )
142122, 141eqtrd 2423 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) = ( ( ( A Yrm N ) ^ i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) ) )
14343, 45, 48mulexpd 12227 . . . . . . . . . . . . . . 15 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) x. ( ( A Yrm N ) ^ i ) ) )
144143adantrr 714 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) x. ( ( A Yrm N ) ^ i ) ) )
145121, 142, 1443eqtr4d 2433 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) )
146145oveq2d 6212 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) = ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) )
147118, 146eqtrd 2423 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) = ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) )
148147oveq2d 6212 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( J _C i ) x. ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) = ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) )
149117, 148eqtrd 2423 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) = ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) )
15060, 149sylan2b 473 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. { x e. ( 0 ... J ) | -. 2 || x } ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) = ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) )
151150sumeq2dv 13527 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) )
152115, 151eqtr2d 2424 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) = ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) )
153152oveq2d 6212 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) ) = ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) )
15452, 153eqtrd 2423 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. ( 0 ... J ) ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) = ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) )
1553, 22, 1543eqtrd 2427 . . 3 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( A Xrm ( N x. J ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm ( N x. J ) ) ) ) = ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) )
156 rmspecsqrtnq 31007 . . . . 5 |- ( A e. ( ZZ>= ` 2 ) -> ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. ( CC \ QQ ) )
1571563ad2ant1 1015 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. ( CC \ QQ ) )
158 nn0ssq 11109 . . . . 5 |- NN0 C_ QQ
159 simp1 994 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> A e. ( ZZ>= ` 2 ) )
160 simp2 995 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> N e. ZZ )
16113ad2ant3 1017 . . . . . . 7 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> J e. ZZ )
162160, 161zmulcld 10890 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( N x. J ) e. ZZ )
1634fovcl 6306 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ ( N x. J ) e. ZZ ) -> ( A Xrm ( N x. J ) ) e. NN0 )
164159, 162, 163syl2anc 659 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Xrm ( N x. J ) ) e. NN0 )
165158, 164sseldi 3415 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Xrm ( N x. J ) ) e. QQ )
166 zssq 11108 . . . . 5 |- ZZ C_ QQ
16715fovcl 6306 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ ( N x. J ) e. ZZ ) -> ( A Yrm ( N x. J ) ) e. ZZ )
168159, 162, 167syl2anc 659 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Yrm ( N x. J ) ) e. ZZ )
169166, 168sseldi 3415 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Yrm ( N x. J ) ) e. QQ )
170 ssrab2 3499 . . . . . . . 8 |- { x e. ( 0 ... J ) | 2 || x } C_ ( 0 ... J )
171 ssfi 7656 . . . . . . . 8 |- ( ( ( 0 ... J ) e. Fin /\ { x e. ( 0 ... J ) | 2 || x } C_ ( 0 ... J ) ) -> { x e. ( 0 ... J ) | 2 || x } e. Fin )
17253, 170, 171mp2an 670 . . . . . . 7 |- { x e. ( 0 ... J ) | 2 || x } e. Fin
173172a1i 11 . . . . . 6 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> { x e. ( 0 ... J ) | 2 || x } e. Fin )
17458elrab 3182 . . . . . . 7 |- ( i e. { x e. ( 0 ... J ) | 2 || x } <-> ( i e. ( 0 ... J ) /\ 2 || i ) )
17533adantrr 714 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( J _C i ) e. ZZ )
176 zexpcl 12084 . . . . . . . . . . 11 |- ( ( ( A Xrm N ) e. ZZ /\ ( J - i ) e. NN0 ) -> ( ( A Xrm N ) ^ ( J - i ) ) e. ZZ )
17736, 39, 176syl2anc 659 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( ( A Xrm N ) ^ ( J - i ) ) e. ZZ )
178177adantrr 714 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( A Xrm N ) ^ ( J - i ) ) e. ZZ )
17943adantrr 714 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. CC )
18045adantrr 714 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( A Yrm N ) e. CC )
18147ad2antrl 725 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> i e. NN0 )
182179, 180, 181mulexpd 12227 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) x. ( ( A Yrm N ) ^ i ) ) )
18329zcnd 10885 . . . . . . . . . . . . . . . . . 18 |- ( i e. ( 0 ... J ) -> i e. CC )
184183adantl 464 . . . . . . . . . . . . . . . . 17 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> i e. CC )
185 2cnd 10525 . . . . . . . . . . . . . . . . 17 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> 2 e. CC )
18677a1i 11 . . . . . . . . . . . . . . . . 17 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> 2 =/= 0 )
187184, 185, 186divcan2d 10239 . . . . . . . . . . . . . . . 16 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> ( 2 x. ( i / 2 ) ) = i )
188187eqcomd 2390 . . . . . . . . . . . . . . 15 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. ( 0 ... J ) ) -> i = ( 2 x. ( i / 2 ) ) )
189188adantrr 714 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> i = ( 2 x. ( i / 2 ) ) )
190189oveq2d 6212 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) = ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( 2 x. ( i / 2 ) ) ) )
19175a1i 11 . . . . . . . . . . . . . . . . . . 19 |- ( i e. NN0 -> 2 e. ZZ )
19277a1i 11 . . . . . . . . . . . . . . . . . . 19 |- ( i e. NN0 -> 2 =/= 0 )
193 nn0z 10804 . . . . . . . . . . . . . . . . . . 19 |- ( i e. NN0 -> i e. ZZ )
194 dvdsval2 13991 . . . . . . . . . . . . . . . . . . 19 |- ( ( 2 e. ZZ /\ 2 =/= 0 /\ i e. ZZ ) -> ( 2 || i <-> ( i / 2 ) e. ZZ ) )
195191, 192, 193, 194syl3anc 1226 . . . . . . . . . . . . . . . . . 18 |- ( i e. NN0 -> ( 2 || i <-> ( i / 2 ) e. ZZ ) )
196195biimpa 482 . . . . . . . . . . . . . . . . 17 |- ( ( i e. NN0 /\ 2 || i ) -> ( i / 2 ) e. ZZ )
197 nn0re 10721 . . . . . . . . . . . . . . . . . . 19 |- ( i e. NN0 -> i e. RR )
198197adantr 463 . . . . . . . . . . . . . . . . . 18 |- ( ( i e. NN0 /\ 2 || i ) -> i e. RR )
199 nn0ge0 10738 . . . . . . . . . . . . . . . . . . 19 |- ( i e. NN0 -> 0 <_ i )
200199adantr 463 . . . . . . . . . . . . . . . . . 18 |- ( ( i e. NN0 /\ 2 || i ) -> 0 <_ i )
201101a1i 11 . . . . . . . . . . . . . . . . . 18 |- ( ( i e. NN0 /\ 2 || i ) -> 2 e. RR )
202103a1i 11 . . . . . . . . . . . . . . . . . 18 |- ( ( i e. NN0 /\ 2 || i ) -> 0 < 2 )
203 divge0 10328 . . . . . . . . . . . . . . . . . 18 |- ( ( ( i e. RR /\ 0 <_ i ) /\ ( 2 e. RR /\ 0 < 2 ) ) -> 0 <_ ( i / 2 ) )
204198, 200, 201, 202, 203syl22anc 1227 . . . . . . . . . . . . . . . . 17 |- ( ( i e. NN0 /\ 2 || i ) -> 0 <_ ( i / 2 ) )
205 elnn0z 10794 . . . . . . . . . . . . . . . . 17 |- ( ( i / 2 ) e. NN0 <-> ( ( i / 2 ) e. ZZ /\ 0 <_ ( i / 2 ) ) )
206196, 204, 205sylanbrc 662 . . . . . . . . . . . . . . . 16 |- ( ( i e. NN0 /\ 2 || i ) -> ( i / 2 ) e. NN0 )
20747, 206sylan 469 . . . . . . . . . . . . . . 15 |- ( ( i e. ( 0 ... J ) /\ 2 || i ) -> ( i / 2 ) e. NN0 )
208207adantl 464 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( i / 2 ) e. NN0 )
209123a1i 11 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> 2 e. NN0 )
210179, 208, 209expmuld 12215 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ ( 2 x. ( i / 2 ) ) ) = ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ 2 ) ^ ( i / 2 ) ) )
21142adantrr 714 . . . . . . . . . . . . . . 15 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( A ^ 2 ) - 1 ) e. CC )
212211sqsqrtd 13272 . . . . . . . . . . . . . 14 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ 2 ) = ( ( A ^ 2 ) - 1 ) )
213212oveq1d 6211 . . . . . . . . . . . . 13 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ 2 ) ^ ( i / 2 ) ) = ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) )
214190, 210, 2133eqtrd 2427 . . . . . . . . . . . 12 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) = ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) )
215214oveq1d 6211 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) ^ i ) x. ( ( A Yrm N ) ^ i ) ) = ( ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) x. ( ( A Yrm N ) ^ i ) ) )
216182, 215eqtrd 2423 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) = ( ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) x. ( ( A Yrm N ) ^ i ) ) )
217 zexpcl 12084 . . . . . . . . . . . 12 |- ( ( ( ( A ^ 2 ) - 1 ) e. ZZ /\ ( i / 2 ) e. NN0 ) -> ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) e. ZZ )
21812, 207, 217syl2an 475 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) e. ZZ )
21964adantrr 714 . . . . . . . . . . 11 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( A Yrm N ) ^ i ) e. ZZ )
220218, 219zmulcld 10890 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( ( A ^ 2 ) - 1 ) ^ ( i / 2 ) ) x. ( ( A Yrm N ) ^ i ) ) e. ZZ )
221216, 220eqeltrd 2470 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) e. ZZ )
222178, 221zmulcld 10890 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) e. ZZ )
223175, 222zmulcld 10890 . . . . . . 7 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ 2 || i ) ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) e. ZZ )
224174, 223sylan2b 473 . . . . . 6 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. { x e. ( 0 ... J ) | 2 || x } ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) e. ZZ )
225173, 224fsumzcl 13559 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) e. ZZ )
226166, 225sseldi 3415 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) e. QQ )
22733adantrr 714 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( J _C i ) e. ZZ )
228177adantrr 714 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( A Xrm N ) ^ ( J - i ) ) e. ZZ )
22964adantrr 714 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( A Yrm N ) ^ i ) e. ZZ )
230 zexpcl 12084 . . . . . . . . . . 11 |- ( ( ( ( A ^ 2 ) - 1 ) e. ZZ /\ ( ( i - 1 ) / 2 ) e. NN0 ) -> ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) e. ZZ )
23112, 108, 230syl2an 475 . . . . . . . . . 10 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) e. ZZ )
232229, 231zmulcld 10890 . . . . . . . . 9 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) e. ZZ )
233228, 232zmulcld 10890 . . . . . . . 8 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) e. ZZ )
234227, 233zmulcld 10890 . . . . . . 7 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ ( i e. ( 0 ... J ) /\ -. 2 || i ) ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. ZZ )
23560, 234sylan2b 473 . . . . . 6 |- ( ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) /\ i e. { x e. ( 0 ... J ) | -. 2 || x } ) -> ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. ZZ )
23657, 235fsumzcl 13559 . . . . 5 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. ZZ )
237166, 236sseldi 3415 . . . 4 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. QQ )
238 qirropth 31009 . . . 4 |- ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) e. ( CC \ QQ ) /\ ( ( A Xrm ( N x. J ) ) e. QQ /\ ( A Yrm ( N x. J ) ) e. QQ ) /\ ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) e. QQ /\ sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) e. QQ ) ) -> ( ( ( A Xrm ( N x. J ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm ( N x. J ) ) ) ) = ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) <-> ( ( A Xrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) /\ ( A Yrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) )
239157, 165, 169, 226, 237, 238syl122anc 1235 . . 3 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( ( A Xrm ( N x. J ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm ( N x. J ) ) ) ) = ( sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) + ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) <-> ( ( A Xrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) /\ ( A Yrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) ) )
240155, 239mpbid 210 . 2 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( ( A Xrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( sqr ` ( ( A ^ 2 ) - 1 ) ) x. ( A Yrm N ) ) ^ i ) ) ) /\ ( A Yrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) ) )
241240simprd 461 1 |- ( ( A e. ( ZZ>= ` 2 ) /\ N e. ZZ /\ J e. NN0 ) -> ( A Yrm ( N x. J ) ) = sum_ i e. { x e. ( 0 ... J ) | -. 2 || x } ( ( J _C i ) x. ( ( ( A Xrm N ) ^ ( J - i ) ) x. ( ( ( A Yrm N ) ^ i ) x. ( ( ( A ^ 2 ) - 1 ) ^ ( ( i - 1 ) / 2 ) ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   \/ wo 366   /\ wa 367   /\ w3a 971   = wceq 1399   e. wcel 1826   =/= wne 2577   {crab 2736   \ cdif 3386   u. cun 3387   i^i cin 3388   C_ wss 3389   (/)c0 3711   class class class wbr 4367   ` cfv 5496  (class class class)co 6196   Fincfn 7435   CCcc 9401   RRcr 9402   0cc0 9403   1c1 9404   + caddc 9406   x. cmul 9408   < clt 9539   <_ cle 9540   - cmin 9718   / cdiv 10123   NNcn 10452   2c2 10502   NN0cn0 10712   ZZcz 10781   ZZ>=cuz 11001   QQcq 11101   ...cfz 11593   ^cexp 12069   _C cbc 12282   sqrcsqrt 13068   sum_csu 13510   || cdvds 13988   Xrm crmx 31001   Yrm crmy 31002
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1626  ax-4 1639  ax-5 1712  ax-6 1755  ax-7 1798  ax-8 1828  ax-9 1830  ax-10 1845  ax-11 1850  ax-12 1862  ax-13 2006  ax-ext 2360  ax-rep 4478  ax-sep 4488  ax-nul 4496  ax-pow 4543  ax-pr 4601  ax-un 6491  ax-inf2 7972  ax-cnex 9459  ax-resscn 9460  ax-1cn 9461  ax-icn 9462  ax-addcl 9463  ax-addrcl 9464  ax-mulcl 9465  ax-mulrcl 9466  ax-mulcom 9467  ax-addass 9468  ax-mulass 9469  ax-distr 9470  ax-i2m1 9471  ax-1ne0 9472  ax-1rid 9473  ax-rnegex 9474  ax-rrecex 9475  ax-cnre 9476  ax-pre-lttri 9477  ax-pre-lttrn 9478  ax-pre-ltadd 9479  ax-pre-mulgt0 9480  ax-pre-sup 9481  ax-addf 9482  ax-mulf 9483
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-fal 1405  df-ex 1621  df-nf 1625  df-sb 1748  df-eu 2222  df-mo 2223  df-clab 2368  df-cleq 2374  df-clel 2377  df-nfc 2532  df-ne 2579  df-nel 2580  df-ral 2737  df-rex 2738  df-reu 2739  df-rmo 2740  df-rab 2741  df-v 3036  df-sbc 3253  df-csb 3349  df-dif 3392  df-un 3394  df-in 3396  df-ss 3403  df-pss 3405  df-nul 3712  df-if 3858  df-pw 3929  df-sn 3945  df-pr 3947  df-tp 3949  df-op 3951  df-uni 4164  df-int 4200  df-iun 4245  df-iin 4246  df-br 4368  df-opab 4426  df-mpt 4427  df-tr 4461  df-eprel 4705  df-id 4709  df-po 4714  df-so 4715  df-fr 4752  df-se 4753  df-we 4754  df-ord 4795  df-on 4796  df-lim 4797  df-suc 4798  df-xp 4919  df-rel 4920  df-cnv 4921  df-co 4922  df-dm 4923  df-rn 4924  df-res 4925  df-ima 4926  df-iota 5460  df-fun 5498  df-fn 5499  df-f 5500  df-f1 5501  df-fo 5502  df-f1o 5503  df-fv 5504  df-isom 5505  df-riota 6158  df-ov 6199  df-oprab 6200  df-mpt2 6201  df-of 6439  df-om 6600  df-1st 6699  df-2nd 6700  df-supp 6818  df-recs 6960  df-rdg 6994  df-1o 7048  df-2o 7049  df-oadd 7052  df-omul 7053  df-er 7229  df-map 7340  df-pm 7341  df-ixp 7389  df-en 7436  df-dom 7437  df-sdom 7438  df-fin 7439  df-fsupp 7745  df-fi 7786  df-sup 7816  df-oi 7850  df-card 8233  df-acn 8236  df-cda 8461  df-pnf 9541  df-mnf 9542  df-xr 9543  df-ltxr 9544  df-le 9545  df-sub 9720  df-neg 9721  df-div 10124  df-nn 10453  df-2 10511  df-3 10512  df-4 10513  df-5 10514  df-6 10515  df-7 10516  df-8 10517  df-9 10518  df-10 10519  df-n0 10713  df-z 10782  df-dec 10896  df-uz 11002  df-q 11102  df-rp 11140  df-xneg 11239  df-xadd 11240  df-xmul 11241  df-ioo 11454  df-ioc 11455  df-ico 11456  df-icc 11457  df-fz 11594  df-fzo 11718  df-fl 11828  df-mod 11897  df-seq 12011  df-exp 12070  df-fac 12256  df-bc 12283  df-hash 12308  df-shft 12902  df-cj 12934  df-re 12935  df-im 12936  df-sqrt 13070  df-abs 13071  df-limsup 13296  df-clim 13313  df-rlim 13314  df-sum 13511  df-ef 13805  df-sin 13807  df-cos 13808  df-pi 13810  df-dvds 13989  df-gcd 14147  df-numer 14270  df-denom 14271  df-struct 14636  df-ndx 14637  df-slot 14638  df-base 14639  df-sets 14640  df-ress 14641  df-plusg 14715  df-mulr 14716  df-starv 14717  df-sca 14718  df-vsca 14719  df-ip 14720  df-tset 14721  df-ple 14722  df-ds 14724  df-unif 14725  df-hom 14726  df-cco 14727  df-rest 14830  df-topn 14831  df-0g 14849  df-gsum 14850  df-topgen 14851  df-pt 14852  df-prds 14855  df-xrs 14909  df-qtop 14914  df-imas 14915  df-xps 14917  df-mre 14993  df-mrc 14994  df-acs 14996  df-mgm 15989  df-sgrp 16028  df-mnd 16038  df-submnd 16084  df-mulg 16177  df-cntz 16472  df-cmn 16917  df-psmet 18524  df-xmet 18525  df-met 18526  df-bl 18527  df-mopn 18528  df-fbas 18529  df-fg 18530  df-cnfld 18534  df-top 19484  df-bases 19486  df-topon 19487  df-topsp 19488  df-cld 19605  df-ntr 19606  df-cls 19607  df-nei 19685  df-lp 19723  df-perf 19724  df-cn 19814  df-cnp 19815  df-haus 19902  df-tx 20148  df-hmeo 20341  df-fil 20432  df-fm 20524  df-flim 20525  df-flf 20526  df-xms 20908  df-ms 20909  df-tms 20910  df-cncf 21467  df-limc 22355  df-dv 22356  df-log 23029  df-squarenn 30942  df-pell1qr 30943  df-pell14qr 30944  df-pell1234qr 30945  df-pellfund 30946  df-rmx 31003  df-rmy 31004
This theorem is referenced by:  jm2.23  31104
  Copyright terms: Public domain W3C validator