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).

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).