fact: Definition check_bbConst lres := if Lit.is_pos lres then match get_form (Lit.blit lres) with | FbbT a bs => match get_atom a with | Acop (CO_BV bv N) => if check_bbc bv bs && (N.of_nat (length bv) =? N)%N then lres::nil else C._true | _ => C._true end | _ => C._true end else C._true.
imports: Int63 PArray SMT_classes ZArith Misc State SMT_terms BVList Psatz Bool List BoolEq NZParity Nnat BinPos BinNat Pnat Init.Peano ProofIrrelevance