fact: Definition redctx (n: nat) := [Arr (repeat (alpha → alpha) n) alpha].
imports: RelationClasses Morphisms List Lia Init.Nat Setoid Undecidability.HOU(std.std calculus.calculus unification.unification) Undecidability.HOU(third_order.pcp third_order.encoding)