fact: Definition CASE_LAM_codes (p q: nat) (offset : nat) : list (nat -> list mm_instr) := JZ TS ((JZ_len+UNPACK_len+UNPACK_len+DEC_len+CASE_LAM_SUBST_len+CASE_LAM_SWAP_len)+offset) :: UNPACK A TS B :: UNPACK A B C :: DEC C ((JZ_len+UNPACK_len+UNPACK_len+DEC_len+CASE_LAM_SUBST_len) + offset) :: CASE_LAM_SUBST p :: CASE_LAM_SWAP p :: INC TS :: PACK A U TS :: JMP A q :: [].
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