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