theorem Th25:
  L is 0_Lattice & Bottom L in D implies <.D.) = <.L.) & <.D.) =
  the carrier of L
proof
  assume that
A1: L is 0_Lattice and
A2: Bottom L in D;
A3: <.Bottom L.) = <.L.) by A1,Th17;
  hence <.D.) c= <.L.) & <.L.) c= <.D.) by A2,Th23;
  thus <.D.) c= the carrier of L & the carrier of L c= <.D.) by A2,A3,Th23;
end;
