
theorem Th5:
  for z be G_INTEG, i be Integer holds Sc_Mult.(i,z) = i*z
  proof
    let z be G_INTEG, i be Integer;
    set scmult = Sc_Mult;
    A1: i in INT & z in G_INT_SET by INT_1:def 2;
    the carrier of INT.Ring = INT by INT_3:def 3;
    hence Sc_Mult.(i,z) = multcomplex.(i,z) by A1,FUNCT_1:49,ZFMISC_1:87
    .= i*z by BINOP_2:def 5;
  end;
