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_max_nary (domain : list Set) F (f1 f2 : Rarrow domain nat) :
Uncurry f1 <=c F
-> Uncurry f2 <=c F
-> Fun' (fun x => max (App f1 x) (App f2 x)) <=c F.