
theorem
  for R being right_complementable Abelian add-associative right_zeroed
  associative well-unital distributive non empty doubleLoopStr
  for x,y being Element of center R
  for a,b being Element of R
  st x = a & y = b
  holds a + b = x + y & a * b = x * y by Lm2;
