Theorem sticksstones8 41061

Description: Establish mapping between strictly monotone functions and functions that sum to a fixed non-negative integer. (Contributed by metakunt, 1-Oct-2024.)

Hypotheses

Ref	Expression
sticksstones8.1	⊢ (𝜑 → 𝑁 ∈ ℕ0)
sticksstones8.2	⊢ (𝜑 → 𝐾 ∈ ℕ0)
sticksstones8.3	⊢ 𝐹 = (𝑎 ∈ 𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))))
sticksstones8.4	⊢ 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)}
sticksstones8.5	⊢ 𝐵 = {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)))}

Assertion

Ref	Expression
sticksstones8	⊢ (𝜑 → 𝐹:𝐴⟶𝐵)

Distinct variable groups:   𝐴,𝑎,𝑗,𝑙,𝑥,𝑦   𝐵,𝑎   𝑗,𝐾,𝑙,𝑓,𝑥,𝑦   𝑔,𝐾,𝑖   𝑓,𝑁,𝑗   𝑔,𝑁   𝑓,𝑎   𝑔,𝑎,𝑖   𝜑,𝑎,𝑗,𝑙   𝑖,𝑙   𝜑,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑓,𝑔,𝑖)   𝐴(𝑓,𝑔,𝑖)   𝐵(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑙)   𝐹(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑎,𝑙)   𝐾(𝑎)   𝑁(𝑥,𝑦,𝑖,𝑎,𝑙)

Proof of Theorem sticksstones8

