let T be non empty right_complementable Abelian add-associative right_zeroed RLSStruct ; :: thesis: for X, Y, B being Subset of T holds (X (-) B) \/ (Y (-) B) c= (X \/ Y) (-) B
let X, Y, B be Subset of T; :: thesis: (X (-) B) \/ (Y (-) B) c= (X \/ Y) (-) B
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in (X (-) B) \/ (Y (-) B) or x in (X \/ Y) (-) B )
assume x in (X (-) B) \/ (Y (-) B) ; :: thesis: x in (X \/ Y) (-) B
then ( x in X (-) B or x in Y (-) B ) by XBOOLE_0:def 3;
then consider y being Point of T such that
A1: ( ( x = y & B + y c= X ) or ( x = y & B + y c= Y ) ) ;
B + y c= X \/ Y by A1, XBOOLE_0:def 3;
hence x in (X \/ Y) (-) B by A1; :: thesis: verum