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