(* Create a sub bitstring corresponding to what we want to check. *)
let subbits =
let bits, bitoffset, bitlen = bits in
(bits, bitoffset+offset, bitlen-offset) in
(* Create a sub bitstring corresponding to what we want to check. *)
let subbits =
let bits, bitoffset, bitlen = bits in
(bits, bitoffset+offset, bitlen-offset) in