theorem
  Exec(Divide(a,a), s).IC SCM+FSA = IC s + 1 & Exec(Divide(a,a), s).a =
  s.a mod s.a & (for c st c <> a holds Exec(Divide(a,a), s).c = s.c) & for f
  holds Exec(Divide(a,a), s).f = s.f
proof
  consider A,B such that
A1: a = A and
A2: a = B & Divide(a,a) = Divide(A,B) by Def10;
  reconsider S = s|SCM-Memory as State of SCM by Th42;
A3: Exec(Divide(a,a), s)=s +* Exec(Divide(A,A), S) by A1,A2,Th44;
  hence Exec(Divide(a,a), s).IC SCM+FSA = Exec(Divide(A,A), S).IC SCM by Th46
    .= IC S + 1 by AMI_3:6
    .= IC s + 1 by Th55;
  thus Exec(Divide(a,a), s).a = Exec(Divide(A,A), S).A by A1,A3,Th47
    .= S.A mod S.A by AMI_3:6
    .= S.A mod s.a by A1,Th48
    .= s.a mod s.a by A1,Th48;
  hereby
    let c such that
A4: c <> a;
    reconsider C = c as Data-Location by Th5;
    thus Exec(Divide(a,a), s).c = Exec(Divide(A,A), S).C by A3,Th47
      .= S.C by A1,A4,AMI_3:6
      .= s.c by Th48;
  end;
  let f;
A5: not f in dom Exec(Divide(A,A), S) by Th37;
  thus Exec(Divide(a,a), s).f
    = s.f by A3,A5,FUNCT_4:11;
end;
