reserve p,q,r,th,th1 for Real;
reserve n for Nat;

theorem
  cosh.p >= 1
proof
  (exp_R.p + exp_R.-p)/2 >= 2/2 by Lm24,XREAL_1:72;
  hence thesis by Def3;
end;
