reserve a,a1,a2,v,v1,v2,x for object;
reserve V,A for set;
reserve m,n for Nat;
reserve S,S1,S2 for FinSequence;
reserve D,D1,D2 for NonatomicND of V,A;

theorem
  for f being V-valued FinSequence st len f > 0
  holds naming(V,A,f,a) is NonatomicND of V,A
  proof
    let f be V-valued FinSequence such that
A1: len f > 0;
A2: len(namingSeq(V,A,f,a)) = len f by A1,Def14;
    then 0+1 <= len(namingSeq(V,A,f,a)) by A1,NAT_1:13;
    hence thesis by A2,Th58;
  end;
