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