fact: Definition check_BuildProj l i := let x := Lit.blit l in match get_hash x with | For args => if i <? PArray.length args then Lit.lit x::Lit.neg (args.[i])::nil else C._true | Fand args => if i <? PArray.length args then Lit.nlit x::(args.[i])::nil else C._true | Fimp args => let len := PArray.length args in if i <? len then if i =? len - 1 then Lit.lit x::Lit.neg (args.[i])::nil else Lit.lit x::(args.[i])::nil else C._true | _ => C._true end.
imports: PArray List Bool ZArith Psatz Misc State SMT_terms BVList