fact: Definition delegateSig := {| ConstructorIndex := ConstructorIndex delegatorSig; MethodIndex := MethodIndex delegatorSig; ConstructorDom := ConstructorDom delegatorSig; MethodDomCod idx := (fst (MethodDomCod delegatorSig idx), delegateCod idx) |}.
imports: Fiat.Common Fiat.Computation Fiat.ADT.ADTSig Fiat.ADT.Core Fiat.ADTRefinement.Core Fiat.ADTRefinement.GeneralRefinements Fiat.ADTRefinement.SetoidMorphisms