blob: 8419ba439aec148f6a10a0cbf3076dcce1b19fbf (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
(** [constants] *)
module Constants
open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [constants::incr] *)
let incr_fwd (n : u32) : u32 =
begin match u32_add n 1 with | Fail -> Fail | Return i -> Return i end
|
