 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 right-invertible iff for a,b ex r st a*r = b
proof
  thus G is right-invertible implies for a,b ex r st a*r = b
  proof
    assume
A1: for a,b ex r st op(G).(a,r) = b;
    let a,b;
    consider r such that
A2: op(G).(a,r) = b by A1;
    take r;
    thus thesis by A2;
  end;
  assume
A3: for a,b ex r st a*r = b;
  let a,b;
  consider r such that
A4: a*r = b by A3;
  take r;
  thus thesis by A4;
end;
