reserve x,N for set,
        k for Nat;
reserve N for with_zero set;
reserve S for IC-Ins-separated non empty with_non-empty_values
     Mem-Struct over N;

theorem Th6:
  for S being Mem-Struct over N, p being PartState
  of S holds p is data-only iff dom p c= Data-Locations S
by RELAT_1:def 18,XBOOLE_1:86,XBOOLE_1:106;
