Section Logic.

Lemma existSys :
forall (T : System) (f g : Formula) (v : nat),
~ In_freeVarSys LNT v T ->
~ In v (freeVarFormula LNT g) ->
SysPrf (Ensembles.Add _ T f) g -> SysPrf (Ensembles.Add _ T (existH v f)) g.