fact: Fixpoint app_depth_r (s : term) : nat := match s with | var _ => 0 | app _ t => S (app_depth_r t) | lam s => app_depth_r s end.
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA L.L) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss Code.subcode) Undecidability(MinskyMachines.Util.MMA_pairing L.AbstractMachines.wCBV) PeanoNat List Lia Wf_nat ssreflect ssrbool ssrfun