Theorem breprexplema 35259

Description: Lemma for breprexp 35262 (induction step for weighted sums over representations). (Contributed by Thierry Arnoux, 7-Dec-2021.)

Hypotheses

Ref	Expression
breprexp.n	⊢ (𝜑 → 𝑁 ∈ ℕ0)
breprexp.s	⊢ (𝜑 → 𝑆 ∈ ℕ0)
breprexplema.m	⊢ (𝜑 → 𝑀 ∈ ℕ0)
breprexplema.1	⊢ (𝜑 → 𝑀 ≤ ((𝑆 + 1) · 𝑁))
breprexplema.l	⊢ (((𝜑 ∧ 𝑥 ∈ (0..^(𝑆 + 1))) ∧ 𝑦 ∈ ℕ) → ((𝐿‘𝑥)‘𝑦) ∈ ℂ)

Assertion

Ref	Expression
breprexplema	⊢ (𝜑 → Σ𝑑 ∈ ((1...𝑁)(repr‘(𝑆 + 1))𝑀)∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))

Distinct variable groups:   𝑆,𝑎   𝐿,𝑎,𝑏,𝑑,𝑥,𝑦   𝑀,𝑎,𝑏,𝑑   𝑁,𝑎,𝑏,𝑑   𝑆,𝑏,𝑑,𝑥,𝑦   𝜑,𝑎,𝑏,𝑑,𝑥,𝑦

Allowed substitution hints:   𝑀(𝑥, 𝑦)   𝑁(𝑥, 𝑦)

Proof of Theorem breprexplema

Dummy variables 𝑐 𝑒 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fz1ssnn 13689	. . . . 5 ⊢ (1...𝑁) ⊆ ℕ
2	1	a1i 11	. . . 4 ⊢ (𝜑 → (1...𝑁) ⊆ ℕ)
3		breprexplema.m	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
4	3	nn0zd 12718	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℤ)
5		breprexp.s	. . . 4 ⊢ (𝜑 → 𝑆 ∈ ℕ0)
6		eqid 2760	. . . 4 ⊢ (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) = (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
7	2, 4, 5, 6	reprsuc 35244	. . 3 ⊢ (𝜑 → ((1...𝑁)(repr‘(𝑆 + 1))𝑀) = ∪ 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
8	7	sumeq1d 15867	. 2 ⊢ (𝜑 → Σ𝑑 ∈ ((1...𝑁)(repr‘(𝑆 + 1))𝑀)∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑑 ∈ ∪ 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)))
9		fzfid 14116	. . 3 ⊢ (𝜑 → (1...𝑁) ∈ Fin)
10	1	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (1...𝑁) ⊆ ℕ)
11	4	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑀 ∈ ℤ)
12		fzssz 13658	. . . . . . . 8 ⊢ (1...𝑁) ⊆ ℤ
13		simpr 490	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ (1...𝑁))
14	12, 13	sselid 3906	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ ℤ)
15	11, 14	zsubcld 12808	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (𝑀 − 𝑏) ∈ ℤ)
16	5	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑆 ∈ ℕ0)
17	9	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (1...𝑁) ∈ Fin)
18	10, 15, 16, 17	reprfi 35245	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ∈ Fin)
19		mptfi 9340	. . . . 5 ⊢ (((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ∈ Fin → (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
20	18, 19	syl 18	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
21		rnfi 9329	. . . 4 ⊢ ((𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin → ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
22	20, 21	syl 18	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
23	10, 15, 16	reprval 35239	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) = {𝑐 ∈ ((1...𝑁) ↑m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = (𝑀 − 𝑏)})
24		ssrab2 4005	. . . . 5 ⊢ {𝑐 ∈ ((1...𝑁) ↑m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = (𝑀 − 𝑏)} ⊆ ((1...𝑁) ↑m (0..^𝑆))
25	23, 24	eqsstrdi 3952	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ⊆ ((1...𝑁) ↑m (0..^𝑆)))
26	9	elexd 3473	. . . 4 ⊢ (𝜑 → (1...𝑁) ∈ V)
27		fzonel 13808	. . . . 5 ⊢ ¬ 𝑆 ∈ (0..^𝑆)
28	27	a1i 11	. . . 4 ⊢ (𝜑 → ¬ 𝑆 ∈ (0..^𝑆))
29	25, 26, 5, 28, 6	actfunsnrndisj 35234	. . 3 ⊢ (𝜑 → Disj 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
30		fzofi 14117	. . . . . 6 ⊢ (0..^(𝑆 + 1)) ∈ Fin
31	30	a1i 11	. . . . 5 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → (0..^(𝑆 + 1)) ∈ Fin)
32		breprexplema.l	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (0..^(𝑆 + 1))) ∧ 𝑦 ∈ ℕ) → ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
33	32	ralrimiva 3154	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0..^(𝑆 + 1))) → ∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
34	33	ralrimiva 3154	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
35	34	ad3antrrr 743	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
36		simpr 490	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → 𝑎 ∈ (0..^(𝑆 + 1)))
37		nfv 1946	. . . . . . . . . . . 12 ⊢ Ⅎ𝑣(𝜑 ∧ 𝑏 ∈ (1...𝑁))
38		nfcv 2922	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑣𝑑
39		nfmpt1 5203	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑣(𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
40	39	nfrn 5933	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑣ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
41	38, 40	nfel 2936	. . . . . . . . . . . 12 ⊢ Ⅎ𝑣 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
42	37, 41	nfan 1931	. . . . . . . . . . 11 ⊢ Ⅎ𝑣((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
43	1	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (1...𝑁) ⊆ ℕ)
44	15	ad3antrrr 743	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (𝑀 − 𝑏) ∈ ℤ)
45	16	ad3antrrr 743	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑆 ∈ ℕ0)
46		simplr 781	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)))
47	43, 44, 45, 46	reprf 35241	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑣:(0..^𝑆)⟶(1...𝑁))
48	13	ad3antrrr 743	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑏 ∈ (1...𝑁))
49	45, 48	fsnd 6869	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → {⟨𝑆, 𝑏⟩}:{𝑆}⟶(1...𝑁))
50		fzodisjsn 13832	. . . . . . . . . . . . . 14 ⊢ ((0..^𝑆) ∩ {𝑆}) = ∅
51	50	a1i 11	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → ((0..^𝑆) ∩ {𝑆}) = ∅)
52		fun2 6745	. . . . . . . . . . . . 13 ⊢ (((𝑣:(0..^𝑆)⟶(1...𝑁) ∧ {⟨𝑆, 𝑏⟩}:{𝑆}⟶(1...𝑁)) ∧ ((0..^𝑆) ∩ {𝑆}) = ∅) → (𝑣 ∪ {⟨𝑆, 𝑏⟩}):((0..^𝑆) ∪ {𝑆})⟶(1...𝑁))
53	47, 49, 51, 52	syl21anc 851	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (𝑣 ∪ {⟨𝑆, 𝑏⟩}):((0..^𝑆) ∪ {𝑆})⟶(1...𝑁))
54		simpr 490	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
55		nn0uz 13003	. . . . . . . . . . . . . . . 16 ⊢ ℕ0 = (ℤ≥‘0)
56	5, 55	eleqtrdi 2870	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆 ∈ (ℤ≥‘0))
57		fzosplitsn 13911	. . . . . . . . . . . . . . 15 ⊢ (𝑆 ∈ (ℤ≥‘0) → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
58	56, 57	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
59	58	ad4antr 745	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
60	54, 59	feq12d 6697	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (𝑑:(0..^(𝑆 + 1))⟶(1...𝑁) ↔ (𝑣 ∪ {⟨𝑆, 𝑏⟩}):((0..^𝑆) ∪ {𝑆})⟶(1...𝑁)))
61	53, 60	mpbird 260	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑑:(0..^(𝑆 + 1))⟶(1...𝑁))
62		vex 3454	. . . . . . . . . . . . . 14 ⊢ 𝑣 ∈ V
63		snex 5396	. . . . . . . . . . . . . 14 ⊢ {⟨𝑆, 𝑏⟩} ∈ V
64	62, 63	unex 7761	. . . . . . . . . . . . 13 ⊢ (𝑣 ∪ {⟨𝑆, 𝑏⟩}) ∈ V
65	6, 64	elrnmpti 5943	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ↔ ∃𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
66	65	bilani 510	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → ∃𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
67	42, 61, 66	r19.29af 3271	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → 𝑑:(0..^(𝑆 + 1))⟶(1...𝑁))
68	67	adantr 486	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → 𝑑:(0..^(𝑆 + 1))⟶(1...𝑁))
69	68, 36	ffvelcdmd 7085	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (𝑑‘𝑎) ∈ (1...𝑁))
70	1, 69	sselid 3906	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (𝑑‘𝑎) ∈ ℕ)
71		fveq2 6885	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (𝐿‘𝑥) = (𝐿‘𝑎))
72	71	fveq1d 6887	. . . . . . . . 9 ⊢ (𝑥 = 𝑎 → ((𝐿‘𝑥)‘𝑦) = ((𝐿‘𝑎)‘𝑦))
73	72	eleq1d 2845	. . . . . . . 8 ⊢ (𝑥 = 𝑎 → (((𝐿‘𝑥)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑎)‘𝑦) ∈ ℂ))
74		fveq2 6885	. . . . . . . . 9 ⊢ (𝑦 = (𝑑‘𝑎) → ((𝐿‘𝑎)‘𝑦) = ((𝐿‘𝑎)‘(𝑑‘𝑎)))
75	74	eleq1d 2845	. . . . . . . 8 ⊢ (𝑦 = (𝑑‘𝑎) → (((𝐿‘𝑎)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ))
76	73, 75	rspc2v 3586	. . . . . . 7 ⊢ ((𝑎 ∈ (0..^(𝑆 + 1)) ∧ (𝑑‘𝑎) ∈ ℕ) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ))
77	36, 70, 76	syl2anc 596	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ))
78	35, 77	mpd 16	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ)
79	31, 78	fprodcl 16119	. . . 4 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ)
80	79	anasss 472	. . 3 ⊢ ((𝜑 ∧ (𝑏 ∈ (1...𝑁) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ)
81	9, 22, 29, 80	fsumiun 15988	. 2 ⊢ (𝜑 → Σ𝑑 ∈ ∪ 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)))
82	58	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
83	82	prodeq1d 16088	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ∏𝑎 ∈ ((0..^𝑆) ∪ {𝑆})((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
84		nfv 1946	. . . . . . 7 ⊢ Ⅎ𝑎((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)))
85		nfcv 2922	. . . . . . 7 ⊢ Ⅎ𝑎((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))
86		fzofi 14117	. . . . . . . 8 ⊢ (0..^𝑆) ∈ Fin
87	86	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (0..^𝑆) ∈ Fin)
88	16	adantr 486	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑆 ∈ ℕ0)
89	27	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ¬ 𝑆 ∈ (0..^𝑆))
90	1	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (1...𝑁) ⊆ ℕ)
91	15	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (𝑀 − 𝑏) ∈ ℤ)
92		simpr 490	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)))
93	90, 91, 88, 92	reprf 35241	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑒:(0..^𝑆)⟶(1...𝑁))
94	93	ffnd 6710	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑒 Fn (0..^𝑆))
95	94	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑒 Fn (0..^𝑆))
96	13	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑏 ∈ (1...𝑁))
97		fnsng 6592	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ ℕ0 ∧ 𝑏 ∈ (1...𝑁)) → {⟨𝑆, 𝑏⟩} Fn {𝑆})
98	88, 96, 97	syl2anc 596	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → {⟨𝑆, 𝑏⟩} Fn {𝑆})
99	98	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → {⟨𝑆, 𝑏⟩} Fn {𝑆})
100	50	a1i 11	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((0..^𝑆) ∩ {𝑆}) = ∅)
101		simpr 490	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
102		fvun1 6976	. . . . . . . . . 10 ⊢ ((𝑒 Fn (0..^𝑆) ∧ {⟨𝑆, 𝑏⟩} Fn {𝑆} ∧ (((0..^𝑆) ∩ {𝑆}) = ∅ ∧ 𝑎 ∈ (0..^𝑆))) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎) = (𝑒‘𝑎))
103	95, 99, 100, 101, 102	syl112anc 1401	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎) = (𝑒‘𝑎))
104	103	fveq2d 6889	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ((𝐿‘𝑎)‘(𝑒‘𝑎)))
105	34	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
106	105	adantr 486	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
107		fzossfzop1 13878	. . . . . . . . . . . . 13 ⊢ (𝑆 ∈ ℕ0 → (0..^𝑆) ⊆ (0..^(𝑆 + 1)))
108	5, 107	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (0..^𝑆) ⊆ (0..^(𝑆 + 1)))
109	108	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (0..^𝑆) ⊆ (0..^(𝑆 + 1)))
110	109	sselda 3908	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^(𝑆 + 1)))
111	93	ffvelcdmda 7084	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑒‘𝑎) ∈ (1...𝑁))
112	1, 111	sselid 3906	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑒‘𝑎) ∈ ℕ)
113		fveq2 6885	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑒‘𝑎) → ((𝐿‘𝑎)‘𝑦) = ((𝐿‘𝑎)‘(𝑒‘𝑎)))
114	113	eleq1d 2845	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑒‘𝑎) → (((𝐿‘𝑎)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ))
115	73, 114	rspc2v 3586	. . . . . . . . . 10 ⊢ ((𝑎 ∈ (0..^(𝑆 + 1)) ∧ (𝑒‘𝑎) ∈ ℕ) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ))
116	110, 112, 115	syl2anc 596	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ))
117	106, 116	mpd 16	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ)
118	104, 117	eqeltrd 2860	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) ∈ ℂ)
119		fveq2 6885	. . . . . . . 8 ⊢ (𝑎 = 𝑆 → (𝐿‘𝑎) = (𝐿‘𝑆))
120		fveq2 6885	. . . . . . . 8 ⊢ (𝑎 = 𝑆 → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎) = ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))
121	119, 120	fveq12d 6892	. . . . . . 7 ⊢ (𝑎 = 𝑆 → ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆)))
122	50	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((0..^𝑆) ∩ {𝑆}) = ∅)
123		snidg 4620	. . . . . . . . . . . 12 ⊢ (𝑆 ∈ ℕ0 → 𝑆 ∈ {𝑆})
124	88, 123	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑆 ∈ {𝑆})
125		fvun2 6977	. . . . . . . . . . 11 ⊢ ((𝑒 Fn (0..^𝑆) ∧ {⟨𝑆, 𝑏⟩} Fn {𝑆} ∧ (((0..^𝑆) ∩ {𝑆}) = ∅ ∧ 𝑆 ∈ {𝑆})) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆) = ({⟨𝑆, 𝑏⟩}‘𝑆))
126	94, 98, 122, 124, 125	syl112anc 1401	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆) = ({⟨𝑆, 𝑏⟩}‘𝑆))
127		fvsng 7185	. . . . . . . . . . 11 ⊢ ((𝑆 ∈ ℕ0 ∧ 𝑏 ∈ (1...𝑁)) → ({⟨𝑆, 𝑏⟩}‘𝑆) = 𝑏)
128	88, 96, 127	syl2anc 596	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ({⟨𝑆, 𝑏⟩}‘𝑆) = 𝑏)
129	126, 128	eqtrd 2795	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆) = 𝑏)
130	129	fveq2d 6889	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆)) = ((𝐿‘𝑆)‘𝑏))
131		fzonn0p1 13877	. . . . . . . . . . . 12 ⊢ (𝑆 ∈ ℕ0 → 𝑆 ∈ (0..^(𝑆 + 1)))
132	5, 131	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ∈ (0..^(𝑆 + 1)))
133	132	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑆 ∈ (0..^(𝑆 + 1)))
134	1, 96	sselid 3906	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑏 ∈ ℕ)
135		fveq2 6885	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑆 → (𝐿‘𝑥) = (𝐿‘𝑆))
136	135	fveq1d 6887	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑆 → ((𝐿‘𝑥)‘𝑦) = ((𝐿‘𝑆)‘𝑦))
137	136	eleq1d 2845	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑆 → (((𝐿‘𝑥)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑆)‘𝑦) ∈ ℂ))
138		fveq2 6885	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑏 → ((𝐿‘𝑆)‘𝑦) = ((𝐿‘𝑆)‘𝑏))
139	138	eleq1d 2845	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑏 → (((𝐿‘𝑆)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑆)‘𝑏) ∈ ℂ))
140	137, 139	rspc2v 3586	. . . . . . . . . 10 ⊢ ((𝑆 ∈ (0..^(𝑆 + 1)) ∧ 𝑏 ∈ ℕ) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑆)‘𝑏) ∈ ℂ))
141	133, 134, 140	syl2anc 596	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑆)‘𝑏) ∈ ℂ))
142	105, 141	mpd 16	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝐿‘𝑆)‘𝑏) ∈ ℂ)
143	130, 142	eqeltrd 2860	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆)) ∈ ℂ)
144	84, 85, 87, 88, 89, 118, 121, 143	fprodsplitsn 16156	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ ((0..^𝑆) ∪ {𝑆})((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) · ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))))
145	104	prodeq2dv 16090	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)))
146	145, 130	oveq12d 7438	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) · ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
147	83, 144, 146	3eqtrd 2799	. . . . 5 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
148	147	sumeq2dv 15869	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
149		simpl 488	. . . . . . . 8 ⊢ ((𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → 𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}))
150	149	fveq1d 6887	. . . . . . 7 ⊢ ((𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (𝑑‘𝑎) = ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎))
151	150	fveq2d 6889	. . . . . 6 ⊢ ((𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → ((𝐿‘𝑎)‘(𝑑‘𝑎)) = ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
152	151	prodeq2dv 16090	. . . . 5 ⊢ (𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
153	25, 26, 5, 28, 6	actfunsnf1o 35233	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})):((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))–1-1-onto→ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
154	6	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) = (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
155		simpr 490	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑣 = 𝑒) → 𝑣 = 𝑒)
156	155	uneq1d 4166	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑣 = 𝑒) → (𝑣 ∪ {⟨𝑆, 𝑏⟩}) = (𝑒 ∪ {⟨𝑆, 𝑏⟩}))
157		vex 3454	. . . . . . . 8 ⊢ 𝑒 ∈ V
158	157, 63	unex 7761	. . . . . . 7 ⊢ (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∈ V
159	158	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∈ V)
160	154, 156, 92, 159	fvmptd 7001	. . . . 5 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))‘𝑒) = (𝑒 ∪ {⟨𝑆, 𝑏⟩}))
161	152, 18, 153, 160, 79	fsumf1o 15889	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
162		simpl 488	. . . . . . . . . 10 ⊢ ((𝑑 = 𝑒 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑑 = 𝑒)
163	162	fveq1d 6887	. . . . . . . . 9 ⊢ ((𝑑 = 𝑒 ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = (𝑒‘𝑎))
164	163	fveq2d 6889	. . . . . . . 8 ⊢ ((𝑑 = 𝑒 ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘(𝑑‘𝑎)) = ((𝐿‘𝑎)‘(𝑒‘𝑎)))
165	164	prodeq2dv 16090	. . . . . . 7 ⊢ (𝑑 = 𝑒 → ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) = ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)))
166	165	oveq1d 7435	. . . . . 6 ⊢ (𝑑 = 𝑒 → (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
167	166	cbvsumv 15863	. . . . 5 ⊢ Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏))
168	167	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
169	148, 161, 168	3eqtr4d 2805	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
170	169	sumeq2dv 15869	. 2 ⊢ (𝜑 → Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
171	8, 81, 170	3eqtrd 2799	1 ⊢ (𝜑 → Σ𝑑 ∈ ((1...𝑁)(repr‘(𝑆 + 1))𝑀)∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2144  ∀wral 3076  ∃wrex 3086  {crab 3412  Vcvv 3450   ⊆ wss 3895   ∩ cin 4089   ∪ cun 4149  ∅c0 4278  {csn 4583  ⟨cop 4589  ∪ ciun 4950   class class class wbr 5102   ↦ cmpt 5185  ran crn 5651   Fn wfn 6533  ⟶wf 6534  ‘cfv 6538  (class class class)co 7420   ↑_m cmap 8847  Fincfn 8973  ℂcc 11198  0cc0 11200  1c1 11201   + caddc 11203   · cmul 11205   ≤ cle 11344   − cmin 11541  ℕcn 12335  ℕ₀cn0 12606  ℤcz 12693  ℤ_≥cuz 12965  ...cfz 13639  ..^cfzo 13788  Σcsu 15853  ∏cprod 16072  reprcrepr 35237

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-inf2 9642  ax-cnex 11256  ax-resscn 11257  ax-1cn 11258  ax-icn 11259  ax-addcl 11260  ax-addrcl 11261  ax-mulcl 11262  ax-mulrcl 11263  ax-mulcom 11264  ax-addass 11265  ax-mulass 11266  ax-distr 11267  ax-i2m1 11268  ax-1ne0 11269  ax-1rid 11270  ax-rnegex 11271  ax-rrecex 11272  ax-cnre 11273  ax-pre-lttri 11274  ax-pre-lttrn 11275  ax-pre-ltadd 11276  ax-pre-mulgt0 11277  ax-pre-sup 11278

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-disj 5070  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7878  df-1st 8001  df-2nd 8002  df-frecs 8299  df-wrecs 8330  df-recs 8379  df-rdg 8418  df-1o 8476  df-er 8717  df-map 8849  df-pm 8850  df-en 8974  df-dom 8975  df-sdom 8976  df-fin 8977  df-sup 9434  df-oi 9504  df-card 10020  df-pnf 11345  df-mnf 11346  df-xr 11347  df-ltxr 11348  df-le 11349  df-sub 11543  df-neg 11544  df-div 11974  df-nn 12336  df-2 12405  df-3 12406  df-n0 12607  df-z 12694  df-uz 12966  df-rp 13121  df-fz 13640  df-fzo 13789  df-seq 14145  df-exp 14205  df-hash 14475  df-cj 15266  df-re 15267  df-im 15268  df-sqrt 15402  df-abs 15403  df-clim 15655  df-sum 15854  df-prod 16073  df-repr 35238

This theorem is used by:  breprexplemc  35261