theorem
  for G being finite addGroup holds index (0).G = card G
proof
  let G be finite addGroup;
  thus card G = card (0).G * index (0).G by Th147
    .= 1 * index (0).G by Th69
    .= index (0).G;
end;
