theorem Th38:
  for s being State of SCM+FSA holds Int-Locations c= dom s
proof
  let s be State of SCM+FSA;
  dom s = the carrier of SCM+FSA by PARTFUN1:def 2;
  hence thesis;
end;
