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