theorem Th48:
  <*[i,g]*> in [*i,g*]
proof
  [i,g] in FreeAtoms(H) by Th9;
  then <*[i,g]*> is FinSequence of FreeAtoms(H) by FINSEQ_1:74;
  then <*[i,g]*> in FreeAtoms(H)* by FINSEQ_1:def 11;
  then <*[i,g]*> in the carrier of FreeAtoms(H)*+^+<0> by MONOID_0:61;
  hence thesis by EQREL_1:20;
end;
