reserve x,y for set;
reserve N for PT_net_Str;

theorem
  for N being Pnet for x being Element of Elements N holds Elements N <>
  {} implies enter(N,x) c= Elements N by Th16;
