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;
