theorem Th28:
  i => i = Top I
proof
  now
    let j;
    i "/\" j [= i by LATTICES:6;
    then j [= i => i by Def7;
    hence j"\/"(i => i) = i => i;
  end;
  hence thesis by RLSUB_2:65;
end;
