theorem Th13:
  card(A*^B) = card A *` card B
proof
  thus card (A*^B) = card [:A,B:] by Th10
    .= card A *` card B by Th6;
end;
