fact: Definition comp_spec (R1 R2 : Set) {eqd1 : EqDec R1}{eqd2 : EqDec R2} (post : R1 -> R2 -> Prop)(c1 : Comp R1)(c2 : Comp R2) := exists c : Comp (R1 * R2), (forall r1, evalDist c1 r1 == marginal_l c r1) /\ (forall r2, evalDist c2 r2 == marginal_r c r2) /\ (forall p, In p (getSupport c) -> post (fst p) (snd p)).
imports: FCF.Crypto FCF.Bernoulli FCF.NotationV1