Definition ltNatBool := fun x1 x2 => if (lt_dec x1 x2) then true else false.(* RndNat uses Repeat to get a number strictly less than n *)
Definition RndNat(n : nat) :=
    (Repeat (RndNat_unchecked n) (fun x => (ltNatBool x n))).Notation "[ 0 '..' n )" := (RndNat n)
  (right associativity, at level 77) : comp_scope.

Lemma in_getSupport_RndNat : forall x k, x < k -> In x (getSupport (RndNat k)).