Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition putchar_spec := DECLARE _putchar putchar_spec.Definition getchar_spec := DECLARE _getchar getchar_spec.Definition chars_of_Z z := chars_of_nat (Z.to_nat z).Definition ext_link := ext_link_prog prog.Instance IO_Espec : OracleKind := Build_OracleKind _ (IO_ext_spec ext_link).

(* Specifications: *)
Lemma divu_repr : forall x y, 0 <= x <= Int.max_unsigned -> 0 <= y <= Int.max_unsigned -> Int.divu (Int.repr x) (Int.repr y) = Int.repr (x / y).
Lemma body_print_intr: semax_body Vprog Gprog f_print_intr print_intr_spec.
Lemma chars_of_nat_intr : forall n, (0 < n)%nat -> chars_of_nat n = intr n.
Lemma body_print_int: semax_body Vprog Gprog f_print_int print_int_spec.
Lemma body_main: semax_body Vprog Gprog f_main main_spec.