fact: Fixpoint find_in_ctx {var : Type} (term : nat) (ctx : @var_context.var_context var) {struct ctx} : M (option var) := match ctx with | var_context.cons term' v xs => mmatch term' with | [#] term | =n> M.ret (Some v) | _ => M.ret None end | _ => M.ret None end.
imports: Coq.ZArith.ZArith Coq.Lists.List