Definition respectful {X} (P : dist X -> Prop) : Prop :=
  forall d1 d2, d1 ==d d2 -> P d1 <-> P d2.

Lemma uniform_card_rev {X} `{Finite X} (d : dist X) (x : X) : uniform d -> eval_dist d (Classes.eqb x) == 1 / Q_of_nat (card X).