 reserve m,n for Nat;
 reserve i,j for Integer;
 reserve S for non empty multMagma;
 reserve r,r1,r2,s,s1,s2,t for Element of S;
 reserve G for Group-like non empty multMagma;
 reserve e,h for Element of G;
 reserve G for Group;
 reserve f,g,h for Element of G;
 reserve u for UnOp of G;
 reserve A for commutative Group;
 reserve a,b for Element of A;

theorem
  for L be unital non empty multMagma
  for x be Element of L holds (power L).(x,2) = x*x
proof
  let L be unital non empty multMagma;
  let x be Element of L;
  1+1 = 2;
  hence (power L).(x,2) = (power L).(x,1) * x by Def7
    .= x * x by Th49;
end;
