theorem Th48:
  for a,b being Element of K holds
    ((the multF of K)[;](a,id the carrier of K)).b = a*b
proof
  let a,b be Element of K;
  thus ((the multF of K)[;](a,id (the carrier of K))).b = (the multF of K).(a,
  (id (the carrier of K)).b) by FUNCOP_1:53
    .= a*b;
end;
