Library zoo_std.random__code

From zoo Require Import
  prelude.
From zoo.language Require Import
  typeclasses
  notations.
From zoo_std Require Import
  random__types.
From zoo Require Import
  options.

Parameter random ٠ init : val.

Parameter random ٠ bits : val.

Parameter random ٠ int : val.

Definition random ٠ int_in_range : val :=
  fun : "lb" "ub" ⇒
    "lb" + random ٠ int ("ub" - "lb").