fact: Definition CASE_VAR0 (p: nat) (offset : nat) : list mm_instr := concat ( let i := offset in UNPACK CTX U i :: let i := UNPACK_len + i in UNPACK U CTX i :: let i := UNPACK_len + i in JMP p :: []).
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA LambdaCalculus.Krivine LambdaCalculus.Util.Krivine_facts) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) PeanoNat List Lia ssreflect ssrbool ssrfun