theorem Th15:
  JumpPart (a=0_goto i1) = <*i1*>
proof
  thus JumpPart (a=0_goto i1) = [ 7,<*i1*>,<*a*>]`2_3 by Th7
    .= <*i1*>;
end;