Dummy variable 𝑒 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqidd 2733	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → (𝑒 ∈ (1...𝐾) ↦ (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙))) = (𝑒 ∈ (1...𝐾) ↦ (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙))))
2		simpr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑒 = 𝑗) → 𝑒 = 𝑗)
3	2	oveq2d 7427	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑒 = 𝑗) → (1...𝑒) = (1...𝑗))
4	3	sumeq1d 15649	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑒 = 𝑗) → Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙) = Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))
5	2, 4	oveq12d 7429	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) ∧ 𝑒 = 𝑗) → (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙)) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))
6		simp3 1138	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → 𝑗 ∈ (1...𝐾))
7		ovexd 7446	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)) ∈ V)
8	1, 5, 6, 7	fvmptd 7005	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → ((𝑒 ∈ (1...𝐾) ↦ (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙)))‘𝑗) = (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))
9		sticksstones8.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
10	9	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → 𝑁 ∈ ℕ0)
11		sticksstones8.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
12	11	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → 𝐾 ∈ ℕ0)
13		simpr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
14		sticksstones8.4	. . . . . . . . . . . . . . 15 ⊢ 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)}
15	14	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝐴 = {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)})
16	15	eqcomd 2738	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)} = 𝐴)
17	13, 16	eleqtrrd 2836	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)})
18		feq1 6698	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = 𝑎 → (𝑔:(1...(𝐾 + 1))⟶ℕ0 ↔ 𝑎:(1...(𝐾 + 1))⟶ℕ0))
19		simpl 483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑔 = 𝑎 ∧ 𝑖 ∈ (1...(𝐾 + 1))) → 𝑔 = 𝑎)
20	19	fveq1d 6893	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑔 = 𝑎 ∧ 𝑖 ∈ (1...(𝐾 + 1))) → (𝑔‘𝑖) = (𝑎‘𝑖))
21	20	sumeq2dv 15651	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 = 𝑎 → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖))
22	21	eqeq1d 2734	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = 𝑎 → (Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁 ↔ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁))
23	18, 22	anbi12d 631	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = 𝑎 → ((𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁) ↔ (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)))
24	23	elabg 3666	. . . . . . . . . . . . . 14 ⊢ (𝑎 ∈ 𝐴 → (𝑎 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)} ↔ (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)))
25	13, 24	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)} ↔ (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)))
26	25	biimpd 228	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)} → (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)))
27	17, 26	mpd 15	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁))
28	27	simpld 495	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎:(1...(𝐾 + 1))⟶ℕ0)
29	28	3adant3 1132	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → 𝑎:(1...(𝐾 + 1))⟶ℕ0)
30		eqid 2732	. . . . . . . . 9 ⊢ (𝑒 ∈ (1...𝐾) ↦ (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙))) = (𝑒 ∈ (1...𝐾) ↦ (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙)))
31		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑙 → (𝑎‘𝑖) = (𝑎‘𝑙))
32		nfcv 2903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑙(1...(𝐾 + 1))
33		nfcv 2903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑖(1...(𝐾 + 1))
34		nfcv 2903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑙(𝑎‘𝑖)
35		nfcv 2903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑖(𝑎‘𝑙)
36	31, 32, 33, 34, 35	cbvsum 15643	. . . . . . . . . . 11 ⊢ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = Σ𝑙 ∈ (1...(𝐾 + 1))(𝑎‘𝑙)
37	27	simprd 496	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)
38	36, 37	eqtr3id 2786	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑎‘𝑙) = 𝑁)
39	38	3adant3 1132	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → Σ𝑙 ∈ (1...(𝐾 + 1))(𝑎‘𝑙) = 𝑁)
40	10, 12, 29, 6, 30, 39	sticksstones7 41060	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → ((𝑒 ∈ (1...𝐾) ↦ (𝑒 + Σ𝑙 ∈ (1...𝑒)(𝑎‘𝑙)))‘𝑗) ∈ (1...(𝑁 + 𝐾)))
41	8, 40	eqeltrrd 2834	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴 ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)) ∈ (1...(𝑁 + 𝐾)))
42	41	3expa 1118	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑗 ∈ (1...𝐾)) → (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)) ∈ (1...(𝑁 + 𝐾)))
43		eqid 2732	. . . . . 6 ⊢ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))
44	42, 43	fmptd 7115	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))):(1...𝐾)⟶(1...(𝑁 + 𝐾)))
45	9	ad3antrrr 728	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) → 𝑁 ∈ ℕ0)
46	45	adantr 481	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → 𝑁 ∈ ℕ0)
47	11	ad3antrrr 728	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) → 𝐾 ∈ ℕ0)
48	47	adantr 481	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → 𝐾 ∈ ℕ0)
49	24	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)} ↔ (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)))
50	49	biimpd 228	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ {𝑔 ∣ (𝑔:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑔‘𝑖) = 𝑁)} → (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁)))
51	17, 50	mpd 15	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎:(1...(𝐾 + 1))⟶ℕ0 ∧ Σ𝑖 ∈ (1...(𝐾 + 1))(𝑎‘𝑖) = 𝑁))
52	51	simpld 495	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎:(1...(𝐾 + 1))⟶ℕ0)
53	52	adantr 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) → 𝑎:(1...(𝐾 + 1))⟶ℕ0)
54	53	adantr 481	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) → 𝑎:(1...(𝐾 + 1))⟶ℕ0)
55	54	adantr 481	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → 𝑎:(1...(𝐾 + 1))⟶ℕ0)
56		simpllr 774	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → 𝑥 ∈ (1...𝐾))
57		simplr 767	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → 𝑦 ∈ (1...𝐾))
58		simpr 485	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → 𝑥 < 𝑦)
59	46, 48, 55, 56, 57, 58, 43	sticksstones6 41059	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) ∧ 𝑥 < 𝑦) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦))
60	59	ex 413	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) ∧ 𝑦 ∈ (1...𝐾)) → (𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))
61	60	ralrimiva 3146	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 ∈ (1...𝐾)) → ∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))
62	61	ralrimiva 3146	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))
63	44, 62	jca 512	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))):(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦))))
64		fzfid 13940	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (1...𝐾) ∈ Fin)
65	44, 64	fexd 7231	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) ∈ V)
66		feq1 6698	. . . . . . 7 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ↔ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))):(1...𝐾)⟶(1...(𝑁 + 𝐾))))
67		fveq1 6890	. . . . . . . . . 10 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → (𝑓‘𝑥) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥))
68		fveq1 6890	. . . . . . . . . 10 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → (𝑓‘𝑦) = ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦))
69	67, 68	breq12d 5161	. . . . . . . . 9 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → ((𝑓‘𝑥) < (𝑓‘𝑦) ↔ ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))
70	69	imbi2d 340	. . . . . . . 8 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → ((𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)) ↔ (𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦))))
71	70	2ralbidv 3218	. . . . . . 7 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → (∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)) ↔ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦))))
72	66, 71	anbi12d 631	. . . . . 6 ⊢ (𝑓 = (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) → ((𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦))) ↔ ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))):(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))))
73	72	elabg 3666	. . . . 5 ⊢ ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) ∈ V → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) ∈ {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)))} ↔ ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))):(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))))
74	65, 73	syl 17	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) ∈ {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)))} ↔ ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))):(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑥) < ((𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙)))‘𝑦)))))
75	63, 74	mpbird 256	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) ∈ {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)))})
76		sticksstones8.5	. . . 4 ⊢ 𝐵 = {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)))}
77	76	a1i 11	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝐵 = {𝑓 ∣ (𝑓:(1...𝐾)⟶(1...(𝑁 + 𝐾)) ∧ ∀𝑥 ∈ (1...𝐾)∀𝑦 ∈ (1...𝐾)(𝑥 < 𝑦 → (𝑓‘𝑥) < (𝑓‘𝑦)))})
78	75, 77	eleqtrrd 2836	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))) ∈ 𝐵)
79		sticksstones8.3	. 2 ⊢ 𝐹 = (𝑎 ∈ 𝐴 ↦ (𝑗 ∈ (1...𝐾) ↦ (𝑗 + Σ𝑙 ∈ (1...𝑗)(𝑎‘𝑙))))
80	78, 79	fmptd 7115	1 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  {cab 2709  ∀wral 3061  Vcvv 3474   class class class wbr 5148   ↦ cmpt 5231  ⟶wf 6539  ‘cfv 6543  (class class class)co 7411  Fincfn 8941  1c1 11113   + caddc 11115   < clt 11250  ℕ₀cn0 12474  ...cfz 13486  Σcsu 15634

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7727  ax-inf2 9638  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189  ax-pre-sup 11190

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7858  df-1st 7977  df-2nd 7978  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412  df-1o 8468  df-er 8705  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-sup 9439  df-oi 9507  df-card 9936  df-pnf 11252  df-mnf 11253  df-xr 11254  df-ltxr 11255  df-le 11256  df-sub 11448  df-neg 11449  df-div 11874  df-nn 12215  df-2 12277  df-3 12278  df-n0 12475  df-z 12561  df-uz 12825  df-rp 12977  df-ico 13332  df-fz 13487  df-fzo 13630  df-seq 13969  df-exp 14030  df-hash 14293  df-cj 15048  df-re 15049  df-im 15050  df-sqrt 15184  df-abs 15185  df-clim 15434  df-sum 15635

This theorem is referenced by:  sticksstones11  41064  sticksstones12  41066