From Undecidability Require Export UpToC.
From Undecidability Require Export UpToC.
From Undecidability Require Export GenericNary.
From Undecidability.Shared.Libs.PSL Require FinTypes.
Local Set Universe Polymorphism.

Lemma upToC_pow_r_drop_nary domain c f (F : Rarrow domain nat) :
0 < c
-> f <=c Uncurry F
-> f <=c Fun' (fun x => (App F x) ^ c).