theorem Th29:
  [<*[i,1_(G.i)]*>,{}] in ReductionRel(G)
proof
  set p = <*>FreeAtoms(G);
  [p^<*[i,1_(G.i)]*>^p, p^p] = [<*[i,1_(G.i)]*>^p, p^p] by FINSEQ_1:34
    .= [<*[i,1_(G.i)]*>, p^p] by FINSEQ_1:34
    .= [<*[i,1_(G.i)]*>, {}];
  hence thesis by Th28;
end;
