proposition: Lemma mu_inv_minus : forall (A:Type) (m:distr A)(f: MF A), mu m (finv f) == mu m (fone A) - mu m f.
proof: Proof. intros; apply Oeq_trans with (mu m (fun x => fone A x - f x)). apply (mu_stable_eq m); repeat red; unfold finv,fone; intros; auto. apply mu_stable_minus; auto. Qed.
imports: ALEA(Monads) ALEA(Utheory)