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