Metamath Proof Explorer


Theorem rmxp1

Description: Special addition-of-1 formula for X sequence. Part 1 of equation 2.9 of JonesMatijasevic p. 695. (Contributed by Stefan O'Rear, 19-Oct-2014)

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

Proof

Step Hyp Ref Expression
1 1z โŠข 1 โˆˆ โ„ค
2 rmxadd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค โˆง 1 โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ( ๐‘ + 1 ) ) = ( ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Xrm 1 ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) ) ) )
3 1 2 mp3an3 โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ( ๐‘ + 1 ) ) = ( ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Xrm 1 ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) ) ) )
4 rmx1 โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ด Xrm 1 ) = ๐ด )
5 4 adantr โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm 1 ) = ๐ด )
6 5 oveq2d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Xrm 1 ) ) = ( ( ๐ด Xrm ๐‘ ) ยท ๐ด ) )
7 rmy1 โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ด Yrm 1 ) = 1 )
8 7 oveq2d โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) = ( ( ๐ด Yrm ๐‘ ) ยท 1 ) )
9 8 adantr โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) = ( ( ๐ด Yrm ๐‘ ) ยท 1 ) )
10 frmy โŠข Yrm : ( ( โ„คโ‰ฅ โ€˜ 2 ) ร— โ„ค ) โŸถ โ„ค
11 10 fovcl โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘ ) โˆˆ โ„ค )
12 11 zcnd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Yrm ๐‘ ) โˆˆ โ„‚ )
13 12 mulridd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Yrm ๐‘ ) ยท 1 ) = ( ๐ด Yrm ๐‘ ) )
14 9 13 eqtrd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) = ( ๐ด Yrm ๐‘ ) )
15 14 oveq2d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) ) = ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐ด Yrm ๐‘ ) ) )
16 6 15 oveq12d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด Xrm ๐‘ ) ยท ( ๐ด Xrm 1 ) ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ( ๐ด Yrm ๐‘ ) ยท ( ๐ด Yrm 1 ) ) ) ) = ( ( ( ๐ด Xrm ๐‘ ) ยท ๐ด ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐ด Yrm ๐‘ ) ) ) )
17 3 16 eqtrd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด Xrm ( ๐‘ + 1 ) ) = ( ( ( ๐ด Xrm ๐‘ ) ยท ๐ด ) + ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐ด Yrm ๐‘ ) ) ) )