module Ce_int32bv

  use mach.bv.BVCheck32

  type bv32 = BVCheck32.t

  type t = { mutable c : bv32 }

  let dummy_update (r : t)
    requires { r.c = (0x22:bv32) }
    ensures { r.c = (0x42:bv32) } =
    r.c <- (0x42:bv32);
    r.c <- add r.c r.c

 let dummy_update_with_int (r : t)
    requires { t'int r.c = 0x22 }
    ensures { t'int r.c = 0x42 } =
    r.c <- (0x42:bv32);
    r.c <- add r.c r.c

end
