proposition: Theorem comp_spec_assoc : forall (A B C : Set){eqd : EqDec C}(c1 : Comp A)(c2 : A -> Comp B)(c3 : B -> Comp C), comp_spec eq (x <-$ (y <-$ c1; c2 y); c3 x) (y <-$ c1; x <-$ c2 y; c3 x).
proof: Proof. intuition. eapply eq_impl_comp_spec_eq. intuition. eapply evalDist_assoc; intuition. Qed.
imports: FCF.Crypto FCF.Bernoulli FCF.NotationV1