reserve X for set;
reserve a,b,c,k,m,n for Nat;
reserve i,j for Integer;
reserve r for Real;
reserve p,p1,p2 for Prime;

theorem Th46:
  13|^2 + 1 = 2*5*17
  proof
    13|^2 = 13*13 by WSIERP_1:1;
    hence thesis;
  end;
