let simplClause dnf clause = match clause with | [] | [TTrue] | [TNot TFalse]-> [[]] | [TFalse] | [TNot TTrue] -> dnf | _ -> clause :: dnf