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 Th21;
end;
