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