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

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