proposition: Lemma distr_restr_simpl : forall A (P:Prop) (cp:U) (m:M A) (Hp: (P -> 1 <= cp) /\ (~ P -> cp <= 0)) (Hinv:P -> stable_inv m) (Hplus:P -> stable_plus m)(Hmult:P -> stable_mult m)(Hcont:P -> continuous m) f, mu (distr_restr cp Hp Hinv Hplus Hmult Hcont) f = cp * m f.
proof: Proof. trivial. Qed.
imports: ALEA(Utheory) ALEA(Sets)