metamath/valid/algebra-2rootspoly-apatapbeq2asqp2ab.mm (12 lines of code) (raw):

${ algebra-2rootspoly-apatapbeq2asqp2ab.0 $e |- ( ph -> A e. CC ) $. algebra-2rootspoly-apatapbeq2asqp2ab.1 $e |- ( ph -> B e. CC ) $. $( (Contributed by Stanislas Polu, 8-Oct-2020.) $) algebra-2rootspoly-apatapbeq2asqp2ab $p |- ( ph -> ( ( A + A ) x. ( A + B ) ) = ( ( 2 x. ( A ^ 2 ) ) + ( 2 x. ( A x. B ) ) ) ) $= ( c2 cexp cmul caddc adddid sqvald eqcomd eqidd oveq12d eqtrd oveq2d addcld co mulcld eqtr3d 2timesd adddird 2cnd sqcld ) AFBFGRZBCHRZIRZHRZBBIRBCIRZHR ZFUEHRFUFHRIRAFBUIHRZHRZUHUJAUKUGFHAUKBBHRZUFIRUGABBCDDEJAUMUEUFUFIAUEUMABD KLAUFMNOPAULUKUKIRZUJAUKABUIDABCDEQZSUAAUJUNABBUIDDUOUBLOTAFUEUFAUCABDUDABC DESJT $. $}