theorem ProductPCompl:
  L1 is pseudocomplemented 01_Lattice & L2 is pseudocomplemented 01_Lattice
  implies [p1,p2]* = [p1*,p2*]
  proof
    assume
A1: L1 is pseudocomplemented 01_Lattice &
    L2 is pseudocomplemented 01_Lattice;
A3: p1* is_a_pseudocomplement_of p1 by def3,A1;
    p2* is_a_pseudocomplement_of p2 by def3,A1; then
    [p1*,p2*] is_a_pseudocomplement_of [p1,p2] by A3,ProductPsCompl,A1;
    hence thesis by def3,A1;
  end;
