
theorem
  for R being right_complementable Abelian add-associative right_zeroed
  associative well-unital distributive non empty doubleLoopStr
  for x being Element of center R
  holds x is Element of R by Lm1;
