theorem :: RLVECT_1:57

for V being non empty right_complementable add-associative right_zeroed addLoopStr
for v being Element of V holds
( Sum <*(0. V),v*> = v & Sum <*v,(0. V)*> = v )