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.
now prove_nary upToC_pow_r_drop.
Qed.

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