fact: Fixpoint hash_l (x : string) := match x with | [] => [] | a :: x => # :: a :: hash_l x end.
imports: Bool List Undecidability.PCP.PCP Undecidability.PCP.Util.Facts Undecidability.PCP.Util.PCP_facts Undecidability.Synthetic.Definitions