theorem Th40:
  card Macro i = 2
proof
  thus card Macro i = card Load i + card Stop S by AFINSQ_1:17
    .= card (Load i) +1 by AFINSQ_1:34
    .= 1+1 by Th38
    .=2;
end;
