
theorem
  for L being add-associative right_zeroed right_complementable
  well-unital distributive non empty doubleLoopStr holds 1_Formal-Series L =
  1_.L by Def2;
