 reserve n,i,k,m for Nat;
 reserve p for Prime;

theorem
  for n being non zero Nat holds
    Seg SquarefreePart n c= Seg n
  proof
    let n be non zero Nat;
    n = (SquarefreePart n) * ((SqF n) ^2) by Canonical; then
    SquarefreePart n divides n; then
    SquarefreePart n <= n by NAT_D:7;
    hence thesis by FINSEQ_1:5;
  end;
