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