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