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 Th11:
  dom Initialize ((intloc 0) .--> 1) = {intloc 0,IC SCM+FSA}
proof
  thus dom( Initialize((intloc 0) .--> 1) )
  =dom ((intloc 0) .--> 1) \/ dom SA0 by FUNCT_4:def 1
    .=dom ((intloc 0) .--> 1) \/ {IC SCM+FSA}
    .={intloc 0} \/ {IC SCM+FSA}
    .={intloc 0,IC SCM+FSA} by ENUMSET1:1;
end;
