theorem
  RealFunc_Lattice(A) is D_Lattice
proof
  p"/\"(q"\/"r) = (p"/\"q)"\/"(p"/\"r) by Th20;
  hence thesis by LATTICES:def 11;
end;
