fact: Fixpoint hlist_get ls a (m : member a ls) : hlist ls -> F a := match m in member _ ls return hlist ls -> F a with | MZ _ => hlist_hd | MN _ _ r => fun hl => hlist_get r (hlist_tl hl) end.
imports: Coq.Lists.List Coq.Arith.PeanoNat Relations RelationClasses ExtLib.Core.RelDec ExtLib.Data.SigT ExtLib.Data.Member ExtLib.Data.ListNth ExtLib.Data.Option ExtLib.Tactics Coq.Classes.Morphisms