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 RndNat_support_length : forall n, length (getSupport (RndNat n)) = n.