fact: Definition refineEquiv_pick_computes_to_and A (c : Comp A) (P : Ensemble A) : refineEquiv { v | c ↝ v /\ P v} (v <- c; { a | a = v /\ P a}).
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