theorem Th1:
  for s be State of SCM+FSA,f be FinSeq-Location,a,b be Int-Location
  holds Exec(b:=(f,a), s).b = (s.f)/.|.s.a.|
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(b:=(f,a), s)
  .b = (s.f)/.k) by SCMFSA_2:72;
  hence thesis;
end;
