Definition D := evalDist.Definition dist_iso := evalDist_iso.Ltac r_ident_r :=
  symmetry;
  rewrite <- evalDist_right_ident;
  symmetry.Ltac xorTac_once :=
  match goal with
    | [|- context[?x xor (?x xor ?x0)] ]=> rewrite <- BVxor_assoc; rewrite BVxor_same_id; rewrite BVxor_id_l
    | [|- context[(?x xor ?x0) xor ?x] ]=> rewrite <- BVxor_comm
  end.Ltac xorTac := repeat xorTac_once;
              simpl; try reflexivity; try eapply in_getAllBvectors.

(* Specifications: *)
Theorem all_in_support : forall y, In y (getSupport RndT) -> forall x, In x (getSupport RndT).