 reserve x,y,X,Y for set;
reserve G for non empty multMagma,
  D for set,
  a,b,c,r,l for Element of G;

theorem
  G is left-invertible iff for a,b ex l st l*a = b
proof
  thus G is left-invertible implies for a,b ex l st l*a = b
  proof
    assume
A1: for a,b ex l st op(G).(l,a) = b;
    let a,b;
    consider l such that
A2: op(G).(l,a) = b by A1;
    take l;
    thus thesis by A2;
  end;
  assume
A3: for a,b ex l st l*a = b;
  let a,b;
  consider l such that
A4: l*a = b by A3;
  take l;
  thus thesis by A4;
end;
