fact: Definition redtm (w: word) (W: list word): exp X := lambda lambda (enc 0 1 w) (AppR (var 2) (Enc 0 1 W)).
imports: RelationClasses Morphisms List Lia Init.Nat Setoid Undecidability.HOU(std.std calculus.calculus unification.unification) Undecidability.HOU(third_order.pcp third_order.encoding)