fact: Definition conv_tape (t : Vector.t (TM.tape bool) 1) : KOSBTM.tape := let t := Vector.hd t in match TM.current t with | Some c => (TM.Util.TM_facts.left t, Some c, TM.Util.TM_facts.right t) | None => (TM.Util.TM_facts.left t, None, TM.Util.TM_facts.right t) end.
imports: Undecidability.Shared.Libs.PSL.FiniteTypes.FinTypes Undecidability.Shared.Libs.PSL.Vectors.Vectors