Metamath Proof Explorer


Theorem rmxyelqirr

Description: The solutions used to construct the X and Y sequences are quadratic irrationals. (Contributed by Stefan O'Rear, 21-Sep-2014) (Proof shortened by SN, 23-Dec-2024)

Ref Expression
Assertion rmxyelqirr ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) โˆˆ { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) } )

Proof

Step Hyp Ref Expression
1 rmspecnonsq โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ ( โ„• โˆ– โ—ปNN ) )
2 1 adantr โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ ( โ„• โˆ– โ—ปNN ) )
3 pell14qrval โŠข ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ ( โ„• โˆ– โ—ปNN ) โ†’ ( Pell14QR โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) = { ๐‘Ž โˆˆ โ„ โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) } )
4 2 3 syl โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( Pell14QR โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) = { ๐‘Ž โˆˆ โ„ โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) } )
5 rabssab โŠข { ๐‘Ž โˆˆ โ„ โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) } โŠ† { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) }
6 simpl โŠข ( ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) โ†’ ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) )
7 6 reximi โŠข ( โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) โ†’ โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) )
8 7 reximi โŠข ( โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) โ†’ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) )
9 8 ss2abi โŠข { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) } โŠ† { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) }
10 5 9 sstri โŠข { ๐‘Ž โˆˆ โ„ โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ( ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) โˆง ( ( ๐‘ โ†‘ 2 ) โˆ’ ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ยท ( ๐‘‘ โ†‘ 2 ) ) ) = 1 ) } โŠ† { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) }
11 4 10 eqsstrdi โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( Pell14QR โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โŠ† { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) } )
12 simpr โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘ โˆˆ โ„ค )
13 rmspecfund โŠข ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) = ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) )
14 13 adantr โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) = ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) )
15 14 eqcomd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) = ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) )
16 15 oveq1d โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘ ) )
17 oveq2 โŠข ( ๐‘Ž = ๐‘ โ†’ ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘Ž ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘ ) )
18 17 rspceeqv โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘ ) ) โ†’ โˆƒ ๐‘Ž โˆˆ โ„ค ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘Ž ) )
19 12 16 18 syl2anc โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ โˆƒ ๐‘Ž โˆˆ โ„ค ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘Ž ) )
20 pellfund14b โŠข ( ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) โˆˆ ( โ„• โˆ– โ—ปNN ) โ†’ ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) โˆˆ ( Pell14QR โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†” โˆƒ ๐‘Ž โˆˆ โ„ค ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘Ž ) ) )
21 2 20 syl โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) โˆˆ ( Pell14QR โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†” โˆƒ ๐‘Ž โˆˆ โ„ค ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) = ( ( PellFund โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) โ†‘ ๐‘Ž ) ) )
22 19 21 mpbird โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) โˆˆ ( Pell14QR โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) )
23 11 22 sseldd โŠข ( ( ๐ด โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐ด + ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ) โ†‘ ๐‘ ) โˆˆ { ๐‘Ž โˆฃ โˆƒ ๐‘ โˆˆ โ„•0 โˆƒ ๐‘‘ โˆˆ โ„ค ๐‘Ž = ( ๐‘ + ( ( โˆš โ€˜ ( ( ๐ด โ†‘ 2 ) โˆ’ 1 ) ) ยท ๐‘‘ ) ) } )