fact: Definition dat_correct_bind2(A B : Set)(c1 : Comp B)(c2 : B -> Comp A)(n : nat)(t : DistApproxTree A) := exists tb, dat_correct c1 n tb /\ (datMap (fun b ta => (dat_correct (c2 b) n ta)) tb t).
imports: FCF.Comp FCF.DetSem FCF.DistSem FCF.Rat Arith FCF.StdNat FCF.Fold FCF.Limit Permutation ZifyNat