theorem
  StepTimes(a,J,p,s).0.intloc 0 = 1
proof
  set I = J;
  set ST = StepTimes(a,I,p,s);
  set Is = Initialized s;
  thus ST.0.intloc 0 = Is.intloc 0 by SCMFSA_9:def 5
    .= 1 by SCMFSA_M:9;
end;
