
theorem
  for K be left_unital non empty doubleLoopStr for V,W be non empty
  ModuleStr over K for f be Form of V,W holds (1.K)*f = f
proof
  let K be left_unital non empty doubleLoopStr, V,W be non empty ModuleStr
  over K, f be Form of V,W;
  now
    let v be Vector of V, w be Vector of W;
    thus ((1.K)*f).(v,w) = (1.K) * f.(v,w) by Def3
      .= f.(v,w);
  end;
  hence thesis;
end;
