metamath/valid/algebra-2complexrootspoly-xsqp49eqxp7itxpn7i.mm (20 lines of code) (raw):

${ algebra-2complexrootspoly-xsqp49eqxp7itxpn7i.0 $e |- ( ph -> X e. CC ) $. $( (Contributed by Stanislas Polu, 8-Oct-2020.) $) algebra-2complexrootspoly-xsqp49eqxp7itxpn7i $p |- ( ph -> ( ( X ^ 2 ) + ; 4 9 ) = ( ( X + ( 7 x. _i ) ) x. ( X + ( -u 7 x. _i ) ) ) ) $= ( co c4 caddc c7 cneg ci cmul cc0 eqcomd 7cn a1i ax-icn mulcld oveq2d eqtrd oveq12d eqtri c2 cexp c9 cdc sqcld addid1d sqvald cc mulneg1d negidd eqtr2d wcel negcld addcomd addassd eqtr4d oveq1d wceq negcli mul4i mulneg2i 7t7e49 mulcomd negeqi oveq1i c1 ixi oveq2i 4nn0 9nn0 deccl nn0cni ax-1cn mul2negib mulid1i eqcomi addcld adddid adddird ) ABUAUBDZEUCUDZFDZBBGHZIJDZFDZJDZGIJD ZWEJDZFDZBWGFDWEJDZAWBBBJDZBWDJDZFDZWGBJDZWGWDJDZFDZFDZWIAWBWMWNFDZWOFDWQAV TWRWAWOFAVTWKWGHZBJDZFDZWNFDZWRAVTVTKFDZXBAXCVTAVTABCUEUFLAXCWKWTWNFDZFDZXB AVTWKKXDFABCUGAKWNWTFDZXDAXFWNWNHZFDKAWTXGWNFAWGBAGIGUHULAMNZIUHULAONZPZCUI QAWNAWGBXJCPZUJUKAWNWTXKAWSBAWGXJUMZCPZUNRSAXBXEAWKWTWNABBCCPZXMXKUOLRRAXAW MWNFAWTWLWKFAWTBWSJDWLAWSBXLCVCAWDWSBJAGIXHXIUIQUPQUQRWAWOURAWOWAWOGWCJDZII JDZJDZWAGIWCIMOGMUSOUTXQWAHZXPJDZWAXOXRXPJXOGGJDZHXRGGMMVAXTWAVBVDTVEXSXRVF HZJDWAXPYAXRJVGVHWAVFWAWAEUCVIVJVKVLZVMYBWAYBVOVNTTTVPNSAWMWNWOAWKWLXNABWDC AWCIAGXHUMXIPZPVQXKAWGWDXJYCPUORAWMWFWPWHFAWFWMABBWDCCYCVRLAWHWPAWGBWDXJCYC VRLSRAWJWIABWGWECXJABWDCYCVQVSLR $. $}