fact: Definition refineEquiv_pick_ex_computes_to_and A B (c : Comp A) (P : A -> B -> Prop) : refineEquiv { b | exists a, c ↝ a /\ P a b} (a <- c; { b | P a b}).
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