fact: Definition build_nlit vm l := let l := Lit.neg l in match build_form vm (get_form (Lit.blit l)) with | Some (vm,f) => let f := if Lit.is_pos l then f else NOT f in Some (vm,f) | None => None end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz