theorem
  [Top B, Top B] in the carrier of (B squared-latt)
  proof
    [Top B, Top B] in B squared;
    hence thesis by SquaredCarrier;
  end;
