proposition: Lemma Ilet_eq : forall (A B : Type) (a:Distr A) (f:A->Distr B)(I:IU)(G:B->IU), Ieq (Imu (Mlet a f) G) (Imu a (fun x => Imu (f x) G)).
proof: Proof. unfold Ieq,Imu,Mlet,Iincl; simpl; intuition. Qed.
imports: ALEA(Probas) ALEA(Utheory)