reserve l, m, n for Nat;
reserve a,b for Int-Location,
  f for FinSeq-Location,
  s,s1,s2 for State of SCM+FSA;
reserve L for finite Subset of Int-Locations;
reserve L for finite Subset of FinSeq-Locations;

theorem
  for s being State of SCM+FSA st s.intloc 0 = 1
  holds Initialize s = Initialized s
proof
  let s be State of SCM+FSA;
A1: intloc 0 in dom s by SCMFSA_2:42;
  assume s.intloc 0 = 1;
  then
A2: s = s +* ((intloc 0) .--> 1) by A1,FUNCT_7:96;
  thus Initialized s = Initialize s by A2,FUNCT_4:14;
end;
