Section completeness.
Variable (M' : fo_model Σ' X)
(φ : nat -> X).
Let M : fo_model Σ X.
Hypothesis (Xfin : finite_t X)
(M'dec : fo_model_dec M')
(A : fol_form Σ)
(HA : fol_sem M' φ (Σrem_props 0 A)).
Local Lemma Σrem_props_completeness : fo_form_fin_dec_SAT_in A X.
End completeness.

Theorem Σrem_props_correct A :
fo_form_fin_dec_SAT_in A X
<-> fo_form_fin_dec_SAT_in (Σrem_props 0 A) X.