proposition: Theorem comp_spec_right_ident : forall (A : Set){eqd : EqDec A}(c1 : Comp A), comp_spec eq (x <-$ c1; ret x) c1.
proof: Proof. intuition. eapply eq_impl_comp_spec_eq. eapply evalDist_right_ident. Qed.
imports: FCF.Crypto FCF.Bernoulli FCF.NotationV1