reserve I for non empty set;
reserve M for ManySortedSet of I;
reserve Y,x,y,i for set;
reserve r,r1,r2 for Real;

theorem
  ex L be complete Lattice, L9 be SubLattice of L st L9 is /\-inheriting
  non \/-inheriting
proof
  reconsider L = RealSubLatt(In(0,REAL),In(1,REAL)) as complete Lattice
      by Th20;
  take L;
  thus thesis by Th23;
end;
