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