theorem
  for R being associative well-unital non empty multLoopStr
  for Amp being AmpleSet of R
  for x,y being Element of Amp holds x is_associated_to y
  implies x = y by Th22;
