fact: Definition pointwise_refine (f g : (A -> Comp R) -> A -> Comp R) := forall (rec rec' : A -> Comp R) (a : A), pointwise_relation A (@refine R) rec rec' -> refine (f rec a) (g rec' a).
imports: Coq.Classes.Morphisms Coq.Classes.SetoidTactics Fiat.Computation