let x be ExtReal; :: thesis: x * 0 = 0
per cases ( x in REAL or x = +infty or x = -infty ) by XXREAL_0:14;
end;