Theorem mdetunilem9 22114

Description: Lemma for mdetuni 22116. (Contributed by SO, 15-Jul-2018.)

Hypotheses

Ref	Expression
mdetuni.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
mdetuni.b	⊢ 𝐵 = (Base‘𝐴)
mdetuni.k	⊢ 𝐾 = (Base‘𝑅)
mdetuni.0g	⊢ 0 = (0g‘𝑅)
mdetuni.1r	⊢ 1 = (1r‘𝑅)
mdetuni.pg	⊢ + = (+g‘𝑅)
mdetuni.tg	⊢ · = (.r‘𝑅)
mdetuni.n	⊢ (𝜑 → 𝑁 ∈ Fin)
mdetuni.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mdetuni.ff	⊢ (𝜑 → 𝐷:𝐵⟶𝐾)
mdetuni.al	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝑁 ∀𝑧 ∈ 𝑁 ((𝑦 ≠ 𝑧 ∧ ∀𝑤 ∈ 𝑁 (𝑦𝑥𝑤) = (𝑧𝑥𝑤)) → (𝐷‘𝑥) = 0 ))
mdetuni.li	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
mdetuni.sc	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))))
mdetunilem9.id	⊢ (𝜑 → (𝐷‘(1r‘𝐴)) = 0 )
mdetunilem9.y	⊢ 𝑌 = {𝑥 ∣ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )}

Assertion

Ref	Expression
mdetunilem9	⊢ (𝜑 → 𝐷 = (𝐵 × { 0 }))

Distinct variable groups:   𝜑,𝑥,𝑦,𝑧,𝑤   𝑥,𝐵,𝑦,𝑧,𝑤   𝑥,𝐾,𝑦,𝑧,𝑤   𝑥,𝑁,𝑦,𝑧,𝑤   𝑥,𝐷,𝑦,𝑧,𝑤   𝑥, · ,𝑦,𝑧,𝑤   𝑥, + ,𝑦,𝑧,𝑤   𝑥, 0 ,𝑦,𝑧,𝑤   𝑥, 1 ,𝑦,𝑧,𝑤   𝑥,𝑅,𝑦,𝑧,𝑤   𝑥,𝐴,𝑦,𝑧,𝑤

Allowed substitution hints:   𝑌(𝑥,𝑦,𝑧,𝑤)

