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

theorem
  for n being non zero Nat holds
  Product (EmptyBag SetPrimes +* Euler_factorization_2 n) divides (n-1)!
  by Th45,Th44;
