fact: Definition encode_config : TM_config -> config := fun '(TM_facts.mk_mconfig q ctapes) => (encode_state q, truncate_tape (encode_tape (Vector.hd ctapes))).
imports: Undecidability(TM.SBTM TM.Util.SBTM_facts) Undecidability.Shared.Libs.PSL.FiniteTypes.FinTypes PeanoNat Lia List ssreflect ssrbool ssrfun