fact: Record slClass (form:choiceType) := SLClass { supp' : {fset form * bool} -> form -> bool -> bool; supp_mon C D s : C `<=` D -> supp' C s.1 s.2 -> supp' D s.1 s.2; lit' : form * bool -> bool; supp_lit C s b : lit' (s,b) -> supp' C s b = ((s,b) \in C); f_weight' : form -> nat; sweight_lit s : f_weight' s.1 = 0 <-> lit' s }.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert)