Definition dist_equiv {X} (d1 d2 : dist X) : Prop :=
forall E, eval_dist d1 E == eval_dist d2 E.
Infix "==d" := dist_equiv (at level 10).

Lemma dist_equiv_trans {X} (d1 d2 d3 : dist X) :
dist_equiv d1 d2 ->
dist_equiv d2 d3 ->
dist_equiv d1 d3.