fact: Definition encode_tapes (sig : Type) (n : nat) (t : tapes sig n) := encode_list (@encode_tape sig) (Vector.to_list t).
imports: Undecidability.TM.Compound.TMTac Undecidability.TM.Code.Code Undecidability.TM.Basic.Mono Undecidability.TM.Compound.Multi