metamath/valid/algebra-3rootspoly-amdtamctambeqnasqmbpctapcbtdpasqmbpctapcbta.mm (25 lines of code) (raw):
${
algebra-3rootspoly-amdtamctambeqnasqmbpctapcbtdpasqmbpctapcbta.0 $e |- ( ph
-> B e. CC ) $.
algebra-3rootspoly-amdtamctambeqnasqmbpctapcbtdpasqmbpctapcbta.1 $e |- ( ph
-> C e. CC ) $.
algebra-3rootspoly-amdtamctambeqnasqmbpctapcbtdpasqmbpctapcbta.2 $e |- ( ph
-> D e. CC ) $.
algebra-3rootspoly-amdtamctambeqnasqmbpctapcbtdpasqmbpctapcbta.3 $e |- ( ph
-> A e. CC ) $.
$( (Contributed by Stanislas Polu, 8-Oct-2020.) $)
algebra-3rootspoly-amdtamctambeqnasqmbpctapcbtdpasqmbpctapcbta $p |- ( ph ->
( ( ( A - D ) x. ( A - C ) ) x. ( A - B ) ) = ( -u ( ( ( ( A ^ 2 ) - ( ( B + C
) x. A ) ) + ( C x. B ) ) x. D ) + ( ( ( ( A ^ 2 ) - ( ( B + C ) x. A ) ) + ( C
x. B ) ) x. A ) ) ) $=
( cmin co cmul caddc subcld mulcld mulcomd eqtrd subdird subdid oveq12d c2 cexp
cneg mulassd subsub4d sqvald eqcomd addcld adddid eqtr2d oveq1d eqtr4d subsubd
sqcld negsubd negcld addcomd ) ABEJKZBDJKZLKBCJKZLKZBUAUBKZCDMKZBLK
ZJKZDCLKZMKZBLKZVGELKZJKZVIUCZVHMKZAVAVGURLKZVJAVAUSUTLKZURLKZVMAVAURVNLKVO
AURUSUTABEIHNZABDIGNZABCIFNZUDAURVNVPAUSUTVQVROPQAVGVNURLAVNBUTLKZDUTLKZJKZ
VGABDUTIGVRRAWABBLKZBCLKZJKZBDLKZCDLKZJKZJKZVGAVSWDVTWGJABBCIIFSAVTUTDLKWGA
DUTGVRPABCDIFGRQTAWHWDWEJKZWFMKVGAWDWEWFAWBWCABBIIOZABCIFOZNABDIGOZACDFGOUM
AWIVEWFVFMAWIWBWCWEMKZJKVEAWBWCWEWJWKWLUEAWBVBWMVDJAVBWBABIUFUGAVDBVCLKWMAV
CBACDFGUHZIPABCDIFGUIUJTQACDFGPTQQUJUKULAVGBEAVEVFAVBVDABIUNAVCBWNIONADCGFO
UHZIHSQAVJVHVKMKZVLAWPVJAVHVIAVGBWOIOZAVGEWOHOZUOUGAVHVKWQAVIWRUPUQQQ $.
$}