proposition: Theorem comp_spec_left_ident : forall (A B : Set){eqda : EqDec A}{eqdb : EqDec B}(c1 : A -> Comp B) a, comp_spec eq (x <-$ ret a; c1 x) (c1 a).
proof: Proof. intuition. eapply eq_impl_comp_spec_eq. intuition. specialize (@evalDist_left_ident eqRat); intuition. Qed.
imports: FCF.Crypto FCF.Bernoulli FCF.NotationV1