reserve a,b,c,v,v1,x,y for object;
reserve V,A for set;
reserve d for TypeSCNominativeData of V,A;
reserve p,q,r for SCPartialNominativePredicate of V,A;
reserve n for Nat;
reserve X for Function;
reserve f,g,h for SCBinominativeFunction of V,A;

theorem Th26:
  a in V & d in dom f implies NDentry(<*f*>,<*a*>,d) = naming(V,A,a,f.d)
  proof
    set g = <*f*>;
    set X = <*a*>;
    assume
A1: a in V;
    assume d in dom f;
    then
A2: f.d is TypeSCNominativeData of V,A by NOMIN_1:39,PARTFUN1:4;
    rng NDdataSeq(g,X,d) = a.-->f.d by Th25;
    hence thesis by A1,A2,NOMIN_1:def 13;
  end;
