intuition.
eapply (@oc_comp_invariant _ _ _ _ _ (fun x => f x = true)); intuition.
eapply H.
eapply H2.
eapply H3.
eapply H0.
eapply H1.
Qed.

Theorem distro_irr_le
: forall (A B : Set) (c : Comp A) (f : A -> Comp B)
(y : B) (v : Rat),
(forall x : A, In x (getSupport c) -> (evalDist (f x) y) <=  v) ->
(evalDist (x <-$ c; f x) y)  <= v.