fact: Fixpoint enc_closure (u: eterm) := match u with | closure ctx s => enc_pair (enc_list (map enc_closure ctx)) (enc_term s) end.
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