reserve M,N for AbGroup;
 reserve R for Ring;
 reserve r for Element of R;
reserve M,N for LeftMod of R;
reserve f,g,h for Element of Funcs(the carrier of M, the carrier of N);
reserve a,b for Element of the carrier of R;
reserve R for comRing;
reserve M,M1,N,N1 for LeftMod of R;

theorem
  for R be Ring, M be LeftMod of R, a be Element of R, m be Element of M
  holds ((curry (the lmult of M)).a ).m = a*m by LOPBAN_8:7;
