reserve a,b,s,t,u,lambda for Real,
  n for Nat;
reserve x,x1,x2,x3,y1,y2 for Element of REAL n;

theorem Th2: :: EUCLID:32
  a*(0*n) = 0*n
proof
  |.a*(0*n).| = |.a.|*|.0*n.| by EUCLID:11
    .= |.a.|*0 by EUCLID:7
    .= 0;
  hence thesis by EUCLID:8;
end;
