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

theorem Th13:
  exp_R.0 = 1 by SIN_COS:51,def 23;
