fact: Definition refineFun_sup {fDom : list Type} {fCod : Type} (f : funType fDom fCod -> Prop) : funType fDom fCod := refineFun_lift fDom (fun z => (forall s, f s -> z s)).
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Sets.Ensembles Coq.ZArith.ZArith Coq.Classes.Morphisms Coq.Classes.SetoidTactics Fiat.Computation Fiat.Computation.SetoidMorphisms Coq.Logic.FunctionalExtensionality