theorem Th21:
  (K*`M)*`N = K*`(M*`N)
proof
  thus (K*`M)*`N = card [:[:K,M:],N:] by Th6
    .= card [:K,[:M,N:]:] by Th5
    .= K*`(M*`N) by Th6;
end;
