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_mul_c_r_nary (domain : list Set)  c F (f : Rarrow domain nat):
Uncurry f <=c F -> Fun'(fun x => App f x * c) <=c F.