fact: Fixpoint get (domain : list Type) (range : Type) T (m : member T domain) : (T -> asFunc domain range) -> asFunc domain range := match m in member _ domain return (T -> asFunc domain range) -> asFunc domain range with | MZ _ _ => fun F x => F x x | MN _ m => fun F x => @get _ _ _ m (fun y => F y x) end.
imports: Coq.Lists.List ExtLib.Data.Member