theorem
  L is B_Lattice & p [= q implies latt (L,[#p,q#]) is B_Lattice
proof
  assume L is B_Lattice & p [= q;
  then latt (L,[#p,q#]) is bounded complemented distributive Lattice by Th77
,Th84;
  hence thesis;
end;
