theorem
  [p1,p2] "\/" [q1,q2] = [p1"\/"q1,p2"\/"q2] & [p1,p2] "/\" [q1,q2] = [
  p1"/\"q1,p2"/\"q2] by Th21;
