Section FieldMorphismInj.
Variables (R : ringType) (f : {rmorphism F -> R}).
End ModuleTheory.
Definition sol n f :=
if sol_subproof n f is ReflectT sP then xchoose sP else nseq n 0.

Lemma solP n f : reflect (exists2 s, size s = n & holds s f) (sat (sol n f) f).