theorem
  f in dom s
proof
  dom s = SCM+FSA-Memory by PARTFUN1:def 2;
  hence thesis;
end;
