fact: Definition lcons (L : clause) := (fF^+ \notin L) && [all s in L, flip s \notin L].
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)