Proof of Theorem mdetunilem9

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ral0 4512	. . . 4 ⊢ ∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )
2		simpr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → 𝑎 ∈ 𝐵)
3		f1oi 6869	. . . . . . . 8 ⊢ ( I ↾ 𝑁):𝑁–1-1-onto→𝑁
4		f1of 6831	. . . . . . . 8 ⊢ (( I ↾ 𝑁):𝑁–1-1-onto→𝑁 → ( I ↾ 𝑁):𝑁⟶𝑁)
5	3, 4	mp1i 13	. . . . . . 7 ⊢ (𝜑 → ( I ↾ 𝑁):𝑁⟶𝑁)
6		mdetuni.n	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ Fin)
7	6, 6	elmapd 8831	. . . . . . 7 ⊢ (𝜑 → (( I ↾ 𝑁) ∈ (𝑁 ↑m 𝑁) ↔ ( I ↾ 𝑁):𝑁⟶𝑁))
8	5, 7	mpbird 257	. . . . . 6 ⊢ (𝜑 → ( I ↾ 𝑁) ∈ (𝑁 ↑m 𝑁))
9	8	adantr 482	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ( I ↾ 𝑁) ∈ (𝑁 ↑m 𝑁))
10		simplrl 776	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → 𝑦 ∈ 𝐵)
11		mdetuni.a	. . . . . . . . . . . . . . . . 17 ⊢ 𝐴 = (𝑁 Mat 𝑅)
12		mdetuni.k	. . . . . . . . . . . . . . . . 17 ⊢ 𝐾 = (Base‘𝑅)
13		mdetuni.b	. . . . . . . . . . . . . . . . 17 ⊢ 𝐵 = (Base‘𝐴)
14	11, 12, 13	matbas2i 21916	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ 𝐵 → 𝑦 ∈ (𝐾 ↑m (𝑁 × 𝑁)))
15		elmapi 8840	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ (𝐾 ↑m (𝑁 × 𝑁)) → 𝑦:(𝑁 × 𝑁)⟶𝐾)
16	14, 15	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ 𝐵 → 𝑦:(𝑁 × 𝑁)⟶𝐾)
17	16	feqmptd 6958	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ 𝐵 → 𝑦 = (𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤)))
18	17	fveq2d 6893	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐵 → (𝐷‘𝑦) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))))
19	10, 18	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘𝑦) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))))
20		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (𝑁 × 𝑁) = (𝑁 × 𝑁)
21		mpteq12 5240	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 × 𝑁) = (𝑁 × 𝑁) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤)) = (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 )))
22	21	fveq2d 6893	. . . . . . . . . . . . . 14 ⊢ (((𝑁 × 𝑁) = (𝑁 × 𝑁) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
23	20, 22	mpan 689	. . . . . . . . . . . . 13 ⊢ (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
24	23	adantl 483	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
25		eleq1 2822	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 = 𝑧 → (𝑎 ∈ (𝑁 ↑m 𝑁) ↔ 𝑧 ∈ (𝑁 ↑m 𝑁)))
26	25	anbi2d 630	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = 𝑧 → ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) ↔ (𝜑 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))))
27		elequ2 2122	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑧 → (𝑤 ∈ 𝑎 ↔ 𝑤 ∈ 𝑧))
28	27	ifbid 4551	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑧 → if(𝑤 ∈ 𝑎, 1 , 0 ) = if(𝑤 ∈ 𝑧, 1 , 0 ))
29	28	mpteq2dv 5250	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑎 = 𝑧 → (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 )) = (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 )))
30	29	fveq2d 6893	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 = 𝑧 → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
31	30	eqeq1d 2735	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = 𝑧 → ((𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = 0 ↔ (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 ))
32	26, 31	imbi12d 345	. . . . . . . . . . . . . . 15 ⊢ (𝑎 = 𝑧 → (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = 0 ) ↔ ((𝜑 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )))
33		eleq1 2822	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑤 = ⟨𝑏, 𝑐⟩ → (𝑤 ∈ 𝑎 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
34	33	ifbid 4551	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑤 = ⟨𝑏, 𝑐⟩ → if(𝑤 ∈ 𝑎, 1 , 0 ) = if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ))
35	34	mpompt 7519	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 )) = (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ))
36		elmapi 8840	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 ∈ (𝑁 ↑m 𝑁) → 𝑎:𝑁⟶𝑁)
37	36	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → 𝑎:𝑁⟶𝑁)
38	37	ffnd 6716	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → 𝑎 Fn 𝑁)
39	38	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → 𝑎 Fn 𝑁)
40		simp2 1138	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → 𝑏 ∈ 𝑁)
41		fnopfvb 6943	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑎 Fn 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎‘𝑏) = 𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
42	39, 40, 41	syl2anc 585	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → ((𝑎‘𝑏) = 𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
43	42	bicomd 222	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → (⟨𝑏, 𝑐⟩ ∈ 𝑎 ↔ (𝑎‘𝑏) = 𝑐))
44	43	ifbid 4551	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ) = if((𝑎‘𝑏) = 𝑐, 1 , 0 ))
45	44	mpoeq3dva 7483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 )) = (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 )))
46	35, 45	eqtrid 2785	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 )) = (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 )))
47	46	fveq2d 6893	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = (𝐷‘(𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 ))))
48		mdetuni.0g	. . . . . . . . . . . . . . . . . 18 ⊢ 0 = (0g‘𝑅)
49		mdetuni.1r	. . . . . . . . . . . . . . . . . 18 ⊢ 1 = (1r‘𝑅)
50		mdetuni.pg	. . . . . . . . . . . . . . . . . 18 ⊢ + = (+g‘𝑅)
51		mdetuni.tg	. . . . . . . . . . . . . . . . . 18 ⊢ · = (.r‘𝑅)
52		mdetuni.r	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑅 ∈ Ring)
53		mdetuni.ff	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐷:𝐵⟶𝐾)
54		mdetuni.al	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝑁 ∀𝑧 ∈ 𝑁 ((𝑦 ≠ 𝑧 ∧ ∀𝑤 ∈ 𝑁 (𝑦𝑥𝑤) = (𝑧𝑥𝑤)) → (𝐷‘𝑥) = 0 ))
55		mdetuni.li	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
56		mdetuni.sc	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))))
57		mdetunilem9.id	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐷‘(1r‘𝐴)) = 0 )
58	11, 13, 12, 48, 49, 50, 51, 6, 52, 53, 54, 55, 56, 57	mdetunilem8 22113	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑎:𝑁⟶𝑁) → (𝐷‘(𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 ))) = 0 )
59	36, 58	sylan2 594	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → (𝐷‘(𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 ))) = 0 )
60	47, 59	eqtrd 2773	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = 0 )
61	32, 60	chvarvv 2003	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )
62	61	adantrl 715	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )
63	62	adantr 482	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )
64	19, 24, 63	3eqtrd 2777	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘𝑦) = 0 )
65	64	ex 414	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑m 𝑁))) → (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
66	65	ralrimivva 3201	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
67		xpfi 9314	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑁 ∈ Fin) → (𝑁 × 𝑁) ∈ Fin)
68	6, 6, 67	syl2anc 585	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 × 𝑁) ∈ Fin)
69		raleq 3323	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑁 × 𝑁) → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
70	69	imbi1d 342	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑁 × 𝑁) → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
71	70	2ralbidv 3219	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑁 × 𝑁) → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
72		mdetunilem9.y	. . . . . . . . . . 11 ⊢ 𝑌 = {𝑥 ∣ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )}
73	71, 72	elab2g 3670	. . . . . . . . . 10 ⊢ ((𝑁 × 𝑁) ∈ Fin → ((𝑁 × 𝑁) ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
74	68, 73	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 × 𝑁) ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
75	66, 74	mpbird 257	. . . . . . . 8 ⊢ (𝜑 → (𝑁 × 𝑁) ∈ 𝑌)
76		ssid 4004	. . . . . . . . 9 ⊢ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁)
77	68	3ad2ant1 1134	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (𝑁 × 𝑁) ∈ Fin)
78		sseq1 4007	. . . . . . . . . . . . . 14 ⊢ (𝑎 = ∅ → (𝑎 ⊆ (𝑁 × 𝑁) ↔ ∅ ⊆ (𝑁 × 𝑁)))
79	78	3anbi2d 1442	. . . . . . . . . . . . 13 ⊢ (𝑎 = ∅ → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
80		eleq1 2822	. . . . . . . . . . . . . 14 ⊢ (𝑎 = ∅ → (𝑎 ∈ 𝑌 ↔ ∅ ∈ 𝑌))
81	80	notbid 318	. . . . . . . . . . . . 13 ⊢ (𝑎 = ∅ → (¬ 𝑎 ∈ 𝑌 ↔ ¬ ∅ ∈ 𝑌))
82	79, 81	imbi12d 345	. . . . . . . . . . . 12 ⊢ (𝑎 = ∅ → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ ∅ ∈ 𝑌)))
83		sseq1 4007	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑏 → (𝑎 ⊆ (𝑁 × 𝑁) ↔ 𝑏 ⊆ (𝑁 × 𝑁)))
84	83	3anbi2d 1442	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑏 → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
85		eleq1 2822	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑏 → (𝑎 ∈ 𝑌 ↔ 𝑏 ∈ 𝑌))
86	85	notbid 318	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑏 → (¬ 𝑎 ∈ 𝑌 ↔ ¬ 𝑏 ∈ 𝑌))
87	84, 86	imbi12d 345	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑏 → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌)))
88		sseq1 4007	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎 ⊆ (𝑁 × 𝑁) ↔ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)))
89	88	3anbi2d 1442	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
90		eleq1 2822	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎 ∈ 𝑌 ↔ (𝑏 ∪ {𝑐}) ∈ 𝑌))
91	90	notbid 318	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (¬ 𝑎 ∈ 𝑌 ↔ ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌))
92	89, 91	imbi12d 345	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌)))
93		sseq1 4007	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑁 × 𝑁) → (𝑎 ⊆ (𝑁 × 𝑁) ↔ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁)))
94	93	3anbi2d 1442	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑁 × 𝑁) → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
95		eleq1 2822	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑁 × 𝑁) → (𝑎 ∈ 𝑌 ↔ (𝑁 × 𝑁) ∈ 𝑌))
96	95	notbid 318	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑁 × 𝑁) → (¬ 𝑎 ∈ 𝑌 ↔ ¬ (𝑁 × 𝑁) ∈ 𝑌))
97	94, 96	imbi12d 345	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑁 × 𝑁) → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌)))
98		simp3 1139	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ ∅ ∈ 𝑌)
99		ssun1 4172	. . . . . . . . . . . . . . . 16 ⊢ 𝑏 ⊆ (𝑏 ∪ {𝑐})
100		sstr2 3989	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 ⊆ (𝑏 ∪ {𝑐}) → ((𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) → 𝑏 ⊆ (𝑁 × 𝑁)))
101	99, 100	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) → 𝑏 ⊆ (𝑁 × 𝑁))
102	101	3anim2i 1154	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌))
103	102	imim1i 63	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌) → ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌))
104		simpl1 1192	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝜑)
105		simpl2 1193	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
106		simprll 778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑎 ∈ 𝐵)
107	11, 12, 13	matbas2i 21916	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑎 ∈ 𝐵 → 𝑎 ∈ (𝐾 ↑m (𝑁 × 𝑁)))
108		elmapi 8840	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑎 ∈ (𝐾 ↑m (𝑁 × 𝑁)) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
109	107, 108	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑎 ∈ 𝐵 → 𝑎:(𝑁 × 𝑁)⟶𝐾)
110	109	3ad2ant3 1136	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
111	110	feqmptd 6958	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑎 = (𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)))
112	111	reseq1d 5979	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ({(1st ‘𝑐)} × 𝑁)))
113	52	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑅 ∈ Ring)
114		ringgrp 20055	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
115	113, 114	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑅 ∈ Grp)
116	115	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → 𝑅 ∈ Grp)
117	110	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
118		simp2 1138	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
119	118	unssbd 4188	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → {𝑐} ⊆ (𝑁 × 𝑁))
120		vex 3479	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ 𝑐 ∈ V
121	120	snss 4789	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑐 ∈ (𝑁 × 𝑁) ↔ {𝑐} ⊆ (𝑁 × 𝑁))
122	119, 121	sylibr 233	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑐 ∈ (𝑁 × 𝑁))
123		xp1st 8004	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (𝑐 ∈ (𝑁 × 𝑁) → (1st ‘𝑐) ∈ 𝑁)
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (1st ‘𝑐) ∈ 𝑁)
125	124	snssd 4812	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → {(1st ‘𝑐)} ⊆ 𝑁)
126		xpss1 5695	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ({(1st ‘𝑐)} ⊆ 𝑁 → ({(1st ‘𝑐)} × 𝑁) ⊆ (𝑁 × 𝑁))
127	125, 126	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ({(1st ‘𝑐)} × 𝑁) ⊆ (𝑁 × 𝑁))
128	127	sselda 3982	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → 𝑒 ∈ (𝑁 × 𝑁))
129	117, 128	ffvelcdmd 7085	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) ∈ 𝐾)
130	12, 49	ringidcl 20077	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑅 ∈ Ring → 1 ∈ 𝐾)
131	113, 130	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 1 ∈ 𝐾)
132	12, 48	ring0cl 20078	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑅 ∈ Ring → 0 ∈ 𝐾)
133	113, 132	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 0 ∈ 𝐾)
134	131, 133	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
135	134	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
136		eqid 2733	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (-g‘𝑅) = (-g‘𝑅)
137	12, 50, 136	grpnpcan 18912	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑒) ∈ 𝐾 ∧ if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾) → (((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )) = (𝑎‘𝑒))
138	116, 129, 135, 137	syl3anc 1372	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )) = (𝑎‘𝑒))
139	138	eqcomd 2739	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) = (((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
140	139	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (𝑎‘𝑒) = (((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
141		iftrue 4534	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )))
142		iftrue 4534	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = if(𝑒 ∈ 𝑑, 1 , 0 ))
143	141, 142	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 = 𝑐 → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
144	143	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
145	140, 144	eqtr4d 2776	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (𝑎‘𝑒) = (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
146	12, 50, 48	grplid 18849	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑒) ∈ 𝐾) → ( 0 + (𝑎‘𝑒)) = (𝑎‘𝑒))
147	116, 129, 146	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → ( 0 + (𝑎‘𝑒)) = (𝑎‘𝑒))
148	147	eqcomd 2739	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) = ( 0 + (𝑎‘𝑒)))
149	148	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (𝑎‘𝑒) = ( 0 + (𝑎‘𝑒)))
150		iffalse 4537	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (¬ 𝑒 = 𝑐 → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = 0 )
151		iffalse 4537	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (¬ 𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
152	150, 151	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (¬ 𝑒 = 𝑐 → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = ( 0 + (𝑎‘𝑒)))
153	152	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = ( 0 + (𝑎‘𝑒)))
154	149, 153	eqtr4d 2776	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (𝑎‘𝑒) = (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
155	145, 154	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) = (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
156	155	mpteq2dva 5248	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (𝑎‘𝑒)) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
157		snfi 9041	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ {(1st ‘𝑐)} ∈ Fin
158	6	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑁 ∈ Fin)
159		xpfi 9314	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (({(1st ‘𝑐)} ∈ Fin ∧ 𝑁 ∈ Fin) → ({(1st ‘𝑐)} × 𝑁) ∈ Fin)
160	157, 158, 159	sylancr 588	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ({(1st ‘𝑐)} × 𝑁) ∈ Fin)
161		ovex 7439	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) ∈ V
162	48	fvexi 6903	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ 0 ∈ V
163	161, 162	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) ∈ V
164	163	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) ∈ V)
165	49	fvexi 6903	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ 1 ∈ V
166	165, 162	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ V
167		fvex 6902	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑎‘𝑒) ∈ V
168	166, 167	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) ∈ V
169	168	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) ∈ V)
170		xp1st 8004	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) → (1st ‘𝑒) ∈ {(1st ‘𝑐)})
171		elsni 4645	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((1st ‘𝑒) ∈ {(1st ‘𝑐)} → (1st ‘𝑒) = (1st ‘𝑐))
172		iftrue 4534	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((1st ‘𝑒) = (1st ‘𝑐) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
173	170, 171, 172	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
174	173	mpteq2ia 5251	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
175	174	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 )))
176		eqidd 2734	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
177	160, 164, 169, 175, 176	offval2 7687	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∘f + (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
178	156, 177	eqtr4d 2776	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (𝑎‘𝑒)) = ((𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∘f + (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
179	127	resmptd 6039	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ({(1st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (𝑎‘𝑒)))
180	127	resmptd 6039	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))))
181	127	resmptd 6039	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
182	180, 181	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) = ((𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∘f + (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
183	178, 179, 182	3eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))))
184	112, 183	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))))
185	111	reseq1d 5979	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
186		xp1st 8004	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) → (1st ‘𝑒) ∈ (𝑁 ∖ {(1st ‘𝑐)}))
187		eldifsni 4793	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((1st ‘𝑒) ∈ (𝑁 ∖ {(1st ‘𝑐)}) → (1st ‘𝑒) ≠ (1st ‘𝑐))
188	186, 187	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) → (1st ‘𝑒) ≠ (1st ‘𝑐))
189	188	neneqd 2946	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) → ¬ (1st ‘𝑒) = (1st ‘𝑐))
190	189	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) → ¬ (1st ‘𝑒) = (1st ‘𝑐))
191	190	iffalsed 4539	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
192	191	mpteq2dva 5248	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
193		difss 4131	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑁 ∖ {(1st ‘𝑐)}) ⊆ 𝑁
194		xpss1 5695	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∖ {(1st ‘𝑐)}) ⊆ 𝑁 → ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁))
195	193, 194	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁)
196		resmpt 6036	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))))
197	195, 196	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))))
198		resmpt 6036	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
199	195, 198	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
200	192, 197, 199	3eqtr4rd 2784	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
201	185, 200	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
202		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑒 = 𝑐 → (1st ‘𝑒) = (1st ‘𝑐))
203	190, 202	nsyl 140	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) → ¬ 𝑒 = 𝑐)
204	203	iffalsed 4539	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
205	204	mpteq2dva 5248	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
206		resmpt 6036	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
207	195, 206	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
208	205, 207, 199	3eqtr4rd 2784	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
209	185, 208	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
210	134	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
211	110	ffvelcdmda 7084	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → (𝑎‘𝑒) ∈ 𝐾)
212	210, 211	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) ∈ 𝐾)
213	212	fmpttd 7112	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾)
214	12	fvexi 6903	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝐾 ∈ V
215	67	anidms 568	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑁 ∈ Fin → (𝑁 × 𝑁) ∈ Fin)
216	158, 215	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑁 × 𝑁) ∈ Fin)
217		elmapg 8830	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
218	214, 216, 217	sylancr 588	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
219	213, 218	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)))
220	11, 12	matbas2 21915	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝐾 ↑m (𝑁 × 𝑁)) = (Base‘𝐴))
221	158, 113, 220	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐾 ↑m (𝑁 × 𝑁)) = (Base‘𝐴))
222	221, 13	eqtr4di 2791	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐾 ↑m (𝑁 × 𝑁)) = 𝐵)
223	219, 222	eleqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
224		simp3 1139	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑎 ∈ 𝐵)
225	115	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → 𝑅 ∈ Grp)
226	12, 136	grpsubcl 18900	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑒) ∈ 𝐾 ∧ if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾) → ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
227	225, 211, 210, 226	syl3anc 1372	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
228	133	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → 0 ∈ 𝐾)
229	227, 228	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) ∈ 𝐾)
230	229, 211	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) ∈ 𝐾)
231	230	fmpttd 7112	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾)
232		elmapg 8830	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
233	214, 216, 232	sylancr 588	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
234	231, 233	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)))
235	234, 222	eleqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ 𝐵)
236	55	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
237		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = 𝑎 → (𝑥 ↾ ({𝑤} × 𝑁)) = (𝑎 ↾ ({𝑤} × 𝑁)))
238	237	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = 𝑎 → ((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁)))))
239		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = 𝑎 → (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
240	239	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = 𝑎 → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
241	239	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = 𝑎 → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
242	238, 240, 241	3anbi123d 1437	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑥 = 𝑎 → (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
243		fveqeq2 6898	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑥 = 𝑎 → ((𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧)) ↔ (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
244	242, 243	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑥 = 𝑎 → ((((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧)))))
245	244	2ralbidv 3219	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑥 = 𝑎 → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧)))))
246		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑦 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
247	246	oveq1d 7421	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))))
248	247	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁)))))
249		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
250	249	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
251	248, 250	3anbi12d 1438	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
252		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝐷‘𝑦) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))))
253	252	oveq1d 7421	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑦) + (𝐷‘𝑧)) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))
254	253	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧)) ↔ (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))))
255	251, 254	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))))
256	255	2ralbidv 3219	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))))
257	245, 256	rspc2va 3623	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑎 ∈ 𝐵 ∧ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧)))) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))))
258	224, 235, 236, 257	syl21anc 837	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))))
259		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
260	259	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))))
261	260	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))))
262		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
263	262	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
264	261, 263	3anbi13d 1439	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
265		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝐷‘𝑧) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
266	265	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
267	266	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)) ↔ (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))))
268	264, 267	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))))
269		sneq 4638	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1st ‘𝑐) → {𝑤} = {(1st ‘𝑐)})
270	269	xpeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1st ‘𝑐) → ({𝑤} × 𝑁) = ({(1st ‘𝑐)} × 𝑁))
271	270	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → (𝑎 ↾ ({𝑤} × 𝑁)) = (𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)))
272	270	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)))
273	270	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)))
274	272, 273	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))))
275	271, 274	eqeq12d 2749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)))))
276	269	difeq2d 4122	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1st ‘𝑐) → (𝑁 ∖ {𝑤}) = (𝑁 ∖ {(1st ‘𝑐)}))
277	276	xpeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑁 ∖ {𝑤}) × 𝑁) = ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))
278	277	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
279	277	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
280	278, 279	eqeq12d 2749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))))
281	277	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
282	278, 281	eqeq12d 2749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))))
283	275, 280, 282	3anbi123d 1437	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑤 = (1st ‘𝑐) → (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))))
284	283	imbi1d 342	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑤 = (1st ‘𝑐) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))) ↔ (((𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))))
285	268, 284	rspc2va 3623	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ (1st ‘𝑐) ∈ 𝑁) ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))) → (((𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))))
286	223, 124, 258, 285	syl21anc 837	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑎 ↾ ({(1st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) ∘f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))))
287	184, 201, 209, 286	mp3and 1465	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
288	104, 105, 106, 287	syl3anc 1372	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
289		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 = 𝑐 → (𝑎‘𝑒) = (𝑎‘𝑐))
290		elequ1 2114	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑒 = 𝑐 → (𝑒 ∈ 𝑑 ↔ 𝑐 ∈ 𝑑))
291	290	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 = 𝑐 → if(𝑒 ∈ 𝑑, 1 , 0 ) = if(𝑐 ∈ 𝑑, 1 , 0 ))
292	289, 291	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
293	292	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
294	110, 122	ffvelcdmd 7085	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎‘𝑐) ∈ 𝐾)
295	131, 133	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → if(𝑐 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
296	12, 136	grpsubcl 18900	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑐) ∈ 𝐾 ∧ if(𝑐 ∈ 𝑑, 1 , 0 ) ∈ 𝐾) → ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
297	115, 294, 295, 296	syl3anc 1372	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
298	12, 51, 49	ringridm 20081	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Ring ∧ ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ) = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
299	113, 297, 298	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ) = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
300	299	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ) = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
301	293, 300	eqtr4d 2776	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ))
302	141	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )))
303		iftrue 4534	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, 1 , 0 ) = 1 )
304	303	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 = 𝑐 → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ))
305	304	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ))
306	301, 302, 305	3eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
307	12, 51, 48	ringrz 20102	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Ring ∧ ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) = 0 )
308	113, 297, 307	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) = 0 )
309	308	eqcomd 2739	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 0 = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
310	309	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → 0 = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
311	150	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = 0 )
312		iffalse 4537	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (¬ 𝑒 = 𝑐 → if(𝑒 = 𝑐, 1 , 0 ) = 0 )
313	312	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (¬ 𝑒 = 𝑐 → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
314	313	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
315	310, 311, 314	3eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
316	306, 315	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
317	170	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (1st ‘𝑒) ∈ {(1st ‘𝑐)})
318	317, 171	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (1st ‘𝑒) = (1st ‘𝑐))
319	318	iftrued 4536	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
320	318	iftrued 4536	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, 1 , 0 ))
321	320	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
322	316, 319, 321	3eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
323	322	mpteq2dva 5248	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))
324		ovexd 7441	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ V)
325	165, 162	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ if(𝑒 = 𝑐, 1 , 0 ) ∈ V
326	325, 167	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) ∈ V
327	326	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1st ‘𝑐)} × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) ∈ V)
328		fconstmpt 5737	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
329	328	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))))
330	127	resmptd 6039	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
331	160, 324, 327, 329, 330	offval2 7687	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) = (𝑒 ∈ ({(1st ‘𝑐)} × 𝑁) ↦ (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))
332	323, 180, 331	3eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))))
333		iffalse 4537	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (¬ (1st ‘𝑒) = (1st ‘𝑐) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
334		iffalse 4537	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (¬ (1st ‘𝑒) = (1st ‘𝑐) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
335	333, 334	eqtr4d 2776	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (¬ (1st ‘𝑒) = (1st ‘𝑐) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))
336	190, 335	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))
337	336	mpteq2dva 5248	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
338		resmpt 6036	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
339	195, 338	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
340	337, 197, 339	3eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
341	131, 133	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → if(𝑒 = 𝑐, 1 , 0 ) ∈ 𝐾)
342	341	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, 1 , 0 ) ∈ 𝐾)
343	342, 211	ifcld 4574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) ∈ 𝐾)
344	343	fmpttd 7112	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾)
345		elmapg 8830	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
346	214, 216, 345	sylancr 588	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
347	344, 346	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑m (𝑁 × 𝑁)))
348	347, 222	eleqtrd 2836	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
349	56	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))))
350		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
351	350	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁)))))
352		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
353	352	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
354	351, 353	anbi12d 632	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
355		fveqeq2 6898	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧))))
356	354, 355	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧)))))
357	356	2ralbidv 3219	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧)))))
358		sneq 4638	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → {𝑦} = {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))})
359	358	xpeq2d 5706	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (({𝑤} × 𝑁) × {𝑦}) = (({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}))
360	359	oveq1d 7421	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))))
361	360	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁)))))
362	361	anbi1d 631	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
363		oveq1 7413	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (𝑦 · (𝐷‘𝑧)) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))
364	363	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))))
365	362, 364	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))))
366	365	2ralbidv 3219	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑦 = ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))))
367	357, 366	rspc2va 3623	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ ((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧)))) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))))
368	235, 297, 349, 367	syl21anc 837	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))))
369		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
370	369	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))))
371	370	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))))
372		reseq1 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
373	372	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
374	371, 373	anbi12d 632	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
375		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝐷‘𝑧) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))
376	375	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))
377	376	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))))
378	374, 377	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))))
379	270	xpeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1st ‘𝑐) → (({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) = (({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}))
380	270	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)))
381	379, 380	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1st ‘𝑐) → ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))))
382	272, 381	eqeq12d 2749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)))))
383	277	reseq2d 5980	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))
384	279, 383	eqeq12d 2749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1st ‘𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))))
385	382, 384	anbi12d 632	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1st ‘𝑐) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)))))
386	385	imbi1d 342	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑤 = (1st ‘𝑐) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))))
387	378, 386	rspc2va 3623	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ (1st ‘𝑐) ∈ 𝑁) ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))))
388	348, 124, 368, 387	syl21anc 837	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁)) = ((({(1st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1st ‘𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))))
389	332, 340, 388	mp2and 698	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))
390	389	oveq1d 7421	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
391	104, 105, 106, 390	syl3anc 1372	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
392		simpl3 1194	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ∈ 𝑌)
393		simprlr 779	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑑 ∈ (𝑁 ↑m 𝑁))
394		simprr 772	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
395		ralss 4054	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑏 ⊆ (𝑏 ∪ {𝑐}) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))))
396	99, 395	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
397		iftrue 4534	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((1st ‘𝑤) = (1st ‘𝑐) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, 1 , 0 ))
398	397	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, 1 , 0 ))
399		ibar 530	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((1st ‘𝑤) = (1st ‘𝑐) → ((2nd ‘𝑤) = (2nd ‘𝑐) ↔ ((1st ‘𝑤) = (1st ‘𝑐) ∧ (2nd ‘𝑤) = (2nd ‘𝑐))))
400	399	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → ((2nd ‘𝑤) = (2nd ‘𝑐) ↔ ((1st ‘𝑤) = (1st ‘𝑐) ∧ (2nd ‘𝑤) = (2nd ‘𝑐))))
401		relxp 5694	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ Rel (𝑁 × 𝑁)
402		simpl2 1193	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
403	402	sselda 3982	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → 𝑤 ∈ (𝑁 × 𝑁))
404	403	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → 𝑤 ∈ (𝑁 × 𝑁))
405		1st2nd 8022	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((Rel (𝑁 × 𝑁) ∧ 𝑤 ∈ (𝑁 × 𝑁)) → 𝑤 = ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩)
406	401, 404, 405	sylancr 588	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → 𝑤 = ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩)
407	406	eleq1d 2819	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
408		simpr 486	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → 𝑑 ∈ (𝑁 ↑m 𝑁))
409		elmapi 8840	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 ⊢ (𝑑 ∈ (𝑁 ↑m 𝑁) → 𝑑:𝑁⟶𝑁)
410	409	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → 𝑑:𝑁⟶𝑁)
411	124	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (1st ‘𝑐) ∈ 𝑁)
412		xp2nd 8005	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 45 ⊢ (𝑐 ∈ (𝑁 × 𝑁) → (2nd ‘𝑐) ∈ 𝑁)
413	122, 412	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (2nd ‘𝑐) ∈ 𝑁)
414	413	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (2nd ‘𝑐) ∈ 𝑁)
415		fsets 17099	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝑑 ∈ (𝑁 ↑m 𝑁) ∧ 𝑑:𝑁⟶𝑁) ∧ (1st ‘𝑐) ∈ 𝑁 ∧ (2nd ‘𝑐) ∈ 𝑁) → (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩):𝑁⟶𝑁)
416	408, 410, 411, 414, 415	syl211anc 1377	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩):𝑁⟶𝑁)
417	416	ffnd 6716	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) Fn 𝑁)
418	417	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) Fn 𝑁)
419		xp1st 8004	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (1st ‘𝑤) ∈ 𝑁)
420	403, 419	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → (1st ‘𝑤) ∈ 𝑁)
421	420	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (1st ‘𝑤) ∈ 𝑁)
422		fnopfvb 6943	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) Fn 𝑁 ∧ (1st ‘𝑤) ∈ 𝑁) → (((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = (2nd ‘𝑤) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
423	418, 421, 422	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = (2nd ‘𝑤) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
424		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ ((1st ‘𝑤) = (1st ‘𝑐) → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑐)))
425	424	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑐)))
426		vex 3479	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ 𝑑 ∈ V
427		fvex 6902	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (1st ‘𝑐) ∈ V
428		fvex 6902	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (2nd ‘𝑐) ∈ V
429		fvsetsid 17098	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ ((𝑑 ∈ V ∧ (1st ‘𝑐) ∈ V ∧ (2nd ‘𝑐) ∈ V) → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑐)) = (2nd ‘𝑐))
430	426, 427, 428, 429	mp3an 1462	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑐)) = (2nd ‘𝑐)
431	425, 430	eqtrdi 2789	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = (2nd ‘𝑐))
432	431	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = (2nd ‘𝑤) ↔ (2nd ‘𝑐) = (2nd ‘𝑤)))
433		eqcom 2740	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((2nd ‘𝑐) = (2nd ‘𝑤) ↔ (2nd ‘𝑤) = (2nd ‘𝑐))
434	432, 433	bitrdi 287	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)‘(1st ‘𝑤)) = (2nd ‘𝑤) ↔ (2nd ‘𝑤) = (2nd ‘𝑐)))
435	407, 423, 434	3bitr2rd 308	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → ((2nd ‘𝑤) = (2nd ‘𝑐) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
436	122	ad3antrrr 729	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → 𝑐 ∈ (𝑁 × 𝑁))
437		xpopth 8013	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ 𝑐 ∈ (𝑁 × 𝑁)) → (((1st ‘𝑤) = (1st ‘𝑐) ∧ (2nd ‘𝑤) = (2nd ‘𝑐)) ↔ 𝑤 = 𝑐))
438	404, 436, 437	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (((1st ‘𝑤) = (1st ‘𝑐) ∧ (2nd ‘𝑤) = (2nd ‘𝑐)) ↔ 𝑤 = 𝑐))
439	400, 435, 438	3bitr3rd 310	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → (𝑤 = 𝑐 ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
440	439	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → if(𝑤 = 𝑐, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
441	398, 440	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
442	441	a1d 25	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st ‘𝑤) = (1st ‘𝑐)) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
443		elsni 4645	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑤 ∈ {𝑐} → 𝑤 = 𝑐)
444	443	fveq2d 6893	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (𝑤 ∈ {𝑐} → (1st ‘𝑤) = (1st ‘𝑐))
445	444	con3i 154	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (¬ (1st ‘𝑤) = (1st ‘𝑐) → ¬ 𝑤 ∈ {𝑐})
446	445	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → ¬ 𝑤 ∈ {𝑐})
447		elun 4148	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (𝑤 ∈ (𝑏 ∪ {𝑐}) ↔ (𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}))
448	447	biimpi 215	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (𝑤 ∈ (𝑏 ∪ {𝑐}) → (𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}))
449	448	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → (𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}))
450		orel2 890	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (¬ 𝑤 ∈ {𝑐} → ((𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}) → 𝑤 ∈ 𝑏))
451	446, 449, 450	sylc 65	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → 𝑤 ∈ 𝑏)
452	451	adantll 713	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → 𝑤 ∈ 𝑏)
453		iffalse 4537	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (¬ (1st ‘𝑤) = (1st ‘𝑐) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ 𝑑, 1 , 0 ))
454	453	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ 𝑑, 1 , 0 ))
455		setsres 17108	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (𝑑 ∈ V → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) = (𝑑 ↾ (V ∖ {(1st ‘𝑐)})))
456	455	eleq2d 2820	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑑 ∈ V → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1st ‘𝑐)}))))
457	426, 456	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1st ‘𝑐)}))))
458		fvex 6902	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (1st ‘𝑤) ∈ V
459	458	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (¬ (1st ‘𝑤) = (1st ‘𝑐) → (1st ‘𝑤) ∈ V)
460		neqne 2949	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (¬ (1st ‘𝑤) = (1st ‘𝑐) → (1st ‘𝑤) ≠ (1st ‘𝑐))
461		eldifsn 4790	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)}) ↔ ((1st ‘𝑤) ∈ V ∧ (1st ‘𝑤) ≠ (1st ‘𝑐)))
462	459, 460, 461	sylanbrc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (¬ (1st ‘𝑤) = (1st ‘𝑐) → (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)}))
463		fvex 6902	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (2nd ‘𝑤) ∈ V
464	463	opres 5990	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)}) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
465	464	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)})) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
466		1st2nd2 8011	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → 𝑤 = ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩)
467	466	eleq1d 2819	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
468	467	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)})) → (𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
469	465, 468	bitr4d 282	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)})) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
470	403, 462, 469	syl2an 597	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ↾ (V ∖ {(1st ‘𝑐)})) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
471	463	opres 5990	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)}) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1st ‘𝑐)})) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ 𝑑))
472	471	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)})) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1st ‘𝑐)})) ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ 𝑑))
473	466	eleq1d 2819	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (𝑤 ∈ 𝑑 ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ 𝑑))
474	473	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)})) → (𝑤 ∈ 𝑑 ↔ ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ 𝑑))
475	472, 474	bitr4d 282	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1st ‘𝑤) ∈ (V ∖ {(1st ‘𝑐)})) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1st ‘𝑐)})) ↔ 𝑤 ∈ 𝑑))
476	403, 462, 475	syl2an 597	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → (⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1st ‘𝑐)})) ↔ 𝑤 ∈ 𝑑))
477	457, 470, 476	3bitr3rd 310	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → (𝑤 ∈ 𝑑 ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
478	477	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → if(𝑤 ∈ 𝑑, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
479	454, 478	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
480		ifeq2 4533	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )))
481	480	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ) ↔ if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
482	479, 481	syl5ibrcom 246	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
483	452, 482	embantd 59	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st ‘𝑤) = (1st ‘𝑐)) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
484	442, 483	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
485		fveqeq2 6898	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑒 = 𝑤 → ((1st ‘𝑒) = (1st ‘𝑐) ↔ (1st ‘𝑤) = (1st ‘𝑐)))
486		equequ1 2029	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (𝑒 = 𝑤 → (𝑒 = 𝑐 ↔ 𝑤 = 𝑐))
487	486	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑒 = 𝑤 → if(𝑒 = 𝑐, 1 , 0 ) = if(𝑤 = 𝑐, 1 , 0 ))
488		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑒 = 𝑤 → (𝑎‘𝑒) = (𝑎‘𝑤))
489	485, 487, 488	ifbieq12d 4556	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑒 = 𝑤 → if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) = if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)))
490		eqid 2733	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))
491	165, 162	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ if(𝑤 = 𝑐, 1 , 0 ) ∈ V
492		fvex 6902	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑎‘𝑤) ∈ V
493	491, 492	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) ∈ V
494	489, 490, 493	fvmpt 6996	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)))
495	494	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ) ↔ if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
496	403, 495	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ) ↔ if((1st ‘𝑤) = (1st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
497	484, 496	sylibrd 259	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
498	497	ralimdva 3168	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
499	396, 498	biimtrid 241	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
500	499	impr 456	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ (𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
501	500	3adantr1 1170	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
502	348	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
503		simpr2 1196	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑑 ∈ (𝑁 ↑m 𝑁))
504	503, 409	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑑:𝑁⟶𝑁)
505	124	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (1st ‘𝑐) ∈ 𝑁)
506	413	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (2nd ‘𝑐) ∈ 𝑁)
507	503, 504, 505, 506, 415	syl211anc 1377	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩):𝑁⟶𝑁)
508	158, 158	elmapd 8831	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ∈ (𝑁 ↑m 𝑁) ↔ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩):𝑁⟶𝑁))
509	508	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ∈ (𝑁 ↑m 𝑁) ↔ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩):𝑁⟶𝑁))
510	507, 509	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ∈ (𝑁 ↑m 𝑁))
511		simpr1 1195	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ∈ 𝑌)
512		raleq 3323	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑥 = (𝑏 ∪ {𝑐}) → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
513	512	imbi1d 342	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑥 = (𝑏 ∪ {𝑐}) → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
514	513	2ralbidv 3219	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = (𝑏 ∪ {𝑐}) → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
515	514, 72	elab2g 3670	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑏 ∪ {𝑐}) ∈ 𝑌 → ((𝑏 ∪ {𝑐}) ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
516	515	ibi 267	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑏 ∪ {𝑐}) ∈ 𝑌 → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
517	511, 516	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
518		fveq1 6888	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝑦‘𝑤) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤))
519	518	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
520	519	ralbidv 3178	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
521		fveqeq2 6898	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑦) = 0 ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
522	520, 521	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
523		eleq2 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑧 = (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩)))
524	523	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑧 = (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) → if(𝑤 ∈ 𝑧, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ))
525	524	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑧 = (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
526	525	ralbidv 3178	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 )))
527	526	imbi1d 342	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
528	522, 527	rspc2va 3623	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩) ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
529	502, 510, 517, 528	syl21anc 837	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1st ‘𝑐), (2nd ‘𝑐)⟩), 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
530	501, 529	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 )
531	530	oveq2d 7422	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) = (((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
532	118	unssad 4187	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑏 ⊆ (𝑁 × 𝑁))
533	532	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑏 ⊆ (𝑁 × 𝑁))
534		simpr3 1197	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
535		ssel2 3977	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) → 𝑤 ∈ (𝑁 × 𝑁))
536	535	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → 𝑤 ∈ (𝑁 × 𝑁))
537		elequ1 2114	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑒 = 𝑤 → (𝑒 ∈ 𝑑 ↔ 𝑤 ∈ 𝑑))
538	537	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑒 = 𝑤 → if(𝑒 ∈ 𝑑, 1 , 0 ) = if(𝑤 ∈ 𝑑, 1 , 0 ))
539	486, 538, 488	ifbieq12d 4556	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 = 𝑤 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)))
540		eqid 2733	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))
541	165, 162	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ if(𝑤 ∈ 𝑑, 1 , 0 ) ∈ V
542	541, 492	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) ∈ V
543	539, 540, 542	fvmpt 6996	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)))
544	536, 543	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)))
545		ifeq2 4533	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )))
546	545	adantl 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )))
547		ifid 4568	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ 𝑑, 1 , 0 )
548	546, 547	eqtrdi 2789	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ 𝑑, 1 , 0 ))
549	544, 548	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
550	549	ex 414	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
551	550	ralimdva 3168	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑏 ⊆ (𝑁 × 𝑁) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → ∀𝑤 ∈ 𝑏 ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
552	533, 534, 551	sylc 65	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ 𝑏 ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
553	142, 291	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = if(𝑐 ∈ 𝑑, 1 , 0 ))
554	165, 162	ifex 4578	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ if(𝑐 ∈ 𝑑, 1 , 0 ) ∈ V
555	553, 540, 554	fvmpt 6996	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑐 ∈ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))
556	122, 555	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))
557	556	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))
558		fveq2 6889	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = 𝑐 → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐))
559		elequ1 2114	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = 𝑐 → (𝑤 ∈ 𝑑 ↔ 𝑐 ∈ 𝑑))
560	559	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = 𝑐 → if(𝑤 ∈ 𝑑, 1 , 0 ) = if(𝑐 ∈ 𝑑, 1 , 0 ))
561	558, 560	eqeq12d 2749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = 𝑐 → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 )))
562	561	ralunsn 4894	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑐 ∈ V → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ (∀𝑤 ∈ 𝑏 ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))))
563	562	elv 3481	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ (∀𝑤 ∈ 𝑏 ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 )))
564	552, 557, 563	sylanbrc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
565	223	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
566		fveq1 6888	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝑦‘𝑤) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤))
567	566	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
568	567	ralbidv 3178	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
569		fveqeq2 6898	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑦) = 0 ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
570	568, 569	imbi12d 345	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
571		elequ2 2122	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑧 = 𝑑 → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ 𝑑))
572	571	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑧 = 𝑑 → if(𝑤 ∈ 𝑧, 1 , 0 ) = if(𝑤 ∈ 𝑑, 1 , 0 ))
573	572	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = 𝑑 → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
574	573	ralbidv 3178	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = 𝑑 → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
575	574	imbi1d 342	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = 𝑑 → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
576	570, 575	rspc2va 3623	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
577	565, 503, 517, 576	syl21anc 837	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
578	564, 577	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 )
579	531, 578	oveq12d 7424	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ))
580	308	oveq1d 7421	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ) = ( 0 + 0 ))
581	12, 50, 48	grplid 18849	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑅 ∈ Grp ∧ 0 ∈ 𝐾) → ( 0 + 0 ) = 0 )
582	115, 133, 581	syl2anc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ( 0 + 0 ) = 0 )
583	580, 582	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ) = 0 )
584	583	adantr 482	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ) = 0 )
585	579, 584	eqtrd 2773	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = 0 )
586	104, 105, 106, 392, 393, 394, 585	syl33anc 1386	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st ‘𝑒) = (1st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = 0 )
587	288, 391, 586	3eqtrd 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘𝑎) = 0 )
588	587	expr 458	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ (𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑m 𝑁))) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ))
589	588	ralrimivva 3201	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) → ∀𝑎 ∈ 𝐵 ∀𝑑 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ))
590		fveq1 6888	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = 𝑦 → (𝑎‘𝑤) = (𝑦‘𝑤))
591	590	eqeq1d 2735	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑦 → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
592	591	ralbidv 3178	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑦 → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
593		fveqeq2 6898	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑦 → ((𝐷‘𝑎) = 0 ↔ (𝐷‘𝑦) = 0 ))
594	592, 593	imbi12d 345	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = 𝑦 → ((∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ) ↔ (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
595		elequ2 2122	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑑 = 𝑧 → (𝑤 ∈ 𝑑 ↔ 𝑤 ∈ 𝑧))
596	595	ifbid 4551	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑑 = 𝑧 → if(𝑤 ∈ 𝑑, 1 , 0 ) = if(𝑤 ∈ 𝑧, 1 , 0 ))
597	596	eqeq2d 2744	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑑 = 𝑧 → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
598	597	ralbidv 3178	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 = 𝑧 → (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
599	598	imbi1d 342	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑑 = 𝑧 → ((∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
600	594, 599	cbvral2vw 3239	. . . . . . . . . . . . . . . . . . . 20 ⊢ (∀𝑎 ∈ 𝐵 ∀𝑑 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
601	589, 600	sylib 217	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
602		vex 3479	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑏 ∈ V
603		raleq 3323	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = 𝑏 → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
604	603	imbi1d 342	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = 𝑏 → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
605	604	2ralbidv 3219	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑏 → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
606	602, 605, 72	elab2 3672	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
607	601, 606	sylibr 233	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) → 𝑏 ∈ 𝑌)
608	607	3expia 1122	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)) → ((𝑏 ∪ {𝑐}) ∈ 𝑌 → 𝑏 ∈ 𝑌))
609	608	con3d 152	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)) → (¬ 𝑏 ∈ 𝑌 → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌))
610	609	3adant3 1133	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (¬ 𝑏 ∈ 𝑌 → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌))
611	610	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝑏 ∈ Fin ∧ ¬ 𝑐 ∈ 𝑏) → ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (¬ 𝑏 ∈ 𝑌 → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌)))
612	611	a2d 29	. . . . . . . . . . . . 13 ⊢ ((𝑏 ∈ Fin ∧ ¬ 𝑐 ∈ 𝑏) → (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌) → ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌)))
613	103, 612	syl5 34	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ Fin ∧ ¬ 𝑐 ∈ 𝑏) → (((𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌) → ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌)))
614	82, 87, 92, 97, 98, 613	findcard2s 9162	. . . . . . . . . . 11 ⊢ ((𝑁 × 𝑁) ∈ Fin → ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌))
615	77, 614	mpcom 38	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌)
616	615	3exp 1120	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) → (¬ ∅ ∈ 𝑌 → ¬ (𝑁 × 𝑁) ∈ 𝑌)))
617	76, 616	mpi 20	. . . . . . . 8 ⊢ (𝜑 → (¬ ∅ ∈ 𝑌 → ¬ (𝑁 × 𝑁) ∈ 𝑌))
618	75, 617	mt4d 117	. . . . . . 7 ⊢ (𝜑 → ∅ ∈ 𝑌)
619	618	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ∅ ∈ 𝑌)
620		0ex 5307	. . . . . . 7 ⊢ ∅ ∈ V
621		raleq 3323	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
622	621	imbi1d 342	. . . . . . . 8 ⊢ (𝑥 = ∅ → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
623	622	2ralbidv 3219	. . . . . . 7 ⊢ (𝑥 = ∅ → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
624	620, 623, 72	elab2 3672	. . . . . 6 ⊢ (∅ ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
625	619, 624	sylib 217	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
626		fveq1 6888	. . . . . . . . 9 ⊢ (𝑦 = 𝑎 → (𝑦‘𝑤) = (𝑎‘𝑤))
627	626	eqeq1d 2735	. . . . . . . 8 ⊢ (𝑦 = 𝑎 → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
628	627	ralbidv 3178	. . . . . . 7 ⊢ (𝑦 = 𝑎 → (∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
629		fveqeq2 6898	. . . . . . 7 ⊢ (𝑦 = 𝑎 → ((𝐷‘𝑦) = 0 ↔ (𝐷‘𝑎) = 0 ))
630	628, 629	imbi12d 345	. . . . . 6 ⊢ (𝑦 = 𝑎 → ((∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑎) = 0 )))
631		eleq2 2823	. . . . . . . . . 10 ⊢ (𝑧 = ( I ↾ 𝑁) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ ( I ↾ 𝑁)))
632	631	ifbid 4551	. . . . . . . . 9 ⊢ (𝑧 = ( I ↾ 𝑁) → if(𝑤 ∈ 𝑧, 1 , 0 ) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ))
633	632	eqeq2d 2744	. . . . . . . 8 ⊢ (𝑧 = ( I ↾ 𝑁) → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )))
634	633	ralbidv 3178	. . . . . . 7 ⊢ (𝑧 = ( I ↾ 𝑁) → (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )))
635	634	imbi1d 342	. . . . . 6 ⊢ (𝑧 = ( I ↾ 𝑁) → ((∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑎) = 0 ) ↔ (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ) → (𝐷‘𝑎) = 0 )))
636	630, 635	rspc2va 3623	. . . . 5 ⊢ (((𝑎 ∈ 𝐵 ∧ ( I ↾ 𝑁) ∈ (𝑁 ↑m 𝑁)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )) → (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ) → (𝐷‘𝑎) = 0 ))
637	2, 9, 625, 636	syl21anc 837	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ) → (𝐷‘𝑎) = 0 ))
638	1, 637	mpi 20	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → (𝐷‘𝑎) = 0 )
639	638	mpteq2dva 5248	. 2 ⊢ (𝜑 → (𝑎 ∈ 𝐵 ↦ (𝐷‘𝑎)) = (𝑎 ∈ 𝐵 ↦ 0 ))
640	53	feqmptd 6958	. 2 ⊢ (𝜑 → 𝐷 = (𝑎 ∈ 𝐵 ↦ (𝐷‘𝑎)))
641		fconstmpt 5737	. . 3 ⊢ (𝐵 × { 0 }) = (𝑎 ∈ 𝐵 ↦ 0 )
642	641	a1i 11	. 2 ⊢ (𝜑 → (𝐵 × { 0 }) = (𝑎 ∈ 𝐵 ↦ 0 ))
643	639, 640, 642	3eqtr4d 2783	1 ⊢ (𝜑 → 𝐷 = (𝐵 × { 0 }))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  {cab 2710   ≠ wne 2941  ∀wral 3062  Vcvv 3475   ∖ cdif 3945   ∪ cun 3946   ⊆ wss 3948  ∅c0 4322  ifcif 4528  {csn 4628  ⟨cop 4634   ↦ cmpt 5231   I cid 5573   × cxp 5674   ↾ cres 5678  Rel wrel 5681   Fn wfn 6536  ⟶wf 6537  –1-1-onto→wf1o 6540  ‘cfv 6541  (class class class)co 7406   ∈ cmpo 7408   ∘_f cof 7665  1^st c1st 7970  2^nd c2nd 7971   ↑_m cmap 8817  Fincfn 8936   sSet csts 17093  Basecbs 17141  +_gcplusg 17194  ._rcmulr 17195  0_gc0g 17382  Grpcgrp 18816  -_gcsg 18818  1_rcur 19999  Ringcrg 20050   Mat cmat 21899

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-addf 11186  ax-mulf 11187

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-xor 1511  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  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-tp 4633  df-op 4635  df-ot 4637  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  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 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-tpos 8208  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-er 8700  df-map 8819  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-sup 9434  df-oi 9502  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-xnn0 12542  df-z 12556  df-dec 12675  df-uz 12820  df-rp 12972  df-fz 13482  df-fzo 13625  df-seq 13964  df-exp 14025  df-hash 14288  df-word 14462  df-lsw 14510  df-concat 14518  df-s1 14543  df-substr 14588  df-pfx 14618  df-splice 14697  df-reverse 14706  df-s2 14796  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-starv 17209  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-hom 17218  df-cco 17219  df-0g 17384  df-gsum 17385  df-prds 17390  df-pws 17392  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-mhm 18668  df-submnd 18669  df-efmnd 18747  df-grp 18819  df-minusg 18820  df-sbg 18821  df-mulg 18946  df-subg 18998  df-ghm 19085  df-gim 19128  df-cntz 19176  df-oppg 19205  df-symg 19230  df-pmtr 19305  df-psgn 19354  df-evpm 19355  df-cmn 19645  df-abl 19646  df-mgp 19983  df-ur 20000  df-ring 20052  df-cring 20053  df-oppr 20143  df-dvdsr 20164  df-unit 20165  df-invr 20195  df-dvr 20208  df-rnghom 20244  df-drng 20310  df-subrg 20354  df-lmod 20466  df-lss 20536  df-sra 20778  df-rgmod 20779  df-cnfld 20938  df-zring 21011  df-zrh 21045  df-dsmm 21279  df-frlm 21294  df-mamu 21878  df-mat 21900

This theorem is referenced by:  mdetuni0  22115