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 Th12:
 (Initialize((intloc 0).-->1)).intloc 0 = 1
proof
  not intloc 0 in dom Start-At(0,SCM+FSA) by SCMFSA_2:102;
 hence (Initialize((intloc 0).-->1)).intloc 0
         = ((intloc 0).-->1).intloc 0 by FUNCT_4:11
        .= 1 by FUNCOP_1:72;
end;
