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_nary (domain : list Set) (F1 F2 f1 f2 : Rarrow domain nat) :
Uncurry f1 <=c Uncurry F1
-> Uncurry f2 <=c Uncurry F2
-> Fun' (fun x => App f1 x * App f2 x) <=c Fun' (fun x => App F1 x * App F2 x).