let X be Tolerance_Space; :: thesis: for a, b being Element of (RSLattice X) holds (a "/\" b) "\/" b = b
let a, b be Element of (RSLattice X); :: thesis: (a "/\" b) "\/" b = b
set G = RSLattice X;
reconsider a1 = a, b1 = b as Element of RoughSets X by Def8;
reconsider a9 = a1, b9 = b1 as RoughSet of X by DefRSX;
thus (a "/\" b) "\/" b = the L_join of (RSLattice X) . (the L_meet of (RSLattice X) . a1,b1),b1
.= b by Lm8 ; :: thesis: verum