theorem Th6:
  n >= len p implies p/^n={}
proof
  assume n>=len p;
  then len p-'n=0 by NAT_2:8;
  then len (p/^n)=0 by Def2;
  hence thesis;
end;
