fact: Definition s_id_rules : list sty := map (fun (a : nat) => (arr' [bullet] (arr' [symbol a] (symbol a)))) symbols.
imports: Undecidability.IntersectionTypes.CD Undecidability.IntersectionTypes.Util.CD_facts Undecidability.StringRewriting.SSTS Undecidability.LambdaCalculus.Util.term_facts Relations List PeanoNat Lia ssreflect ssrfun