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 eq_sat f1 f2 :
(forall e, holds e f1 <-> holds e f2) -> sat^~ f1 =1 sat^~ f2.