reserve a,b,c,v,v1,x,y for object;
reserve V,A for set;
reserve d for TypeSCNominativeData of V,A;

theorem Th5:
  v in V implies {[v,d]} is NonatomicND of V,A
  proof
    assume v in V;
    then naming(V,A,v,d) = v.-->d by NOMIN_1:def 13
    .= {[v,d]} by ZFMISC_1:29;
    hence thesis;
  end;
