
theorem
for R being right_unital non empty doubleLoopStr,
    a being Element of R
holds a is irreducible iff <*a*> is_a_factorization_of a by fact1;
