theorem
  for s being SCM+FSA-State, u being Nat, mk being Element of
  SCM+FSA-Data-Loc holds SCM+FSA-Chg(s,u).mk = s.mk
proof
  let s be SCM+FSA-State, u be Nat, mk be Element of
  SCM+FSA-Data-Loc;
  (SCM*-VAL*SCM+FSA-OK).mk = INT & {NAT} = dom(NAT .--> u) by Th5;
  then not mk in dom(NAT .--> u) by Th4,NUMBERS:7,TARSKI:def 1;
  hence thesis by FUNCT_4:11;
end;
