fact: Definition s_rule (r : rule) : ty := match r with | ((x,y),(x',y')) => mk_ty ( (arr' [isl] (arr' [symbol x'] (symbol x))) :: (arr' [isr] (arr' [symbol y'] (symbol y))) :: s_id_rules) end.
imports: Undecidability.IntersectionTypes.CD Undecidability.IntersectionTypes.Util.CD_facts Undecidability.StringRewriting.SSTS Undecidability.LambdaCalculus.Util.term_facts Relations List PeanoNat Lia ssreflect ssrfun