 reserve L for Lattice;
 reserve I,P for non empty ClosedSubset of L;
reserve L for lower-bounded pseudocomplemented Lattice;
reserve L for Stone Lattice;
 reserve L1, L2 for Lattice;
 reserve p1, q1 for Element of L1;
 reserve p2, q2 for Element of L2;
 reserve L1, L2 for non empty Lattice;
reserve B for Boolean Lattice;

theorem SquaredTop:
  Top (B squared-latt) = [Top B, Top B]
  proof
    [Top B, Top B] in B squared; then
    Top [:B,B:] in B squared by FILTER_1:43; then
    Top latt ([:B,B:], B squared) = Top [:B,B:]  by ThC;
    hence thesis by FILTER_1:43;
  end;
