metamath/valid/algebra-2rootsintpoly-am10tap11eqasqpam110.mm (19 lines of code) (raw):
${
algebra-2rootsintpoly-am10tap11eqasqpam110.0 $e |- ( ph -> A e. CC ) $.
$( (Contributed by Stanislas Polu, 8-Oct-2020.) $)
algebra-2rootsintpoly-am10tap11eqasqpam110 $p |- ( ph -> ( ( A - ; 1 0 ) x. (
A + ; 1 1 ) ) = ( ( ( A ^ 2 ) + A ) - ; ; 1 1 0 ) ) $=
( c1 cc0 cdc cmin co caddc cmul cc wcel a1i 1nn0 oveq12d eqcomd wceq oveq2d
0nn0 eqtrd c2 cexp 1nn decnncl2 nncni decnncl addcld subdird adddid mulcomd
sqvald deccl ax-frege54c dec0h mulid2i mul02i addid1i decm1mma sqcld mulcld
nn0cni subsub4d addsubassd mulid1 syl ax-1cn decsuc subaddrii eqcomi subdid
0p1e1 eqtr4d oveq1d ) ABDEFZGHBDDFZIHZJHBVPJHZVNVPJHZGHZBUAUBHZBIHZVOEFZGHZ
ABVNVPCVNKLAVNDUCUDUEZMZABVOCVOKLAVODDNUCUFUEZMZUGUHAVSBBJHZBVOJHZIHZVNBJHZ
VNVOJHZIHZGHZWCAVQWJVRWMGABBVOCCWGUIAVNBVOWECWGUIOAWNVTVOBJHZIHZWKWBIHZGHZW
CAWJWPWMWQGAWHVTWIWOIAVTWHABCUKPABVOCWGUJZOAWLWBWKIWLWBQAVNVOVOEDEVOEEDDNNU
LZSNSSVNUMZESUNVOWFUOVOWFUPVOWFUQURMROAWRWPWKGHZWBGHZWCAXCWRAWPWKWBAVTWOABC
USZAVOBWGCUTZUGAVNBWECUTZWBKLAWBVOEWTSULVAMVBPAXBWAWBGAXBVTWOWKGHZIHWAAVTWO
WKXDXEXFVCABXGVTIABWIBVNJHZGHZXGABBVOVNGHZJHZXIABBDJHZXKAXLBABKLXLBQCBVDVEP
ADXJBJDXJQAXJDVOVNDWFWDVFDEDVNNSVKXAVGVHVIMRTABVOVNCWGWEVJTAWIWOXHWKGWSABVN
CWEUJOTRVLVMTTTT $.
$}