fact: Definition refineFunEquiv {fDom : list Type} {fCod : Type} (old new : funType fDom fCod) := refineFun old new /\ refineFun new old.
imports: Fiat.Common.Coq__8_4__8_5__Compat Fiat.ADT Fiat.ADTNotation Fiat.Computation.FixComp Coq.ZArith.ZArith Coq.Arith.PeanoNat