theorem Th38:
  card(n*m) = card n *` card m
proof
  thus card(n*m) = card( n *^ m) by Th36
    .= card n *` card m by Th13;
end;
