 reserve a for non empty set;
 reserve b, x, o for object;
reserve R for right_zeroed add-associative right_complementable Abelian
  well-unital distributive associative non trivial non trivial doubleLoopStr;
reserve R for non degenerated comRing;

theorem
    for R be non degenerated Ring holds
    ex PR be non degenerated Ring, X be set, h be Function,
    G be Function of Polynom-Ring(Polynom-Ring(0,R)),PR
    st Polynom-Ring(0,R) is Subring of PR & G is RingIsomorphism &
    id Polynom-Ring(0,R) = G*(canHom Polynom-Ring(0,R)) &
    X /\ [#]Polynom-Ring(0,R) = {} & h is one-to-one &
    dom h =
    [#]Polynom-Ring(Polynom-Ring(0,R)) \ rng (canHom (Polynom-Ring(0,R))) &
     rng h = X &
    [#]PR = X \/ [#]Polynom-Ring(0,R) by Th25;
