fact: Fixpoint applyF {domain : list Type} {range : Type} : asFunc domain range -> asTuple domain -> range := match domain as domain return asFunc domain range -> asTuple domain -> range with | nil => fun x _ => x | d :: ds => fun f x_xs => applyF (f (fst x_xs)) (snd x_xs) end.
imports: Coq.Lists.List ExtLib.Data.Member