fact: Definition refineEquiv_pick_ex_computes_to_bind_and A B D (c : B -> Comp A) (cB : Comp B) (P : A -> D -> Prop) : refineEquiv { d | exists a, (b <- cB; c b) ↝ a /\ P a d} (b <- cB; { d | exists a, c b ↝ a /\ P a d}).
imports: Coq.Strings.String Coq.Sets.Ensembles Coq.Bool.Bool Fiat.Common Fiat.Common.BoolFacts Fiat.Common.LogicFacts Fiat.Computation.Core Fiat.Computation.Monad Fiat.Computation.SetoidMorphisms Fiat.Computation.Refinements.Tactics