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

theorem
  Elements(N) <> {} implies (x is Element of Elements(N) implies x is
Element of the carrier of N or x is Element of the carrier' of N) by
