reserve S for with_non_trivial_Instructions COM-Struct;
reserve i,j,k for No-StopCode Instruction of S,
        I,J,K for MacroInstruction of S;

theorem
 card(i ';' J) = card J + 1
  proof
   thus card(i ';' J) = card Macro i + card J - 1 by COMPOS_1:20
      .= 2 + card J - 1 by COMPOS_1:56
      .= card J + 1;
  end;
