fact: Definition option_sigSim_sigList_X {X} {x0 : X} {x1} := fun (s : option sigSim) => match s with | Some (inr (sigList_X m)) =>x1 m | _ => x0 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)