let T be non empty right_complementable Abelian add-associative right_zeroed RLSStruct ; :: thesis: for X, Y being Subset of T
for p being Point of T holds X (-) (Y + p) = (X (-) Y) + (- p)
let X, Y be Subset of T; :: thesis: for p being Point of T holds X (-) (Y + p) = (X (-) Y) + (- p)
let p be Point of T; :: thesis: X (-) (Y + p) = (X (-) Y) + (- p)
thus X (-) (Y + p) c= (X (-) Y) + (- p) :: according to XBOOLE_0:def 10 :: thesis: (X (-) Y) + (- p) c= X (-) (Y + p)

proof

let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in X (-) (Y + p) or x in (X (-) Y) + (- p) )
assume x in X (-) (Y + p) ; :: thesis: x in (X (-) Y) + (- p)
then consider y being Point of T such that
A1: x = y and
A2: (Y + p) + y c= X ;
Y + (y + p) c= X by A2, Th16;
then y + p in { y1 where y1 is Point of T : Y + y1 c= X } ;
then (y + p) - p in (X (-) Y) + (- p) ;
hence x in (X (-) Y) + (- p) by A1, E52; :: thesis: verum

end;

let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in (X (-) Y) + (- p) or x in X (-) (Y + p) )
assume x in (X (-) Y) + (- p) ; :: thesis: x in X (-) (Y + p)
then consider y being Point of T such that
A3: x = y + (- p) and
A4: y in X (-) Y ;
reconsider x = x as Point of T by A3;
x + p = (y - p) + p by A3;
then A5: x + p = y by E52;
ex y2 being Point of T st
( y = y2 & Y + y2 c= X ) by A4;
then (Y + p) + x c= X by A5, Th16;
hence x in X (-) (Y + p) ; :: thesis: verum