fact: Definition bcons n (b : bool) (H : bstring n) : bstring (S n) := match H with exist _ bs Hs => exist _ (b::bs) (le_n_S (|bs|) n Hs) end.
imports: Lia Arith Undecidability.PCP.PCP Undecidability.PCP.Util.PCP_facts Undecidability.Synthetic.DecidabilityFacts Undecidability(FOL.Utils.FullSyntax) Undecidability(FOL.FSAT) Undecidability.Shared.ListAutomation