fact: Definition IsCons : pTM sigSim bool 1 := Switch ReadChar (fun (s : option sigSim) => Return Nop match s with | Some (inr (sigList_cons)) => true | Some (inr (sigList_nil)) => false | _ => default end).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)