Metamath Proof Explorer


Theorem pell14qrdivcl

Description: Positive Pell solutions are closed under division. (Contributed by Stefan O'Rear, 18-Sep-2014)

Ref Expression
Assertion pell14qrdivcl ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( ๐ด / ๐ต ) โˆˆ ( Pell14QR โ€˜ ๐ท ) )

Proof

Step Hyp Ref Expression
1 pell14qrre โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ด โˆˆ โ„ )
2 1 recnd โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ด โˆˆ โ„‚ )
3 2 3adant3 โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ด โˆˆ โ„‚ )
4 pell14qrre โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ต โˆˆ โ„ )
5 4 recnd โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ต โˆˆ โ„‚ )
6 5 3adant2 โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ต โˆˆ โ„‚ )
7 pell14qrne0 โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ต โ‰  0 )
8 7 3adant2 โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ๐ต โ‰  0 )
9 3 6 8 divrecd โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( ๐ด / ๐ต ) = ( ๐ด ยท ( 1 / ๐ต ) ) )
10 pell14qrreccl โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( 1 / ๐ต ) โˆˆ ( Pell14QR โ€˜ ๐ท ) )
11 10 3adant2 โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( 1 / ๐ต ) โˆˆ ( Pell14QR โ€˜ ๐ท ) )
12 pell14qrmulcl โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ( 1 / ๐ต ) โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( ๐ด ยท ( 1 / ๐ต ) ) โˆˆ ( Pell14QR โ€˜ ๐ท ) )
13 11 12 syld3an3 โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( ๐ด ยท ( 1 / ๐ต ) ) โˆˆ ( Pell14QR โ€˜ ๐ท ) )
14 9 13 eqeltrd โŠข ( ( ๐ท โˆˆ ( โ„• โˆ– โ—ปNN ) โˆง ๐ด โˆˆ ( Pell14QR โ€˜ ๐ท ) โˆง ๐ต โˆˆ ( Pell14QR โ€˜ ๐ท ) ) โ†’ ( ๐ด / ๐ต ) โˆˆ ( Pell14QR โ€˜ ๐ท ) )