reserve x,y,a,b,c,p,q for Real;
reserve m,n for Element of NAT;

theorem
  for a,b,x being Real st a>0 & a<>1 & x>0 & log(a,x) = 1 holds x = a
proof
  let a,b,x be Real;
  assume a>0 & a<>1 & x>0 & log(a,x) = 1;
  then a to_power 1 = x by POWER:def 3;
  hence thesis;
end;
