metamath/valid/numbertheory-xsqpysqintdenomeq.mm (46 lines of code) (raw):
${
numbertheory-xsqpysqintdenomeq.0 $e |- ( ph -> X e. QQ ) $.
numbertheory-xsqpysqintdenomeq.1 $e |- ( ph -> Y e. QQ ) $.
numbertheory-xsqpysqintdenomeq.2 $e |- ( ph -> ( ( X ^ 2 ) + ( Y ^ 2 ) ) = N
) $.
numbertheory-xsqpysqintdenomeq.3 $e |- ( ph -> N e. ZZ ) $.
$( (Contributed by Stanislas Polu, 12-Feb-2021.) $)
numbertheory-xsqpysqintdenomeq $p |- ( ph -> ( denom ` X ) = ( denom ` Y ) )
$=
( wceq c2 cexp co c1 cz wcel syl eqcomd eqtrd cmul zcnd cdenom cfv cdvds wa wbr
cnumer cgcd cq cn qdencl nnzd qnumcl zgcdsq syl2anc gcdcom qnumdencoprm oveq1d
sq1 syl6eq cmin zsqcl zmulcld zsubcld 3jca caddc mulcomd cdiv mulcld w3a nnne0d
2z expne0d divdird div23d divcan4d oveq12d divcld divassd sqdivd a1i dividd
sqcld mulid1d qeqnumdivden addcld divmuld bicomd mpbird subadd2d subdird
dvds0lem adantr anim1i coprmdvdsb syl3anc mpdan dvdssq mpbid mul32d wb addcomd
jca cn0 wi nnnn0d dvdseq ex mpd ) ACUAUBZDUAUBZUCUEZXJXIUCUEZUDZ
XIXJIZAXKXLAXIJKLZXJJKLZUCUEZXKAXOCUFUBZJKLZUGLZMIZXQAXTXIXRUGLZJKLZMAXINOZ
XRNOZXTYCIAXIACUHOZXIUIOECUJPZUKZAYFYEECULPZYDYEUDYCXTXIXRUMQUNAYCMJKLZMAYB
MJKAYBXRXIUGLZMAYDYEYBYKIYHYIXIXRUOUNAYFYKMIECUPPRUQURUSRAYAUDZXQXOXSXPSLZU
CUEZAYNYAABXPSLZDUFUBZJKLZUTLZNOZXONOZYMNOZVIYRXOSLZYMIYNAYSYTUUAAYOYQABXPH
AXJNOZXPNOZAXJADUHOZXJUIOFDUJZPZUKZXJVAPZVBZAYPNOZYQNOZAUUEUUKFDULZPZYPVAPZ
VCAYDYTYHXIVAPZAXSXPAYEXSNOZYIXRVAPZUUIVBVDAYMUUBAYMYOXOSLZYQXOSLZUTLZUUBAU
VAYMAUVAYMIYMUUTVELZUUSIAUUSUVBAUUSXOYOSLZUVBAYOXOAYOUUJTZAXOUUPTZVFAUVCUVB
IZUVBXOVGLZYOIZAUVGYMXOVGLZUUTXOVGLZVELZYOAYMUUTXOAXSXPAXSUURTZAXPUUITZVHZA
YQXOAYQUUOTZUVEVHZUVEAXIJAXIYHTZAXIYGVJZJNOAVKVTZVLZVMAUVKXSXOVGLZXPSLZYQVE
LZYOAUVIUWBUVJYQVEAXSXPXOUVLUVMUVEUVTVNAYQXOUVOUVEUVTVOVPAYOUWCAYOXPBSLZUWC
ABXPABHTZUVMVFAUWDUWCIZUWCXPVGLZBIZAUWGCJKLZDJKLZVELZBAUWGUWBXPVGLZYQXPVGLZ
VELUWKAUWBYQXPAUWAXPAXSXOUVLUVEUVTVQZUVMVHZUVOUVMAXJJAXJUUHTZAXJUUGVJZUVSVL
ZVMAUWLUWIUWMUWJVEAUWLUWAXPXPVGLZSLZUWIAUWAXPXPUWNUVMUVMUWRVRAUWTXRXIVGLZJK
LZMSLZUWIAUWAUXBUWSMSAUXBUWAAXRXIAXRYITZUVQUVRVSQAXPUVMUWRWAVPAUXCUXBUWIAUX
BAUXAAXRXIUXDUVQUVRVQWBWCAUXACJKACUXAAYFCUXAIECWDPQUQRRRAUWMYPXJVGLZJKLZUWJ
AUXFUWMAYPXJAYPUUNTUWPUWQVSQAUXEDJKADUXEAUUEDUXEIFDWDPQUQRVPRGRAUWHUWFAUWCX
PBAUWBYQUWOUVOWEUVMUWEUWRWFWGWHRQRRAUVHUVFAUVBXOYOAYMUUTUVNUVPWEUVEUVDUVTWF
WGWHRQZAUUSUUTYMAYOXOUVDUVEVHUVPUVNWIWHQAUUBUVAAYOYQXOUVDUVOUVEWJQRQYRXOYMW
KUNWLYLYTUUDUUQYAUDXQYNWTAYTYAUUPWLAUUDYAUUIWLAUUQYAUURWMXOXSXPWNWOWHWPAXKX
QAYDUUCXKXQWTYHUUHXIXJWQUNWGWRAXPXOUCUEZXLAXPYQUGLZMIZUXHAUXIXJYPUGLZJKLZMA
UXLUXIAUUCUUKUXLUXIIUUHUUNXJYPUMUNQAUXLYJMAUXKMJKAUUEUXKMIFUUEUXKYPXJUGLZMU
UEUUCUUKUXKUXMIUUEXJUUFUKUUMXJYPUOUNDUPRPUQURUSRAUXJUDZUXHXPUUTUCUEZAUXOUXJ
ABXOSLZXSUTLZNOZUUDUUTNOZVIUXQXPSLZUUTIUXOAUXRUUDUXSAUXPXSABXOHUUPVBUURVCUU
IAYQXOUUOUUPVBVDAUUTUXTAUUTUXPXPSLZYMUTLZUXTAUYBUUTAUYBUUTIUUTYMVELZUYAIAUY
CUVBUYAAUUTYMUVPUVNXAAUVBUUSUYAUXGABXPXOUWEUVMUVEWSRRAUYAYMUUTAUXPXPABXOUWE
UVEVHZUVMVHUVNUVPWIWHQAUXTUYBAUXPXSXPUYDUVLUVMWJQRQUXQXPUUTWKUNWLUXNUUDYTUU
LUXJUDUXHUXOWTAUUDUXJUUIWLAYTUXJUUPWLAUULUXJUUOWMXPYQXOWNWOWHWPAXLUXHAUUCYD
XLUXHWTUUHYHXJXIWQUNWGWRXBAXIXCOZXJXCOZXMXNXDAXIYGXEAXJUUGXEUYEUYFUDXMXNXIX
JXFXGUNXH $.
$}