theorem Th2:
  for s be State of SCM+FSA,f be FinSeq-Location,a,b be Int-Location
  holds Exec((f,a):=b, s).f = s.f+*(|.s.a.|,s.b)
proof
  let s be State of SCM+FSA,f be FinSeq-Location,a,b be Int-Location;
  ex k be Nat st ( k = |.s.a.|)&( Exec((f,a):=b, s)
  .f = s.f+*(k,s.b)) by SCMFSA_2:73;
  hence thesis;
end;
