theorem Th55:
 for S being COM-Struct, I being initial preProgram of S
  holds card stop I -' 1 = card I
proof  let S be COM-Struct, I be initial preProgram of S;
 thus card stop I -' 1 = card stop I - 1 by PRE_CIRC:20
    .= card I + card Stop S - 1 by AFINSQ_1:17
    .= card I + 1 - 1 by AFINSQ_1:34
    .= card I;
end;
