Metamath Proof Explorer


Theorem rmxyadd

Description: Addition formula for X and Y sequences. See rmxadd and rmyadd for most uses. (Contributed by Stefan O'Rear, 22-Sep-2014)

Ref Expression
Assertion rmxyadd ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆง ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) )

Proof

Step Hyp Ref Expression
1 simp1 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) )
2 zaddcl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„ค )
3 2 3adant1 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ + ๐‘ ) โˆˆ โ„ค )
4 rmxyval โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ๐‘€ + ๐‘ ) โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) ) ) = ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ( ๐‘€ + ๐‘ ) ) )
5 1 3 4 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) ) ) = ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ( ๐‘€ + ๐‘ ) ) )
6 eluzelz โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐ด โˆˆ โ„ค )
7 6 3ad2ant1 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐ด โˆˆ โ„ค )
8 7 zcnd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐ด โˆˆ โ„‚ )
9 zq โŠข ( ๐ด โˆˆ โ„ค โ†’ ๐ด โˆˆ โ„š )
10 qsqcl โŠข ( ๐ด โˆˆ โ„š โ†’ ( ๐ด โ†‘ 2 ) โˆˆ โ„š )
11 7 9 10 3syl โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด โ†‘ 2 ) โˆˆ โ„š )
12 zssq โŠข โ„ค โŠ† โ„š
13 1z โŠข 1 โˆˆ โ„ค
14 12 13 sselii โŠข 1 โˆˆ โ„š
15 14 a1i โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ 1 โˆˆ โ„š )
16 qsubcl โŠข ( ( ( ๐ด โ†‘ 2 ) โˆˆ โ„š โˆง 1 โˆˆ โ„š ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ โ„š )
17 11 15 16 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ โ„š )
18 qcn โŠข ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ โ„š โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ โ„‚ )
19 17 18 syl โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ โ„‚ )
20 19 sqrtcld โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โˆˆ โ„‚ )
21 8 20 addcld โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โˆˆ โ„‚ )
22 rmbaserp โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โˆˆ โ„+ )
23 22 rpne0d โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ‰  0 )
24 23 3ad2ant1 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ‰  0 )
25 simp2 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘€ โˆˆ โ„ค )
26 simp3 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘ โˆˆ โ„ค )
27 expaddz โŠข ( ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โˆˆ โ„‚ โˆง ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ‰  0 ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘€ ) ยท ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) ) )
28 21 24 25 26 27 syl22anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘€ ) ยท ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) ) )
29 frmx โŠข Xrm : ( ( โ„คโ‰ฅ โ€˜ 2 ) ร— โ„ค ) โŸถ โ„•0
30 29 a1i โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ Xrm : ( ( โ„คโ‰ฅ โ€˜ 2 ) ร— โ„ค ) โŸถ โ„•0 )
31 30 1 25 fovcdmd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ๐‘€ ) โˆˆ โ„•0 )
32 31 nn0cnd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ๐‘€ ) โˆˆ โ„‚ )
33 frmy โŠข Yrm : ( ( โ„คโ‰ฅ โ€˜ 2 ) ร— โ„ค ) โŸถ โ„ค
34 33 a1i โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ Yrm : ( ( โ„คโ‰ฅ โ€˜ 2 ) ร— โ„ค ) โŸถ โ„ค )
35 34 1 25 fovcdmd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘€ ) โˆˆ โ„ค )
36 35 zcnd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘€ ) โˆˆ โ„‚ )
37 20 36 mulcld โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) โˆˆ โ„‚ )
38 30 1 26 fovcdmd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ๐‘ ) โˆˆ โ„•0 )
39 38 nn0cnd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ๐‘ ) โˆˆ โ„‚ )
40 34 1 26 fovcdmd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘ ) โˆˆ โ„ค )
41 40 zcnd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘ ) โˆˆ โ„‚ )
42 20 41 mulcld โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„‚ )
43 32 37 39 42 muladdd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ยท ( ( ๐ด Xrm ๐‘ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) = ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) + ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) ) )
44 rmxyval โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘€ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘€ ) )
45 1 25 44 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘€ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘€ ) )
46 rmxyval โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) = ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) )
47 1 26 46 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) = ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) )
48 45 47 oveq12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ยท ( ( ๐ด Xrm ๐‘ ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) = ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘€ ) ยท ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) ) )
49 43 48 eqtr3d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) + ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) ) = ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘€ ) ยท ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) ) )
50 20 41 20 36 mul4d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) ยท ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) )
51 19 msqsqrtd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) = ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) )
52 41 36 mulcomd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) = ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) )
53 51 52 oveq12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) ยท ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
54 50 53 eqtrd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
55 54 oveq2d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) = ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) )
56 32 20 41 mul12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘€ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) = ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
57 39 20 36 mul12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) )
58 56 57 oveq12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) = ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) )
59 32 41 mulcld โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„‚ )
60 39 36 mulcld โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) โˆˆ โ„‚ )
61 20 59 60 adddid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) = ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) )
62 59 60 addcomd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
63 39 36 mulcomd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) = ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) )
64 63 oveq1d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) = ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
65 62 64 eqtrd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) = ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
66 65 oveq2d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) = ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) )
67 58 61 66 3eqtr2d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) = ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) )
68 55 67 oveq12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) + ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘ ) ) ) + ( ( ๐ด Xrm ๐‘ ) ยท ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ๐‘€ ) ) ) ) ) = ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) )
69 28 49 68 3eqtr2d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ( ๐‘€ + ๐‘ ) ) = ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) )
70 5 69 eqtrd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) ) ) = ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) )
71 rmspecsqrtnq โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โˆˆ ( โ„‚ โˆ– โ„š ) )
72 71 3ad2ant1 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โˆˆ ( โ„‚ โˆ– โ„š ) )
73 nn0ssq โŠข โ„•0 โŠ† โ„š
74 30 1 3 fovcdmd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) โˆˆ โ„•0 )
75 73 74 sselid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) โˆˆ โ„š )
76 34 1 3 fovcdmd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) โˆˆ โ„ค )
77 12 76 sselid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) โˆˆ โ„š )
78 73 31 sselid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ๐‘€ ) โˆˆ โ„š )
79 73 38 sselid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ๐‘ ) โˆˆ โ„š )
80 qmulcl โŠข ( ( ( ๐ด Xrm ๐‘€ ) โˆˆ โ„š โˆง ( ๐ด Xrm ๐‘ ) โˆˆ โ„š ) โ†’ ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) โˆˆ โ„š )
81 78 79 80 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) โˆˆ โ„š )
82 12 35 sselid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘€ ) โˆˆ โ„š )
83 12 40 sselid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘ ) โˆˆ โ„š )
84 qmulcl โŠข ( ( ( ๐ด Yrm ๐‘€ ) โˆˆ โ„š โˆง ( ๐ด Yrm ๐‘ ) โˆˆ โ„š ) โ†’ ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„š )
85 82 83 84 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„š )
86 qmulcl โŠข ( ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ โ„š โˆง ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„š ) โ†’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) โˆˆ โ„š )
87 17 85 86 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) โˆˆ โ„š )
88 qaddcl โŠข ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) โˆˆ โ„š โˆง ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) โˆˆ โ„š ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆˆ โ„š )
89 81 87 88 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆˆ โ„š )
90 qmulcl โŠข ( ( ( ๐ด Yrm ๐‘€ ) โˆˆ โ„š โˆง ( ๐ด Xrm ๐‘ ) โˆˆ โ„š ) โ†’ ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) โˆˆ โ„š )
91 82 79 90 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) โˆˆ โ„š )
92 qmulcl โŠข ( ( ( ๐ด Xrm ๐‘€ ) โˆˆ โ„š โˆง ( ๐ด Yrm ๐‘ ) โˆˆ โ„š ) โ†’ ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„š )
93 78 83 92 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„š )
94 qaddcl โŠข ( ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) โˆˆ โ„š โˆง ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) โˆˆ โ„š ) โ†’ ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) โˆˆ โ„š )
95 91 93 94 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) โˆˆ โ„š )
96 qirropth โŠข ( ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โˆˆ ( โ„‚ โˆ– โ„š ) โˆง ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) โˆˆ โ„š โˆง ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) โˆˆ โ„š ) โˆง ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆˆ โ„š โˆง ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) โˆˆ โ„š ) ) โ†’ ( ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) ) ) = ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) โ†” ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆง ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) )
97 72 75 77 89 95 96 syl122anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) ) ) = ( ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) โ†” ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆง ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) ) )
98 70 97 mpbid โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) โˆง ( ๐ด Yrm ( ๐‘€ + ๐‘ ) ) = ( ( ( ๐ด Yrm ๐‘€ ) ยท ( ๐ด Xrm ๐‘ ) ) + ( ( ๐ด Xrm ๐‘€ ) ยท ( ๐ด Yrm ๐‘ ) ) ) ) )