theorem Th62:
  Exec(goto l, s).IC SCM+FSA = l & (for c holds Exec(goto l, s).c
  = s.c) & for f holds Exec(goto l, s).f = s.f
proof
  consider La such that
A1: l = La and
A2: goto l = SCM-goto La;
  reconsider S = s|SCM-Memory as State of SCM by Th42;
A3: Exec(goto l, s)=s +* Exec(SCM-goto La, S) by A2,Th44;
  hence Exec(goto l, s).IC SCM+FSA = Exec(SCM-goto La, S).IC SCM by Th46
    .= l by A1,AMI_3:7;
  hereby
    let c;
    reconsider C = c as Data-Location by Th5;
    thus Exec(goto l, s).c = Exec(SCM-goto La, S).C by A3,Th47
      .= S.C by AMI_3:7
      .= s.c by Th48;
  end;
  let f;
A4: not f in dom Exec(SCM-goto La, S) by Th37;
  thus Exec(goto l, s).f
    = s.f by A3,A4,FUNCT_4:11;
end;
