fact: Definition refineFueledFix : forall (fuel : nat) (base base' : Comp R) (body body' : (A -> Comp R) -> A -> Comp R) (arg : A), refine base base' -> (forall a bod bod', (forall a, refine (bod a) (bod' a)) -> refine (body bod a) (body' bod' a)) -> refine (FueledFix fuel base body arg) (FueledFix fuel base' body' arg).
imports: Coq.Classes.Morphisms Coq.Classes.SetoidTactics Fiat.Computation