fact: Definition interp_bv (v:bval) (s:N) : BITVECTOR_LIST.bitvector s := let (t,v) := v in match Typ.cast t (Typ.TBV s) with | Typ.Cast k => k _ v | _ => BITVECTOR_LIST.zeros s end.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList