intuition.
unfold RndNat_unchecked.
eapply getSupport_In_Seq.
eapply in_getAllBvectors.
simpl.
left.
eapply bvToNat_natToBv_inverse.
eapply lognat_monotonic.
omega.
Qed.
Local Open Scope rat_scope.

(* Specifications: *)
Lemma RndNat_uniform : forall v1 v2 n,
v1 < n ->
v2 < n ->
evalDist (RndNat n) v1 == evalDist (RndNat n) v2.