
theorem :: 4.16
  for L being join-commutative join-associative Huntington non empty
  ComplLLattStr, a being Element of L holds a *' Top L = a
proof
  let L be join-commutative join-associative Huntington non empty
  ComplLLattStr, a be Element of L;
  a *' Top L = (a` + Bot L)` by Th9
    .= a`` by Th13
    .= a by Th3;
  hence thesis;
end;
