Theorem breprexplema 34826

Description: Lemma for breprexp 34829 (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 13504	. . . . 5 ⊢ (1...𝑁) ⊆ ℕ
2	1	a1i 11	. . . 4 ⊢ (𝜑 → (1...𝑁) ⊆ ℕ)
3		breprexplema.m	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
4	3	nn0zd 12544	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℤ)
5		breprexp.s	. . . 4 ⊢ (𝜑 → 𝑆 ∈ ℕ0)
6		eqid 2741	. . . 4 ⊢ (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) = (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
7	2, 4, 5, 6	reprsuc 34811	. . 3 ⊢ (𝜑 → ((1...𝑁)(repr‘(𝑆 + 1))𝑀) = ∪ 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
8	7	sumeq1d 15657	. 2 ⊢ (𝜑 → Σ𝑑 ∈ ((1...𝑁)(repr‘(𝑆 + 1))𝑀)∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑑 ∈ ∪ 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)))
9		fzfid 13930	. . 3 ⊢ (𝜑 → (1...𝑁) ∈ Fin)
10	1	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (1...𝑁) ⊆ ℕ)
11	4	adantr 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑀 ∈ ℤ)
12		fzssz 13475	. . . . . . . 8 ⊢ (1...𝑁) ⊆ ℤ
13		simpr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ (1...𝑁))
14	12, 13	sselid 3915	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ ℤ)
15	11, 14	zsubcld 12633	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (𝑀 − 𝑏) ∈ ℤ)
16	5	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → 𝑆 ∈ ℕ0)
17	9	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (1...𝑁) ∈ Fin)
18	10, 15, 16, 17	reprfi 34812	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ∈ Fin)
19		mptfi 9255	. . . . 5 ⊢ (((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ∈ Fin → (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
20	18, 19	syl 17	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
21		rnfi 9244	. . . 4 ⊢ ((𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin → ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
22	20, 21	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ∈ Fin)
23	10, 15, 16	reprval 34806	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) = {𝑐 ∈ ((1...𝑁) ↑m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = (𝑀 − 𝑏)})
24		ssrab2 4014	. . . . 5 ⊢ {𝑐 ∈ ((1...𝑁) ↑m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = (𝑀 − 𝑏)} ⊆ ((1...𝑁) ↑m (0..^𝑆))
25	23, 24	eqsstrdi 3961	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ⊆ ((1...𝑁) ↑m (0..^𝑆)))
26	9	elexd 3456	. . . 4 ⊢ (𝜑 → (1...𝑁) ∈ V)
27		fzonel 13623	. . . . 5 ⊢ ¬ 𝑆 ∈ (0..^𝑆)
28	27	a1i 11	. . . 4 ⊢ (𝜑 → ¬ 𝑆 ∈ (0..^𝑆))
29	25, 26, 5, 28, 6	actfunsnrndisj 34801	. . 3 ⊢ (𝜑 → Disj 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
30		fzofi 13931	. . . . . 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 3133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0..^(𝑆 + 1))) → ∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
34	33	ralrimiva 3133	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
35	34	ad3antrrr 737	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
36		simpr 486	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → 𝑎 ∈ (0..^(𝑆 + 1)))
37		nfv 1922	. . . . . . . . . . . 12 ⊢ Ⅎ𝑣(𝜑 ∧ 𝑏 ∈ (1...𝑁))
38		nfcv 2903	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑣𝑑
39		nfmpt1 5174	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑣(𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
40	39	nfrn 5901	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑣ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
41	38, 40	nfel 2917	. . . . . . . . . . . 12 ⊢ Ⅎ𝑣 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
42	37, 41	nfan 1907	. . . . . . . . . . 11 ⊢ Ⅎ𝑣((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))
43	1	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (1...𝑁) ⊆ ℕ)
44	15	ad3antrrr 737	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (𝑀 − 𝑏) ∈ ℤ)
45	16	ad3antrrr 737	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑆 ∈ ℕ0)
46		simplr 775	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)))
47	43, 44, 45, 46	reprf 34808	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑣:(0..^𝑆)⟶(1...𝑁))
48	13	ad3antrrr 737	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑏 ∈ (1...𝑁))
49	45, 48	fsnd 6815	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → {⟨𝑆, 𝑏⟩}:{𝑆}⟶(1...𝑁))
50		fzodisjsn 13647	. . . . . . . . . . . . . 14 ⊢ ((0..^𝑆) ∩ {𝑆}) = ∅
51	50	a1i 11	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → ((0..^𝑆) ∩ {𝑆}) = ∅)
52		fun2 6694	. . . . . . . . . . . . 13 ⊢ (((𝑣:(0..^𝑆)⟶(1...𝑁) ∧ {⟨𝑆, 𝑏⟩}:{𝑆}⟶(1...𝑁)) ∧ ((0..^𝑆) ∩ {𝑆}) = ∅) → (𝑣 ∪ {⟨𝑆, 𝑏⟩}):((0..^𝑆) ∪ {𝑆})⟶(1...𝑁))
53	47, 49, 51, 52	syl21anc 844	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (𝑣 ∪ {⟨𝑆, 𝑏⟩}):((0..^𝑆) ∪ {𝑆})⟶(1...𝑁))
54		simpr 486	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
55		nn0uz 12821	. . . . . . . . . . . . . . . 16 ⊢ ℕ0 = (ℤ≥‘0)
56	5, 55	eleqtrdi 2851	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑆 ∈ (ℤ≥‘0))
57		fzosplitsn 13726	. . . . . . . . . . . . . . 15 ⊢ (𝑆 ∈ (ℤ≥‘0) → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
58	56, 57	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
59	58	ad4antr 739	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
60	54, 59	feq12d 6647	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → (𝑑:(0..^(𝑆 + 1))⟶(1...𝑁) ↔ (𝑣 ∪ {⟨𝑆, 𝑏⟩}):((0..^𝑆) ∪ {𝑆})⟶(1...𝑁)))
61	53, 60	mpbird 259	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩})) → 𝑑:(0..^(𝑆 + 1))⟶(1...𝑁))
62		vex 3437	. . . . . . . . . . . . . 14 ⊢ 𝑣 ∈ V
63		snex 5371	. . . . . . . . . . . . . 14 ⊢ {⟨𝑆, 𝑏⟩} ∈ V
64	62, 63	unex 7691	. . . . . . . . . . . . 13 ⊢ (𝑣 ∪ {⟨𝑆, 𝑏⟩}) ∈ V
65	6, 64	elrnmpti 5911	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})) ↔ ∃𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
66	65	bilani 506	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → ∃𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))𝑑 = (𝑣 ∪ {⟨𝑆, 𝑏⟩}))
67	42, 61, 66	r19.29af 3250	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → 𝑑:(0..^(𝑆 + 1))⟶(1...𝑁))
68	67	adantr 482	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → 𝑑:(0..^(𝑆 + 1))⟶(1...𝑁))
69	68, 36	ffvelcdmd 7030	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (𝑑‘𝑎) ∈ (1...𝑁))
70	1, 69	sselid 3915	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (𝑑‘𝑎) ∈ ℕ)
71		fveq2 6831	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (𝐿‘𝑥) = (𝐿‘𝑎))
72	71	fveq1d 6833	. . . . . . . . 9 ⊢ (𝑥 = 𝑎 → ((𝐿‘𝑥)‘𝑦) = ((𝐿‘𝑎)‘𝑦))
73	72	eleq1d 2826	. . . . . . . 8 ⊢ (𝑥 = 𝑎 → (((𝐿‘𝑥)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑎)‘𝑦) ∈ ℂ))
74		fveq2 6831	. . . . . . . . 9 ⊢ (𝑦 = (𝑑‘𝑎) → ((𝐿‘𝑎)‘𝑦) = ((𝐿‘𝑎)‘(𝑑‘𝑎)))
75	74	eleq1d 2826	. . . . . . . 8 ⊢ (𝑦 = (𝑑‘𝑎) → (((𝐿‘𝑎)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ))
76	73, 75	rspc2v 3573	. . . . . . 7 ⊢ ((𝑎 ∈ (0..^(𝑆 + 1)) ∧ (𝑑‘𝑎) ∈ ℕ) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ))
77	36, 70, 76	syl2anc 591	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ))
78	35, 77	mpd 15	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → ((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ)
79	31, 78	fprodcl 15912	. . . 4 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ)
80	79	anasss 468	. . 3 ⊢ ((𝜑 ∧ (𝑏 ∈ (1...𝑁) ∧ 𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩})))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) ∈ ℂ)
81	9, 22, 29, 80	fsumiun 15779	. 2 ⊢ (𝜑 → Σ𝑑 ∈ ∪ 𝑏 ∈ (1...𝑁)ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)))
82	58	ad2antrr 733	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (0..^(𝑆 + 1)) = ((0..^𝑆) ∪ {𝑆}))
83	82	prodeq1d 15880	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ∏𝑎 ∈ ((0..^𝑆) ∪ {𝑆})((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
84		nfv 1922	. . . . . . 7 ⊢ Ⅎ𝑎((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)))
85		nfcv 2903	. . . . . . 7 ⊢ Ⅎ𝑎((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))
86		fzofi 13931	. . . . . . . 8 ⊢ (0..^𝑆) ∈ Fin
87	86	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (0..^𝑆) ∈ Fin)
88	16	adantr 482	. . . . . . 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 482	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (𝑀 − 𝑏) ∈ ℤ)
92		simpr 486	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)))
93	90, 91, 88, 92	reprf 34808	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑒:(0..^𝑆)⟶(1...𝑁))
94	93	ffnd 6660	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑒 Fn (0..^𝑆))
95	94	adantr 482	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑒 Fn (0..^𝑆))
96	13	adantr 482	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑏 ∈ (1...𝑁))
97		fnsng 6541	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ ℕ0 ∧ 𝑏 ∈ (1...𝑁)) → {⟨𝑆, 𝑏⟩} Fn {𝑆})
98	88, 96, 97	syl2anc 591	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → {⟨𝑆, 𝑏⟩} Fn {𝑆})
99	98	adantr 482	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → {⟨𝑆, 𝑏⟩} Fn {𝑆})
100	50	a1i 11	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((0..^𝑆) ∩ {𝑆}) = ∅)
101		simpr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
102		fvun1 6922	. . . . . . . . . 10 ⊢ ((𝑒 Fn (0..^𝑆) ∧ {⟨𝑆, 𝑏⟩} Fn {𝑆} ∧ (((0..^𝑆) ∩ {𝑆}) = ∅ ∧ 𝑎 ∈ (0..^𝑆))) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎) = (𝑒‘𝑎))
103	95, 99, 100, 101, 102	syl112anc 1383	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎) = (𝑒‘𝑎))
104	103	fveq2d 6835	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ((𝐿‘𝑎)‘(𝑒‘𝑎)))
105	34	ad2antrr 733	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
106	105	adantr 482	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ)
107		fzossfzop1 13693	. . . . . . . . . . . . 13 ⊢ (𝑆 ∈ ℕ0 → (0..^𝑆) ⊆ (0..^(𝑆 + 1)))
108	5, 107	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (0..^𝑆) ⊆ (0..^(𝑆 + 1)))
109	108	ad2antrr 733	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (0..^𝑆) ⊆ (0..^(𝑆 + 1)))
110	109	sselda 3917	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^(𝑆 + 1)))
111	93	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑒‘𝑎) ∈ (1...𝑁))
112	1, 111	sselid 3915	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑒‘𝑎) ∈ ℕ)
113		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑒‘𝑎) → ((𝐿‘𝑎)‘𝑦) = ((𝐿‘𝑎)‘(𝑒‘𝑎)))
114	113	eleq1d 2826	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑒‘𝑎) → (((𝐿‘𝑎)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ))
115	73, 114	rspc2v 3573	. . . . . . . . . 10 ⊢ ((𝑎 ∈ (0..^(𝑆 + 1)) ∧ (𝑒‘𝑎) ∈ ℕ) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ))
116	110, 112, 115	syl2anc 591	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ))
117	106, 116	mpd 15	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘(𝑒‘𝑎)) ∈ ℂ)
118	104, 117	eqeltrd 2841	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) ∈ ℂ)
119		fveq2 6831	. . . . . . . 8 ⊢ (𝑎 = 𝑆 → (𝐿‘𝑎) = (𝐿‘𝑆))
120		fveq2 6831	. . . . . . . 8 ⊢ (𝑎 = 𝑆 → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎) = ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))
121	119, 120	fveq12d 6838	. . . . . . 7 ⊢ (𝑎 = 𝑆 → ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆)))
122	50	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((0..^𝑆) ∩ {𝑆}) = ∅)
123		snidg 4595	. . . . . . . . . . . 12 ⊢ (𝑆 ∈ ℕ0 → 𝑆 ∈ {𝑆})
124	88, 123	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑆 ∈ {𝑆})
125		fvun2 6923	. . . . . . . . . . 11 ⊢ ((𝑒 Fn (0..^𝑆) ∧ {⟨𝑆, 𝑏⟩} Fn {𝑆} ∧ (((0..^𝑆) ∩ {𝑆}) = ∅ ∧ 𝑆 ∈ {𝑆})) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆) = ({⟨𝑆, 𝑏⟩}‘𝑆))
126	94, 98, 122, 124, 125	syl112anc 1383	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆) = ({⟨𝑆, 𝑏⟩}‘𝑆))
127		fvsng 7128	. . . . . . . . . . 11 ⊢ ((𝑆 ∈ ℕ0 ∧ 𝑏 ∈ (1...𝑁)) → ({⟨𝑆, 𝑏⟩}‘𝑆) = 𝑏)
128	88, 96, 127	syl2anc 591	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ({⟨𝑆, 𝑏⟩}‘𝑆) = 𝑏)
129	126, 128	eqtrd 2776	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆) = 𝑏)
130	129	fveq2d 6835	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆)) = ((𝐿‘𝑆)‘𝑏))
131		fzonn0p1 13692	. . . . . . . . . . . 12 ⊢ (𝑆 ∈ ℕ0 → 𝑆 ∈ (0..^(𝑆 + 1)))
132	5, 131	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ∈ (0..^(𝑆 + 1)))
133	132	ad2antrr 733	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑆 ∈ (0..^(𝑆 + 1)))
134	1, 96	sselid 3915	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → 𝑏 ∈ ℕ)
135		fveq2 6831	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑆 → (𝐿‘𝑥) = (𝐿‘𝑆))
136	135	fveq1d 6833	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑆 → ((𝐿‘𝑥)‘𝑦) = ((𝐿‘𝑆)‘𝑦))
137	136	eleq1d 2826	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑆 → (((𝐿‘𝑥)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑆)‘𝑦) ∈ ℂ))
138		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑏 → ((𝐿‘𝑆)‘𝑦) = ((𝐿‘𝑆)‘𝑏))
139	138	eleq1d 2826	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑏 → (((𝐿‘𝑆)‘𝑦) ∈ ℂ ↔ ((𝐿‘𝑆)‘𝑏) ∈ ℂ))
140	137, 139	rspc2v 3573	. . . . . . . . . 10 ⊢ ((𝑆 ∈ (0..^(𝑆 + 1)) ∧ 𝑏 ∈ ℕ) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑆)‘𝑏) ∈ ℂ))
141	133, 134, 140	syl2anc 591	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (∀𝑥 ∈ (0..^(𝑆 + 1))∀𝑦 ∈ ℕ ((𝐿‘𝑥)‘𝑦) ∈ ℂ → ((𝐿‘𝑆)‘𝑏) ∈ ℂ))
142	105, 141	mpd 15	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝐿‘𝑆)‘𝑏) ∈ ℂ)
143	130, 142	eqeltrd 2841	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆)) ∈ ℂ)
144	84, 85, 87, 88, 89, 118, 121, 143	fprodsplitsn 15949	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ ((0..^𝑆) ∪ {𝑆})((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) · ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))))
145	104	prodeq2dv 15882	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)))
146	145, 130	oveq12d 7378	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) · ((𝐿‘𝑆)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑆))) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
147	83, 144, 146	3eqtrd 2780	. . . . 5 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
148	147	sumeq2dv 15659	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
149		simpl 484	. . . . . . . 8 ⊢ ((𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → 𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}))
150	149	fveq1d 6833	. . . . . . 7 ⊢ ((𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → (𝑑‘𝑎) = ((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎))
151	150	fveq2d 6835	. . . . . 6 ⊢ ((𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∧ 𝑎 ∈ (0..^(𝑆 + 1))) → ((𝐿‘𝑎)‘(𝑑‘𝑎)) = ((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
152	151	prodeq2dv 15882	. . . . 5 ⊢ (𝑑 = (𝑒 ∪ {⟨𝑆, 𝑏⟩}) → ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = ∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
153	25, 26, 5, 28, 6	actfunsnf1o 34800	. . . . 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 486	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑣 = 𝑒) → 𝑣 = 𝑒)
156	155	uneq1d 4100	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) ∧ 𝑣 = 𝑒) → (𝑣 ∪ {⟨𝑆, 𝑏⟩}) = (𝑒 ∪ {⟨𝑆, 𝑏⟩}))
157		vex 3437	. . . . . . . 8 ⊢ 𝑒 ∈ V
158	157, 63	unex 7691	. . . . . . 7 ⊢ (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∈ V
159	158	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → (𝑒 ∪ {⟨𝑆, 𝑏⟩}) ∈ V)
160	154, 156, 92, 159	fvmptd 6947	. . . . 5 ⊢ (((𝜑 ∧ 𝑏 ∈ (1...𝑁)) ∧ 𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))) → ((𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))‘𝑒) = (𝑒 ∪ {⟨𝑆, 𝑏⟩}))
161	152, 18, 153, 160, 79	fsumf1o 15680	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘((𝑒 ∪ {⟨𝑆, 𝑏⟩})‘𝑎)))
162		simpl 484	. . . . . . . . . 10 ⊢ ((𝑑 = 𝑒 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑑 = 𝑒)
163	162	fveq1d 6833	. . . . . . . . 9 ⊢ ((𝑑 = 𝑒 ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = (𝑒‘𝑎))
164	163	fveq2d 6835	. . . . . . . 8 ⊢ ((𝑑 = 𝑒 ∧ 𝑎 ∈ (0..^𝑆)) → ((𝐿‘𝑎)‘(𝑑‘𝑎)) = ((𝐿‘𝑎)‘(𝑒‘𝑎)))
165	164	prodeq2dv 15882	. . . . . . 7 ⊢ (𝑑 = 𝑒 → ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) = ∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)))
166	165	oveq1d 7375	. . . . . 6 ⊢ (𝑑 = 𝑒 → (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)) = (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
167	166	cbvsumv 15653	. . . . 5 ⊢ Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏))
168	167	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)) = Σ𝑒 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑒‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
169	148, 161, 168	3eqtr4d 2786	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ (1...𝑁)) → Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
170	169	sumeq2dv 15659	. 2 ⊢ (𝜑 → Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ran (𝑣 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏)) ↦ (𝑣 ∪ {⟨𝑆, 𝑏⟩}))∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))
171	8, 81, 170	3eqtrd 2780	1 ⊢ (𝜑 → Σ𝑑 ∈ ((1...𝑁)(repr‘(𝑆 + 1))𝑀)∏𝑎 ∈ (0..^(𝑆 + 1))((𝐿‘𝑎)‘(𝑑‘𝑎)) = Σ𝑏 ∈ (1...𝑁)Σ𝑑 ∈ ((1...𝑁)(repr‘𝑆)(𝑀 − 𝑏))(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑑‘𝑎)) · ((𝐿‘𝑆)‘𝑏)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 397   = wceq 1548   ∈ wcel 2121  ∀wral 3055  ∃wrex 3065  {crab 3393  Vcvv 3433   ∪ cun 3883   ∩ cin 3884   ⊆ wss 3885  ∅c0 4264  {csn 4558  ⟨cop 4564  ∪ ciun 4924   class class class wbr 5075   ↦ cmpt 5156  ran crn 5622   Fn wfn 6484  ⟶wf 6485  ‘cfv 6489  (class class class)co 7360   ↑_m cmap 8767  Fincfn 8887  ℂcc 11031  0cc0 11033  1c1 11034   + caddc 11036   · cmul 11038   ≤ cle 11175   − cmin 11372  ℕcn 12169  ℕ₀cn0 12432  ℤcz 12519  ℤ_≥cuz 12783  ...cfz 13456  ..^cfzo 13603  Σcsu 15643  ∏cprod 15863  reprcrepr 34804

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5202  ax-sep 5221  ax-nul 5231  ax-pow 5297  ax-pr 5365  ax-un 7682  ax-inf2 9557  ax-cnex 11089  ax-resscn 11090  ax-1cn 11091  ax-icn 11092  ax-addcl 11093  ax-addrcl 11094  ax-mulcl 11095  ax-mulrcl 11096  ax-mulcom 11097  ax-addass 11098  ax-mulass 11099  ax-distr 11100  ax-i2m1 11101  ax-1ne0 11102  ax-1rid 11103  ax-rnegex 11104  ax-rrecex 11105  ax-cnre 11106  ax-pre-lttri 11107  ax-pre-lttrn 11108  ax-pre-ltadd 11109  ax-pre-mulgt0 11110  ax-pre-sup 11111

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-nel 3041  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4265  df-if 4458  df-pw 4534  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-int 4881  df-iun 4926  df-disj 5043  df-br 5076  df-opab 5138  df-mpt 5157  df-tr 5183  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-se 5575  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-isom 6498  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-pm 8770  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-sup 9349  df-oi 9419  df-card 9858  df-pnf 11176  df-mnf 11177  df-xr 11178  df-ltxr 11179  df-le 11180  df-sub 11374  df-neg 11375  df-div 11803  df-nn 12170  df-2 12239  df-3 12240  df-n0 12433  df-z 12520  df-uz 12784  df-rp 12938  df-fz 13457  df-fzo 13604  df-seq 13959  df-exp 14019  df-hash 14288  df-cj 15056  df-re 15057  df-im 15058  df-sqrt 15192  df-abs 15193  df-clim 15445  df-sum 15644  df-prod 15864  df-repr 34805

This theorem is referenced by:  breprexplemc  34828