theorem Th41:
   (emb(f,p)).n = Class(EqRel(Polynom-Ring F,{p}-Ideal),(f.n)|F)
   proof
      thus (emb(f,p)).n = (emb p).(f.n) by Def2
      .= Class(EqRel(Polynom-Ring F,{p}-Ideal),(f.n)|F) by Th40;
   end;
