for BL being non trivial B_Lattice holds StoneR BL c= bool (ultraset BL) ;