fact: Definition enc (w: word) : exp X := lambda (AppL (renL shift (map encb w)) (var 0)).
imports: RelationClasses Morphisms List Lia Arith Lia Init.Nat Setoid Undecidability.HOU(std.std calculus.calculus third_order.pcp)