theorem
  (A /\ B) |^ n c= (A |^ n) /\ (B |^ n)
proof
  (A /\ B) |^ n c= A |^ n & (A /\ B) |^ n c= B |^ n by Th37,XBOOLE_1:17;
  hence thesis by XBOOLE_1:19;
end;
