#[local] Infix " \in " := E.In.
#[local] Infix " \subseteq " := E.isSubsetOf.
#[local] Notation In := List.In.
#[local] Hint Resolve E.insert_monotonic : core.

Lemma ContradictionI_preserves (Gamma : ensemble formula) (A : formula)
(ENTAILS1 : Gamma ⊨ A)
(ENTAILS2 : Gamma ⊨ NegationF A)
: Gamma ⊨ ContradictionF.