mdetunilem9 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > mdetunilem9		Structured version Visualization version GIF version

Theorem mdetunilem9 21228

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

**Hypotheses**
Ref	Expression
mdetuni.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
mdetuni.b	⊢ 𝐵 = (Base‘𝐴)
mdetuni.k	⊢ 𝐾 = (Base‘𝑅)
mdetuni.0g	⊢ 0 = (0_g‘𝑅)
mdetuni.1r	⊢ 1 = (1_r‘𝑅)
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	⊢ (𝜑 → (𝐷‘(1_r‘𝐴)) = 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 4455	. . . 4 ⊢ ∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )
2		simpr 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → 𝑎 ∈ 𝐵)
3		f1oi 6651	. . . . . . . 8 ⊢ ( I ↾ 𝑁):𝑁–1-1-onto→𝑁
4		f1of 6614	. . . . . . . 8 ⊢ (( I ↾ 𝑁):𝑁–1-1-onto→𝑁 → ( I ↾ 𝑁):𝑁⟶𝑁)
5	3, 4	mp1i 13	. . . . . . 7 ⊢ (𝜑 → ( I ↾ 𝑁):𝑁⟶𝑁)
6		mdetuni.n	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ Fin)
7	6, 6	elmapd 8419	. . . . . . 7 ⊢ (𝜑 → (( I ↾ 𝑁) ∈ (𝑁 ↑_m 𝑁) ↔ ( I ↾ 𝑁):𝑁⟶𝑁))
8	5, 7	mpbird 259	. . . . . 6 ⊢ (𝜑 → ( I ↾ 𝑁) ∈ (𝑁 ↑_m 𝑁))
9	8	adantr 483	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ( I ↾ 𝑁) ∈ (𝑁 ↑_m 𝑁))
10		simplrl 775	. . . . . . . . . . . . 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 21030	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ 𝐵 → 𝑦 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
15		elmapi 8427	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝑦:(𝑁 × 𝑁)⟶𝐾)
16	14, 15	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ 𝐵 → 𝑦:(𝑁 × 𝑁)⟶𝐾)
17	16	feqmptd 6732	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ 𝐵 → 𝑦 = (𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤)))
18	17	fveq2d 6673	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐵 → (𝐷‘𝑦) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))))
19	10, 18	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘𝑦) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))))
20		eqid 2821	. . . . . . . . . . . . . 14 ⊢ (𝑁 × 𝑁) = (𝑁 × 𝑁)
21		mpteq12 5152	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 × 𝑁) = (𝑁 × 𝑁) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤)) = (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 )))
22	21	fveq2d 6673	. . . . . . . . . . . . . 14 ⊢ (((𝑁 × 𝑁) = (𝑁 × 𝑁) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
23	20, 22	mpan 688	. . . . . . . . . . . . 13 ⊢ (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
24	23	adantl 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦‘𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
25		eleq1 2900	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 = 𝑧 → (𝑎 ∈ (𝑁 ↑_m 𝑁) ↔ 𝑧 ∈ (𝑁 ↑_m 𝑁)))
26	25	anbi2d 630	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = 𝑧 → ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) ↔ (𝜑 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))))
27		elequ2 2125	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑧 → (𝑤 ∈ 𝑎 ↔ 𝑤 ∈ 𝑧))
28	27	ifbid 4488	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑧 → if(𝑤 ∈ 𝑎, 1 , 0 ) = if(𝑤 ∈ 𝑧, 1 , 0 ))
29	28	mpteq2dv 5161	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑎 = 𝑧 → (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 )) = (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 )))
30	29	fveq2d 6673	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 = 𝑧 → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))))
31	30	eqeq1d 2823	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = 𝑧 → ((𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = 0 ↔ (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 ))
32	26, 31	imbi12d 347	. . . . . . . . . . . . . . 15 ⊢ (𝑎 = 𝑧 → (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = 0 ) ↔ ((𝜑 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )))
33		eleq1 2900	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑤 = ⟨𝑏, 𝑐⟩ → (𝑤 ∈ 𝑎 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
34	33	ifbid 4488	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑤 = ⟨𝑏, 𝑐⟩ → if(𝑤 ∈ 𝑎, 1 , 0 ) = if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ))
35	34	mpompt 7265	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 )) = (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ))
36		elmapi 8427	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 ∈ (𝑁 ↑_m 𝑁) → 𝑎:𝑁⟶𝑁)
37	36	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → 𝑎:𝑁⟶𝑁)
38	37	ffnd 6514	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → 𝑎 Fn 𝑁)
39	38	3ad2ant1 1129	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → 𝑎 Fn 𝑁)
40		simp2 1133	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → 𝑏 ∈ 𝑁)
41		fnopfvb 6718	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑎 Fn 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎‘𝑏) = 𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
42	39, 40, 41	syl2anc 586	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → ((𝑎‘𝑏) = 𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
43	42	bicomd 225	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → (⟨𝑏, 𝑐⟩ ∈ 𝑎 ↔ (𝑎‘𝑏) = 𝑐))
44	43	ifbid 4488	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑏 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁) → if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ) = if((𝑎‘𝑏) = 𝑐, 1 , 0 ))
45	44	mpoeq3dva 7230	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 )) = (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 )))
46	35, 45	syl5eq 2868	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 )) = (𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 )))
47	46	fveq2d 6673	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = (𝐷‘(𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 ))))
48		mdetuni.0g	. . . . . . . . . . . . . . . . . 18 ⊢ 0 = (0_g‘𝑅)
49		mdetuni.1r	. . . . . . . . . . . . . . . . . 18 ⊢ 1 = (1_r‘𝑅)
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 ⊢ (𝜑 → (𝐷‘(1_r‘𝐴)) = 0 )
58	11, 13, 12, 48, 49, 50, 51, 6, 52, 53, 54, 55, 56, 57	mdetunilem8 21227	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑎:𝑁⟶𝑁) → (𝐷‘(𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 ))) = 0 )
59	36, 58	sylan2 594	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → (𝐷‘(𝑏 ∈ 𝑁, 𝑐 ∈ 𝑁 ↦ if((𝑎‘𝑏) = 𝑐, 1 , 0 ))) = 0 )
60	47, 59	eqtrd 2856	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑁 ↑_m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑎, 1 , 0 ))) = 0 )
61	32, 60	chvarvv 2001	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )
62	61	adantrl 714	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )
63	62	adantr 483	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤 ∈ 𝑧, 1 , 0 ))) = 0 )
64	19, 24, 63	3eqtrd 2860	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )) → (𝐷‘𝑦) = 0 )
65	64	ex 415	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ (𝑁 ↑_m 𝑁))) → (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
66	65	ralrimivva 3191	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
67		xpfi 8788	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑁 ∈ Fin) → (𝑁 × 𝑁) ∈ Fin)
68	6, 6, 67	syl2anc 586	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 × 𝑁) ∈ Fin)
69		raleq 3405	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑁 × 𝑁) → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
70	69	imbi1d 344	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑁 × 𝑁) → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
71	70	2ralbidv 3199	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑁 × 𝑁) → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
72		mdetunilem9.y	. . . . . . . . . . 11 ⊢ 𝑌 = {𝑥 ∣ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )}
73	71, 72	elab2g 3667	. . . . . . . . . 10 ⊢ ((𝑁 × 𝑁) ∈ Fin → ((𝑁 × 𝑁) ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
74	68, 73	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 × 𝑁) ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
75	66, 74	mpbird 259	. . . . . . . 8 ⊢ (𝜑 → (𝑁 × 𝑁) ∈ 𝑌)
76		ssid 3988	. . . . . . . . 9 ⊢ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁)
77	68	3ad2ant1 1129	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (𝑁 × 𝑁) ∈ Fin)
78		sseq1 3991	. . . . . . . . . . . . . 14 ⊢ (𝑎 = ∅ → (𝑎 ⊆ (𝑁 × 𝑁) ↔ ∅ ⊆ (𝑁 × 𝑁)))
79	78	3anbi2d 1437	. . . . . . . . . . . . 13 ⊢ (𝑎 = ∅ → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
80		eleq1 2900	. . . . . . . . . . . . . 14 ⊢ (𝑎 = ∅ → (𝑎 ∈ 𝑌 ↔ ∅ ∈ 𝑌))
81	80	notbid 320	. . . . . . . . . . . . 13 ⊢ (𝑎 = ∅ → (¬ 𝑎 ∈ 𝑌 ↔ ¬ ∅ ∈ 𝑌))
82	79, 81	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑎 = ∅ → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ ∅ ∈ 𝑌)))
83		sseq1 3991	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑏 → (𝑎 ⊆ (𝑁 × 𝑁) ↔ 𝑏 ⊆ (𝑁 × 𝑁)))
84	83	3anbi2d 1437	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑏 → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
85		eleq1 2900	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑏 → (𝑎 ∈ 𝑌 ↔ 𝑏 ∈ 𝑌))
86	85	notbid 320	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑏 → (¬ 𝑎 ∈ 𝑌 ↔ ¬ 𝑏 ∈ 𝑌))
87	84, 86	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑏 → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌)))
88		sseq1 3991	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎 ⊆ (𝑁 × 𝑁) ↔ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)))
89	88	3anbi2d 1437	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
90		eleq1 2900	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎 ∈ 𝑌 ↔ (𝑏 ∪ {𝑐}) ∈ 𝑌))
91	90	notbid 320	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (¬ 𝑎 ∈ 𝑌 ↔ ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌))
92	89, 91	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑏 ∪ {𝑐}) → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌)))
93		sseq1 3991	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑁 × 𝑁) → (𝑎 ⊆ (𝑁 × 𝑁) ↔ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁)))
94	93	3anbi2d 1437	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑁 × 𝑁) → ((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
95		eleq1 2900	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑁 × 𝑁) → (𝑎 ∈ 𝑌 ↔ (𝑁 × 𝑁) ∈ 𝑌))
96	95	notbid 320	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑁 × 𝑁) → (¬ 𝑎 ∈ 𝑌 ↔ ¬ (𝑁 × 𝑁) ∈ 𝑌))
97	94, 96	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑁 × 𝑁) → (((𝜑 ∧ 𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎 ∈ 𝑌) ↔ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌)))
98		simp3 1134	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ ∅ ∈ 𝑌)
99		ssun1 4147	. . . . . . . . . . . . . . . 16 ⊢ 𝑏 ⊆ (𝑏 ∪ {𝑐})
100		sstr2 3973	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 ⊆ (𝑏 ∪ {𝑐}) → ((𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) → 𝑏 ⊆ (𝑁 × 𝑁)))
101	99, 100	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) → 𝑏 ⊆ (𝑁 × 𝑁))
102	101	3anim2i 1149	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌))
103	102	imim1i 63	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌) → ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏 ∈ 𝑌))
104		simpl1 1187	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝜑)
105		simpl2 1188	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
106		simprll 777	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑎 ∈ 𝐵)
107	11, 12, 13	matbas2i 21030	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑎 ∈ 𝐵 → 𝑎 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
108		elmapi 8427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑎 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
109	107, 108	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑎 ∈ 𝐵 → 𝑎:(𝑁 × 𝑁)⟶𝐾)
110	109	3ad2ant3 1131	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
111	110	feqmptd 6732	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑎 = (𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)))
112	111	reseq1d 5851	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ({(1^st ‘𝑐)} × 𝑁)))
113	52	3ad2ant1 1129	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑅 ∈ Ring)
114		ringgrp 19301	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
115	113, 114	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑅 ∈ Grp)
116	115	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → 𝑅 ∈ Grp)
117	110	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
118		simp2 1133	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
119	118	unssbd 4163	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → {𝑐} ⊆ (𝑁 × 𝑁))
120		vex 3497	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ 𝑐 ∈ V
121	120	snss 4717	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑐 ∈ (𝑁 × 𝑁) ↔ {𝑐} ⊆ (𝑁 × 𝑁))
122	119, 121	sylibr 236	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑐 ∈ (𝑁 × 𝑁))
123		xp1st 7720	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (𝑐 ∈ (𝑁 × 𝑁) → (1^st ‘𝑐) ∈ 𝑁)
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (1^st ‘𝑐) ∈ 𝑁)
125	124	snssd 4741	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → {(1^st ‘𝑐)} ⊆ 𝑁)
126		xpss1 5573	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ({(1^st ‘𝑐)} ⊆ 𝑁 → ({(1^st ‘𝑐)} × 𝑁) ⊆ (𝑁 × 𝑁))
127	125, 126	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ({(1^st ‘𝑐)} × 𝑁) ⊆ (𝑁 × 𝑁))
128	127	sselda 3966	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → 𝑒 ∈ (𝑁 × 𝑁))
129	117, 128	ffvelrnd 6851	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) ∈ 𝐾)
130	12, 49	ringidcl 19317	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑅 ∈ Ring → 1 ∈ 𝐾)
131	113, 130	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 1 ∈ 𝐾)
132	12, 48	ring0cl 19318	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑅 ∈ Ring → 0 ∈ 𝐾)
133	113, 132	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 0 ∈ 𝐾)
134	131, 133	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
135	134	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
136		eqid 2821	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (-_g‘𝑅) = (-_g‘𝑅)
137	12, 50, 136	grpnpcan 18190	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑒) ∈ 𝐾 ∧ if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾) → (((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )) = (𝑎‘𝑒))
138	116, 129, 135, 137	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )) = (𝑎‘𝑒))
139	138	eqcomd 2827	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) = (((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
140	139	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (𝑎‘𝑒) = (((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
141		iftrue 4472	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )))
142		iftrue 4472	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = if(𝑒 ∈ 𝑑, 1 , 0 ))
143	141, 142	oveq12d 7173	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 = 𝑐 → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
144	143	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) + if(𝑒 ∈ 𝑑, 1 , 0 )))
145	140, 144	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (𝑎‘𝑒) = (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
146	12, 50, 48	grplid 18132	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑒) ∈ 𝐾) → ( 0 + (𝑎‘𝑒)) = (𝑎‘𝑒))
147	116, 129, 146	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → ( 0 + (𝑎‘𝑒)) = (𝑎‘𝑒))
148	147	eqcomd 2827	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) = ( 0 + (𝑎‘𝑒)))
149	148	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (𝑎‘𝑒) = ( 0 + (𝑎‘𝑒)))
150		iffalse 4475	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (¬ 𝑒 = 𝑐 → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = 0 )
151		iffalse 4475	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (¬ 𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
152	150, 151	oveq12d 7173	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (¬ 𝑒 = 𝑐 → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = ( 0 + (𝑎‘𝑒)))
153	152	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = ( 0 + (𝑎‘𝑒)))
154	149, 153	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (𝑎‘𝑒) = (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
155	145, 154	pm2.61dan 811	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (𝑎‘𝑒) = (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
156	155	mpteq2dva 5160	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (𝑎‘𝑒)) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
157		snfi 8593	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ {(1^st ‘𝑐)} ∈ Fin
158	6	3ad2ant1 1129	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑁 ∈ Fin)
159		xpfi 8788	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (({(1^st ‘𝑐)} ∈ Fin ∧ 𝑁 ∈ Fin) → ({(1^st ‘𝑐)} × 𝑁) ∈ Fin)
160	157, 158, 159	sylancr 589	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ({(1^st ‘𝑐)} × 𝑁) ∈ Fin)
161		ovex 7188	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) ∈ V
162	48	fvexi 6683	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ 0 ∈ V
163	161, 162	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) ∈ V
164	163	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) ∈ V)
165	49	fvexi 6683	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ 1 ∈ V
166	165, 162	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ V
167		fvex 6682	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑎‘𝑒) ∈ V
168	166, 167	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) ∈ V
169	168	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) ∈ V)
170		xp1st 7720	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) → (1^st ‘𝑒) ∈ {(1^st ‘𝑐)})
171		elsni 4583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((1^st ‘𝑒) ∈ {(1^st ‘𝑐)} → (1^st ‘𝑒) = (1^st ‘𝑐))
172		iftrue 4472	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((1^st ‘𝑒) = (1^st ‘𝑐) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
173	170, 171, 172	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
174	173	mpteq2ia 5156	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
175	174	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 )))
176		eqidd 2822	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
177	160, 164, 169, 175, 176	offval2 7425	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∘_f + (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
178	156, 177	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (𝑎‘𝑒)) = ((𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∘_f + (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
179	127	resmptd 5907	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ({(1^st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (𝑎‘𝑒)))
180	127	resmptd 5907	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))))
181	127	resmptd 5907	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
182	180, 181	oveq12d 7173	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) = ((𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∘_f + (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
183	178, 179, 182	3eqtr4d 2866	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))))
184	112, 183	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))))
185	111	reseq1d 5851	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
186		xp1st 7720	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) → (1^st ‘𝑒) ∈ (𝑁 ∖ {(1^st ‘𝑐)}))
187		eldifsni 4721	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((1^st ‘𝑒) ∈ (𝑁 ∖ {(1^st ‘𝑐)}) → (1^st ‘𝑒) ≠ (1^st ‘𝑐))
188	186, 187	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) → (1^st ‘𝑒) ≠ (1^st ‘𝑐))
189	188	neneqd 3021	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) → ¬ (1^st ‘𝑒) = (1^st ‘𝑐))
190	189	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) → ¬ (1^st ‘𝑒) = (1^st ‘𝑐))
191	190	iffalsed 4477	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
192	191	mpteq2dva 5160	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
193		difss 4107	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑁 ∖ {(1^st ‘𝑐)}) ⊆ 𝑁
194		xpss1 5573	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∖ {(1^st ‘𝑐)}) ⊆ 𝑁 → ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁))
195	193, 194	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁)
196		resmpt 5904	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))))
197	195, 196	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))))
198		resmpt 5904	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
199	195, 198	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
200	192, 197, 199	3eqtr4rd 2867	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
201	185, 200	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
202		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑒 = 𝑐 → (1^st ‘𝑒) = (1^st ‘𝑐))
203	190, 202	nsyl 142	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) → ¬ 𝑒 = 𝑐)
204	203	iffalsed 4477	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
205	204	mpteq2dva 5160	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ (𝑎‘𝑒)))
206		resmpt 5904	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
207	195, 206	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))
208	205, 207, 199	3eqtr4rd 2867	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎‘𝑒)) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
209	185, 208	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
210	134	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
211	110	ffvelrnda 6850	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → (𝑎‘𝑒) ∈ 𝐾)
212	210, 211	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) ∈ 𝐾)
213	212	fmpttd 6878	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾)
214	12	fvexi 6683	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝐾 ∈ V
215	67	anidms 569	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑁 ∈ Fin → (𝑁 × 𝑁) ∈ Fin)
216	158, 215	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑁 × 𝑁) ∈ Fin)
217		elmapg 8418	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
218	214, 216, 217	sylancr 589	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
219	213, 218	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
220	11, 12	matbas2 21029	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝐾 ↑_m (𝑁 × 𝑁)) = (Base‘𝐴))
221	158, 113, 220	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐾 ↑_m (𝑁 × 𝑁)) = (Base‘𝐴))
222	221, 13	syl6eqr 2874	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐾 ↑_m (𝑁 × 𝑁)) = 𝐵)
223	219, 222	eleqtrd 2915	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
224		simp3 1134	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑎 ∈ 𝐵)
225	115	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → 𝑅 ∈ Grp)
226	12, 136	grpsubcl 18178	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑒) ∈ 𝐾 ∧ if(𝑒 ∈ 𝑑, 1 , 0 ) ∈ 𝐾) → ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
227	225, 211, 210, 226	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
228	133	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → 0 ∈ 𝐾)
229	227, 228	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) ∈ 𝐾)
230	229, 211	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) ∈ 𝐾)
231	230	fmpttd 6878	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾)
232		elmapg 8418	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
233	214, 216, 232	sylancr 589	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
234	231, 233	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
235	234, 222	eleqtrd 2915	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ 𝐵)
236	55	3ad2ant1 1129	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
237		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = 𝑎 → (𝑥 ↾ ({𝑤} × 𝑁)) = (𝑎 ↾ ({𝑤} × 𝑁)))
238	237	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = 𝑎 → ((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁)))))
239		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = 𝑎 → (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
240	239	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = 𝑎 → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
241	239	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = 𝑎 → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
242	238, 240, 241	3anbi123d 1432	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑥 = 𝑎 → (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
243		fveqeq2 6678	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑥 = 𝑎 → ((𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧)) ↔ (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
244	242, 243	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑥 = 𝑎 → ((((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧)))))
245	244	2ralbidv 3199	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑥 = 𝑎 → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧)))))
246		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑦 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
247	246	oveq1d 7170	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))))
248	247	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁)))))
249		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
250	249	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
251	248, 250	3anbi12d 1433	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
252		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝐷‘𝑦) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))))
253	252	oveq1d 7170	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑦) + (𝐷‘𝑧)) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))
254	253	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧)) ↔ (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))))
255	251, 254	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))))
256	255	2ralbidv 3199	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘𝑦) + (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))))
257	245, 256	rspc2va 3633	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝑎 ∈ 𝐵 ∧ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧)))) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))))
258	224, 235, 236, 257	syl21anc 835	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))))
259		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
260	259	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))))
261	260	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))))
262		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
263	262	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
264	261, 263	3anbi13d 1434	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
265		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝐷‘𝑧) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))
266	265	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
267	266	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)) ↔ (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))))
268	264, 267	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))))
269		sneq 4576	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1^st ‘𝑐) → {𝑤} = {(1^st ‘𝑐)})
270	269	xpeq1d 5583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1^st ‘𝑐) → ({𝑤} × 𝑁) = ({(1^st ‘𝑐)} × 𝑁))
271	270	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → (𝑎 ↾ ({𝑤} × 𝑁)) = (𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)))
272	270	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)))
273	270	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)))
274	272, 273	oveq12d 7173	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))))
275	271, 274	eqeq12d 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)))))
276	269	difeq2d 4098	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1^st ‘𝑐) → (𝑁 ∖ {𝑤}) = (𝑁 ∖ {(1^st ‘𝑐)}))
277	276	xpeq1d 5583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑁 ∖ {𝑤}) × 𝑁) = ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))
278	277	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
279	277	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
280	278, 279	eqeq12d 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))))
281	277	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
282	278, 281	eqeq12d 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))))
283	275, 280, 282	3anbi123d 1432	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑤 = (1^st ‘𝑐) → (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))))
284	283	imbi1d 344	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑤 = (1^st ‘𝑐) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))) ↔ (((𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))))
285	268, 284	rspc2va 3633	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ (1^st ‘𝑐) ∈ 𝑁) ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘𝑧)))) → (((𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))))
286	223, 124, 258, 285	syl21anc 835	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑎 ↾ ({(1^st ‘𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) ∘_f + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))))))
287	184, 201, 209, 286	mp3and 1460	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
288	104, 105, 106, 287	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
289		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 = 𝑐 → (𝑎‘𝑒) = (𝑎‘𝑐))
290		elequ1 2117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑒 = 𝑐 → (𝑒 ∈ 𝑑 ↔ 𝑐 ∈ 𝑑))
291	290	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 = 𝑐 → if(𝑒 ∈ 𝑑, 1 , 0 ) = if(𝑐 ∈ 𝑑, 1 , 0 ))
292	289, 291	oveq12d 7173	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
293	292	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
294	110, 122	ffvelrnd 6851	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑎‘𝑐) ∈ 𝐾)
295	131, 133	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → if(𝑐 ∈ 𝑑, 1 , 0 ) ∈ 𝐾)
296	12, 136	grpsubcl 18178	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((𝑅 ∈ Grp ∧ (𝑎‘𝑐) ∈ 𝐾 ∧ if(𝑐 ∈ 𝑑, 1 , 0 ) ∈ 𝐾) → ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
297	115, 294, 295, 296	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾)
298	12, 51, 49	ringridm 19321	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Ring ∧ ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ) = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
299	113, 297, 298	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ) = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
300	299	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ) = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
301	293, 300	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ))
302	141	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )))
303		iftrue 4472	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, 1 , 0 ) = 1 )
304	303	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑒 = 𝑐 → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ))
305	304	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 1 ))
306	301, 302, 305	3eqtr4d 2866	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
307	12, 51, 48	ringrz 19337	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑅 ∈ Ring ∧ ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) = 0 )
308	113, 297, 307	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) = 0 )
309	308	eqcomd 2827	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 0 = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
310	309	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → 0 = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
311	150	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = 0 )
312		iffalse 4475	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (¬ 𝑒 = 𝑐 → if(𝑒 = 𝑐, 1 , 0 ) = 0 )
313	312	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (¬ 𝑒 = 𝑐 → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
314	313	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
315	310, 311, 314	3eqtr4d 2866	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
316	306, 315	pm2.61dan 811	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
317	170	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (1^st ‘𝑒) ∈ {(1^st ‘𝑐)})
318	317, 171	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (1^st ‘𝑒) = (1^st ‘𝑐))
319	318	iftrued 4474	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ))
320	318	iftrued 4474	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) = if(𝑒 = 𝑐, 1 , 0 ))
321	320	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
322	316, 319, 321	3eqtr4d 2866	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
323	322	mpteq2dva 5160	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))
324		ovexd 7190	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ V)
325	165, 162	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ if(𝑒 = 𝑐, 1 , 0 ) ∈ V
326	325, 167	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) ∈ V
327	326	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) ∈ V)
328		fconstmpt 5613	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )))
329	328	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))))
330	127	resmptd 5907	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
331	160, 324, 327, 329, 330	offval2 7425	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) = (𝑒 ∈ ({(1^st ‘𝑐)} × 𝑁) ↦ (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))
332	323, 180, 331	3eqtr4d 2866	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))))
333		iffalse 4475	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (¬ (1^st ‘𝑒) = (1^st ‘𝑐) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
334		iffalse 4475	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (¬ (1^st ‘𝑒) = (1^st ‘𝑐) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) = (𝑎‘𝑒))
335	333, 334	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (¬ (1^st ‘𝑒) = (1^st ‘𝑐) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))
336	190, 335	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)) = if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))
337	336	mpteq2dva 5160	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
338		resmpt 5904	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
339	195, 338	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))
340	337, 197, 339	3eqtr4d 2866	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
341	131, 133	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → if(𝑒 = 𝑐, 1 , 0 ) ∈ 𝐾)
342	341	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, 1 , 0 ) ∈ 𝐾)
343	342, 211	ifcld 4511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) ∈ 𝐾)
344	343	fmpttd 6878	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾)
345		elmapg 8418	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
346	214, 216, 345	sylancr 589	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))):(𝑁 × 𝑁)⟶𝐾))
347	344, 346	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
348	347, 222	eleqtrd 2915	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
349	56	3ad2ant1 1129	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))))
350		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
351	350	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁)))))
352		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
353	352	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
354	351, 353	anbi12d 632	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
355		fveqeq2 6678	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧))))
356	354, 355	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → ((((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧)))))
357	356	2ralbidv 3199	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧)))))
358		sneq 4576	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → {𝑦} = {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))})
359	358	xpeq2d 5584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (({𝑤} × 𝑁) × {𝑦}) = (({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}))
360	359	oveq1d 7170	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))))
361	360	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁)))))
362	361	anbi1d 631	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
363		oveq1 7162	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (𝑦 · (𝐷‘𝑧)) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))
364	363	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))))
365	362, 364	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))))
366	365	2ralbidv 3199	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑦 = ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) → (∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (𝑦 · (𝐷‘𝑧))) ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))))
367	357, 366	rspc2va 3633	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ ((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) ∈ 𝐾) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧)))) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))))
368	235, 297, 349, 367	syl21anc 835	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))))
369		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))
370	369	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))))
371	370	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)))))
372		reseq1 5846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
373	372	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
374	371, 373	anbi12d 632	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
375		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝐷‘𝑧) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))
376	375	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))
377	376	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))))
378	374, 377	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))))
379	270	xpeq1d 5583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1^st ‘𝑐) → (({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) = (({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}))
380	270	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)))
381	379, 380	oveq12d 7173	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1^st ‘𝑐) → ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))))
382	272, 381	eqeq12d 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)))))
383	277	reseq2d 5852	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = (1^st ‘𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))
384	279, 383	eqeq12d 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = (1^st ‘𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))))
385	382, 384	anbi12d 632	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑤 = (1^st ‘𝑐) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)))))
386	385	imbi1d 344	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑤 = (1^st ‘𝑐) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))))
387	378, 386	rspc2va 3633	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ (1^st ‘𝑐) ∈ 𝑁) ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘𝑧)))) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))))
388	348, 124, 368, 387	syl21anc 835	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁)) = ((({(1^st ‘𝑐)} × 𝑁) × {((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 ))}) ∘_f · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ({(1^st ‘𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ↾ ((𝑁 ∖ {(1^st ‘𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))))))
389	332, 340, 388	mp2and 697	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))))
390	389	oveq1d 7170	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
391	104, 105, 106, 390	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, ((𝑎‘𝑒)(-_g‘𝑅)if(𝑒 ∈ 𝑑, 1 , 0 )), 0 ), (𝑎‘𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))))
392		simpl3 1189	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ∈ 𝑌)
393		simprlr 778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑑 ∈ (𝑁 ↑_m 𝑁))
394		simprr 771	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
395		ralss 4036	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑏 ⊆ (𝑏 ∪ {𝑐}) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))))
396	99, 395	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
397		iftrue 4472	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((1^st ‘𝑤) = (1^st ‘𝑐) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, 1 , 0 ))
398	397	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, 1 , 0 ))
399		ibar 531	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((1^st ‘𝑤) = (1^st ‘𝑐) → ((2^nd ‘𝑤) = (2^nd ‘𝑐) ↔ ((1^st ‘𝑤) = (1^st ‘𝑐) ∧ (2^nd ‘𝑤) = (2^nd ‘𝑐))))
400	399	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((2^nd ‘𝑤) = (2^nd ‘𝑐) ↔ ((1^st ‘𝑤) = (1^st ‘𝑐) ∧ (2^nd ‘𝑤) = (2^nd ‘𝑐))))
401		relxp 5572	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ Rel (𝑁 × 𝑁)
402		simpl2 1188	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
403	402	sselda 3966	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → 𝑤 ∈ (𝑁 × 𝑁))
404	403	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → 𝑤 ∈ (𝑁 × 𝑁))
405		1st2nd 7737	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((Rel (𝑁 × 𝑁) ∧ 𝑤 ∈ (𝑁 × 𝑁)) → 𝑤 = ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩)
406	401, 404, 405	sylancr 589	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → 𝑤 = ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩)
407	406	eleq1d 2897	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
408		simpr 487	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → 𝑑 ∈ (𝑁 ↑_m 𝑁))
409		elmapi 8427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 ⊢ (𝑑 ∈ (𝑁 ↑_m 𝑁) → 𝑑:𝑁⟶𝑁)
410	409	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → 𝑑:𝑁⟶𝑁)
411	124	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (1^st ‘𝑐) ∈ 𝑁)
412		xp2nd 7721	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 45 ⊢ (𝑐 ∈ (𝑁 × 𝑁) → (2^nd ‘𝑐) ∈ 𝑁)
413	122, 412	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → (2^nd ‘𝑐) ∈ 𝑁)
414	413	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (2^nd ‘𝑐) ∈ 𝑁)
415		fsets 16515	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (((𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ 𝑑:𝑁⟶𝑁) ∧ (1^st ‘𝑐) ∈ 𝑁 ∧ (2^nd ‘𝑐) ∈ 𝑁) → (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩):𝑁⟶𝑁)
416	408, 410, 411, 414, 415	syl211anc 1372	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩):𝑁⟶𝑁)
417	416	ffnd 6514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) Fn 𝑁)
418	417	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) Fn 𝑁)
419		xp1st 7720	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (1^st ‘𝑤) ∈ 𝑁)
420	403, 419	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → (1^st ‘𝑤) ∈ 𝑁)
421	420	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (1^st ‘𝑤) ∈ 𝑁)
422		fnopfvb 6718	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) Fn 𝑁 ∧ (1^st ‘𝑤) ∈ 𝑁) → (((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = (2^nd ‘𝑤) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
423	418, 421, 422	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = (2^nd ‘𝑤) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
424		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ ((1^st ‘𝑤) = (1^st ‘𝑐) → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑐)))
425	424	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑐)))
426		vex 3497	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ 𝑑 ∈ V
427		fvex 6682	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (1^st ‘𝑐) ∈ V
428		fvex 6682	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (2^nd ‘𝑐) ∈ V
429		fvsetsid 16514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ ((𝑑 ∈ V ∧ (1^st ‘𝑐) ∈ V ∧ (2^nd ‘𝑐) ∈ V) → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑐)) = (2^nd ‘𝑐))
430	426, 427, 428, 429	mp3an 1457	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑐)) = (2^nd ‘𝑐)
431	425, 430	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = (2^nd ‘𝑐))
432	431	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = (2^nd ‘𝑤) ↔ (2^nd ‘𝑐) = (2^nd ‘𝑤)))
433		eqcom 2828	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((2^nd ‘𝑐) = (2^nd ‘𝑤) ↔ (2^nd ‘𝑤) = (2^nd ‘𝑐))
434	432, 433	syl6bb 289	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)‘(1^st ‘𝑤)) = (2^nd ‘𝑤) ↔ (2^nd ‘𝑤) = (2^nd ‘𝑐)))
435	407, 423, 434	3bitr2rd 310	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((2^nd ‘𝑤) = (2^nd ‘𝑐) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
436	122	ad3antrrr 728	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → 𝑐 ∈ (𝑁 × 𝑁))
437		xpopth 7729	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ 𝑐 ∈ (𝑁 × 𝑁)) → (((1^st ‘𝑤) = (1^st ‘𝑐) ∧ (2^nd ‘𝑤) = (2^nd ‘𝑐)) ↔ 𝑤 = 𝑐))
438	404, 436, 437	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (((1^st ‘𝑤) = (1^st ‘𝑐) ∧ (2^nd ‘𝑤) = (2^nd ‘𝑐)) ↔ 𝑤 = 𝑐))
439	400, 435, 438	3bitr3rd 312	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → (𝑤 = 𝑐 ↔ 𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
440	439	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → if(𝑤 = 𝑐, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
441	398, 440	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
442	441	a1d 25	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
443		elsni 4583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑤 ∈ {𝑐} → 𝑤 = 𝑐)
444	443	fveq2d 6673	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (𝑤 ∈ {𝑐} → (1^st ‘𝑤) = (1^st ‘𝑐))
445	444	con3i 157	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (¬ (1^st ‘𝑤) = (1^st ‘𝑐) → ¬ 𝑤 ∈ {𝑐})
446	445	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → ¬ 𝑤 ∈ {𝑐})
447		elun 4124	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (𝑤 ∈ (𝑏 ∪ {𝑐}) ↔ (𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}))
448	447	biimpi 218	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (𝑤 ∈ (𝑏 ∪ {𝑐}) → (𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}))
449	448	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → (𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}))
450		orel2 887	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (¬ 𝑤 ∈ {𝑐} → ((𝑤 ∈ 𝑏 ∨ 𝑤 ∈ {𝑐}) → 𝑤 ∈ 𝑏))
451	446, 449, 450	sylc 65	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → 𝑤 ∈ 𝑏)
452	451	adantll 712	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → 𝑤 ∈ 𝑏)
453		iffalse 4475	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (¬ (1^st ‘𝑤) = (1^st ‘𝑐) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ 𝑑, 1 , 0 ))
454	453	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ 𝑑, 1 , 0 ))
455		setsres 16524	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (𝑑 ∈ V → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) = (𝑑 ↾ (V ∖ {(1^st ‘𝑐)})))
456	455	eleq2d 2898	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑑 ∈ V → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1^st ‘𝑐)}))))
457	426, 456	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1^st ‘𝑐)}))))
458		fvex 6682	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (1^st ‘𝑤) ∈ V
459	458	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (¬ (1^st ‘𝑤) = (1^st ‘𝑐) → (1^st ‘𝑤) ∈ V)
460		neqne 3024	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (¬ (1^st ‘𝑤) = (1^st ‘𝑐) → (1^st ‘𝑤) ≠ (1^st ‘𝑐))
461		eldifsn 4718	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)}) ↔ ((1^st ‘𝑤) ∈ V ∧ (1^st ‘𝑤) ≠ (1^st ‘𝑐)))
462	459, 460, 461	sylanbrc 585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (¬ (1^st ‘𝑤) = (1^st ‘𝑐) → (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)}))
463		fvex 6682	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (2^nd ‘𝑤) ∈ V
464	463	opres 5862	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)}) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
465	464	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)})) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
466		1st2nd2 7727	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → 𝑤 = ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩)
467	466	eleq1d 2897	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
468	467	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)})) → (𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
469	465, 468	bitr4d 284	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)})) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
470	403, 462, 469	syl2an 597	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ↾ (V ∖ {(1^st ‘𝑐)})) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
471	463	opres 5862	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ ((1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)}) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1^st ‘𝑐)})) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ 𝑑))
472	471	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)})) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1^st ‘𝑐)})) ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ 𝑑))
473	466	eleq1d 2897	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (𝑤 ∈ 𝑑 ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ 𝑑))
474	473	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)})) → (𝑤 ∈ 𝑑 ↔ ⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ 𝑑))
475	472, 474	bitr4d 284	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝑤 ∈ (𝑁 × 𝑁) ∧ (1^st ‘𝑤) ∈ (V ∖ {(1^st ‘𝑐)})) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1^st ‘𝑐)})) ↔ 𝑤 ∈ 𝑑))
476	403, 462, 475	syl2an 597	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → (⟨(1^st ‘𝑤), (2^nd ‘𝑤)⟩ ∈ (𝑑 ↾ (V ∖ {(1^st ‘𝑐)})) ↔ 𝑤 ∈ 𝑑))
477	457, 470, 476	3bitr3rd 312	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → (𝑤 ∈ 𝑑 ↔ 𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
478	477	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → if(𝑤 ∈ 𝑑, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
479	454, 478	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
480		ifeq2 4471	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )))
481	480	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ) ↔ if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
482	479, 481	syl5ibrcom 249	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
483	452, 482	embantd 59	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1^st ‘𝑤) = (1^st ‘𝑐)) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
484	442, 483	pm2.61dan 811	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
485		fveqeq2 6678	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑒 = 𝑤 → ((1^st ‘𝑒) = (1^st ‘𝑐) ↔ (1^st ‘𝑤) = (1^st ‘𝑐)))
486		equequ1 2028	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (𝑒 = 𝑤 → (𝑒 = 𝑐 ↔ 𝑤 = 𝑐))
487	486	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑒 = 𝑤 → if(𝑒 = 𝑐, 1 , 0 ) = if(𝑤 = 𝑐, 1 , 0 ))
488		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑒 = 𝑤 → (𝑎‘𝑒) = (𝑎‘𝑤))
489	485, 487, 488	ifbieq12d 4493	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑒 = 𝑤 → if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)) = if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)))
490		eqid 2821	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))
491	165, 162	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ if(𝑤 = 𝑐, 1 , 0 ) ∈ V
492		fvex 6682	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑎‘𝑤) ∈ V
493	491, 492	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) ∈ V
494	489, 490, 493	fvmpt 6767	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)))
495	494	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑤 ∈ (𝑁 × 𝑁) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ) ↔ if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
496	403, 495	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ) ↔ if((1^st ‘𝑤) = (1^st ‘𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
497	484, 496	sylibrd 261	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → ((𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
498	497	ralimdva 3177	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤 ∈ 𝑏 → (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
499	396, 498	syl5bi 244	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
500	499	impr 457	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ (𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
501	500	3adantr1 1165	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
502	348	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
503		simpr2 1191	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑑 ∈ (𝑁 ↑_m 𝑁))
504	503, 409	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑑:𝑁⟶𝑁)
505	124	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (1^st ‘𝑐) ∈ 𝑁)
506	413	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (2^nd ‘𝑐) ∈ 𝑁)
507	503, 504, 505, 506, 415	syl211anc 1372	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩):𝑁⟶𝑁)
508	158, 158	elmapd 8419	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ∈ (𝑁 ↑_m 𝑁) ↔ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩):𝑁⟶𝑁))
509	508	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ∈ (𝑁 ↑_m 𝑁) ↔ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩):𝑁⟶𝑁))
510	507, 509	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ∈ (𝑁 ↑_m 𝑁))
511		simpr1 1190	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ∈ 𝑌)
512		raleq 3405	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑥 = (𝑏 ∪ {𝑐}) → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
513	512	imbi1d 344	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑥 = (𝑏 ∪ {𝑐}) → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
514	513	2ralbidv 3199	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑥 = (𝑏 ∪ {𝑐}) → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
515	514, 72	elab2g 3667	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑏 ∪ {𝑐}) ∈ 𝑌 → ((𝑏 ∪ {𝑐}) ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
516	515	ibi 269	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑏 ∪ {𝑐}) ∈ 𝑌 → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
517	511, 516	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
518		fveq1 6668	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (𝑦‘𝑤) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤))
519	518	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
520	519	ralbidv 3197	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
521		fveqeq2 6678	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑦) = 0 ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
522	520, 521	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
523		eleq2 2901	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑧 = (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩)))
524	523	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑧 = (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) → if(𝑤 ∈ 𝑧, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ))
525	524	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑧 = (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
526	525	ralbidv 3197	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 )))
527	526	imbi1d 344	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
528	522, 527	rspc2va 3633	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵 ∧ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩) ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
529	502, 510, 517, 528	syl21anc 835	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ (𝑑 sSet ⟨(1^st ‘𝑐), (2^nd ‘𝑐)⟩), 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
530	501, 529	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒)))) = 0 )
531	530	oveq2d 7171	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) = (((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ))
532	118	unssad 4162	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → 𝑏 ⊆ (𝑁 × 𝑁))
533	532	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → 𝑏 ⊆ (𝑁 × 𝑁))
534		simpr3 1192	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
535		ssel2 3961	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) → 𝑤 ∈ (𝑁 × 𝑁))
536	535	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → 𝑤 ∈ (𝑁 × 𝑁))
537		elequ1 2117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑒 = 𝑤 → (𝑒 ∈ 𝑑 ↔ 𝑤 ∈ 𝑑))
538	537	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑒 = 𝑤 → if(𝑒 ∈ 𝑑, 1 , 0 ) = if(𝑤 ∈ 𝑑, 1 , 0 ))
539	486, 538, 488	ifbieq12d 4493	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 = 𝑤 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)))
540		eqid 2821	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))
541	165, 162	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ if(𝑤 ∈ 𝑑, 1 , 0 ) ∈ V
542	541, 492	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) ∈ V
543	539, 540, 542	fvmpt 6767	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 4471	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )))
546	545	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )))
547		ifid 4505	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), if(𝑤 ∈ 𝑑, 1 , 0 )) = if(𝑤 ∈ 𝑑, 1 , 0 )
548	546, 547	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → if(𝑤 = 𝑐, if(𝑤 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑤)) = if(𝑤 ∈ 𝑑, 1 , 0 ))
549	544, 548	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) ∧ (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
550	549	ex 415	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑏 ⊆ (𝑁 × 𝑁) ∧ 𝑤 ∈ 𝑏) → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
551	550	ralimdva 3177	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2856	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)) = if(𝑐 ∈ 𝑑, 1 , 0 ))
554	165, 162	ifex 4514	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ if(𝑐 ∈ 𝑑, 1 , 0 ) ∈ V
555	553, 540, 554	fvmpt 6767	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑐 ∈ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))
556	122, 555	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))
557	556	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 ))
558		fveq2 6669	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = 𝑐 → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐))
559		elequ1 2117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑤 = 𝑐 → (𝑤 ∈ 𝑑 ↔ 𝑐 ∈ 𝑑))
560	559	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑤 = 𝑐 → if(𝑤 ∈ 𝑑, 1 , 0 ) = if(𝑐 ∈ 𝑑, 1 , 0 ))
561	558, 560	eqeq12d 2837	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑤 = 𝑐 → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑐) = if(𝑐 ∈ 𝑑, 1 , 0 )))
562	561	ralunsn 4823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 3499	. . . . . . . . . . . . . . . . . . . . . . . . . . . 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 585	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))
565	223	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) ∈ 𝐵)
566		fveq1 6668	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (𝑦‘𝑤) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤))
567	566	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
568	567	ralbidv 3197	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → (∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
569		fveqeq2 6678	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((𝐷‘𝑦) = 0 ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 ))
570	568, 569	imbi12d 347	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))) → ((∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))) = 0 )))
571		elequ2 2125	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑧 = 𝑑 → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ 𝑑))
572	571	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑧 = 𝑑 → if(𝑤 ∈ 𝑧, 1 , 0 ) = if(𝑤 ∈ 𝑑, 1 , 0 ))
573	572	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑧 = 𝑑 → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
574	573	ralbidv 3197	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑧 = 𝑑 → (∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒)))‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
575	574	imbi1d 344	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 3633	. . . . . . . . . . . . . . . . . . . . . . . . . . . 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 835	. . . . . . . . . . . . . . . . . . . . . . . . . . 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 7173	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ))
580	308	oveq1d 7170	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ) = ( 0 + 0 ))
581	12, 50, 48	grplid 18132	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑅 ∈ Grp ∧ 0 ∈ 𝐾) → ( 0 + 0 ) = 0 )
582	115, 133, 581	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ( 0 + 0 ) = 0 )
583	580, 582	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) → ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ) = 0 )
584	583	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · 0 ) + 0 ) = 0 )
585	579, 584	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎 ∈ 𝐵) ∧ ((𝑏 ∪ {𝑐}) ∈ 𝑌 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = 0 )
586	104, 105, 106, 392, 393, 394, 585	syl33anc 1381	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → ((((𝑎‘𝑐)(-_g‘𝑅)if(𝑐 ∈ 𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1^st ‘𝑒) = (1^st ‘𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎‘𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒 ∈ 𝑑, 1 , 0 ), (𝑎‘𝑒))))) = 0 )
587	288, 391, 586	3eqtrd 2860	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ))) → (𝐷‘𝑎) = 0 )
588	587	expr 459	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ (𝑎 ∈ 𝐵 ∧ 𝑑 ∈ (𝑁 ↑_m 𝑁))) → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ))
589	588	ralrimivva 3191	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) → ∀𝑎 ∈ 𝐵 ∀𝑑 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ))
590		fveq1 6668	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = 𝑦 → (𝑎‘𝑤) = (𝑦‘𝑤))
591	590	eqeq1d 2823	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑦 → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
592	591	ralbidv 3197	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑦 → (∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 )))
593		fveqeq2 6678	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑦 → ((𝐷‘𝑎) = 0 ↔ (𝐷‘𝑦) = 0 ))
594	592, 593	imbi12d 347	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = 𝑦 → ((∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ) ↔ (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
595		elequ2 2125	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑑 = 𝑧 → (𝑤 ∈ 𝑑 ↔ 𝑤 ∈ 𝑧))
596	595	ifbid 4488	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑑 = 𝑧 → if(𝑤 ∈ 𝑑, 1 , 0 ) = if(𝑤 ∈ 𝑧, 1 , 0 ))
597	596	eqeq2d 2832	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑑 = 𝑧 → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
598	597	ralbidv 3197	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 = 𝑧 → (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
599	598	imbi1d 344	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑑 = 𝑧 → ((∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
600	594, 599	cbvral2vw 3461	. . . . . . . . . . . . . . . . . . . 20 ⊢ (∀𝑎 ∈ 𝐵 ∀𝑑 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑏 (𝑎‘𝑤) = if(𝑤 ∈ 𝑑, 1 , 0 ) → (𝐷‘𝑎) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
601	589, 600	sylib 220	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
602		vex 3497	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑏 ∈ V
603		raleq 3405	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = 𝑏 → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
604	603	imbi1d 344	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = 𝑏 → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
605	604	2ralbidv 3199	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑏 → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
606	602, 605, 72	elab2 3669	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑏 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
607	601, 606	sylibr 236	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) → 𝑏 ∈ 𝑌)
608	607	3expia 1117	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)) → ((𝑏 ∪ {𝑐}) ∈ 𝑌 → 𝑏 ∈ 𝑌))
609	608	con3d 155	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)) → (¬ 𝑏 ∈ 𝑌 → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌))
610	609	3adant3 1128	. . . . . . . . . . . . . . 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 8758	. . . . . . . . . . 11 ⊢ ((𝑁 × 𝑁) ∈ Fin → ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌))
615	77, 614	mpcom 38	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌)
616	615	3exp 1115	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) → (¬ ∅ ∈ 𝑌 → ¬ (𝑁 × 𝑁) ∈ 𝑌)))
617	76, 616	mpi 20	. . . . . . . 8 ⊢ (𝜑 → (¬ ∅ ∈ 𝑌 → ¬ (𝑁 × 𝑁) ∈ 𝑌))
618	75, 617	mt4d 117	. . . . . . 7 ⊢ (𝜑 → ∅ ∈ 𝑌)
619	618	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ∅ ∈ 𝑌)
620		0ex 5210	. . . . . . 7 ⊢ ∅ ∈ V
621		raleq 3405	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
622	621	imbi1d 344	. . . . . . . 8 ⊢ (𝑥 = ∅ → ((∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
623	622	2ralbidv 3199	. . . . . . 7 ⊢ (𝑥 = ∅ → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ 𝑥 (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )))
624	620, 623, 72	elab2 3669	. . . . . 6 ⊢ (∅ ∈ 𝑌 ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
625	619, 624	sylib 220	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ))
626		fveq1 6668	. . . . . . . . 9 ⊢ (𝑦 = 𝑎 → (𝑦‘𝑤) = (𝑎‘𝑤))
627	626	eqeq1d 2823	. . . . . . . 8 ⊢ (𝑦 = 𝑎 → ((𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
628	627	ralbidv 3197	. . . . . . 7 ⊢ (𝑦 = 𝑎 → (∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 )))
629		fveqeq2 6678	. . . . . . 7 ⊢ (𝑦 = 𝑎 → ((𝐷‘𝑦) = 0 ↔ (𝐷‘𝑎) = 0 ))
630	628, 629	imbi12d 347	. . . . . 6 ⊢ (𝑦 = 𝑎 → ((∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 ) ↔ (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑎) = 0 )))
631		eleq2 2901	. . . . . . . . . 10 ⊢ (𝑧 = ( I ↾ 𝑁) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ ( I ↾ 𝑁)))
632	631	ifbid 4488	. . . . . . . . 9 ⊢ (𝑧 = ( I ↾ 𝑁) → if(𝑤 ∈ 𝑧, 1 , 0 ) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ))
633	632	eqeq2d 2832	. . . . . . . 8 ⊢ (𝑧 = ( I ↾ 𝑁) → ((𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )))
634	633	ralbidv 3197	. . . . . . 7 ⊢ (𝑧 = ( I ↾ 𝑁) → (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )))
635	634	imbi1d 344	. . . . . 6 ⊢ (𝑧 = ( I ↾ 𝑁) → ((∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑎) = 0 ) ↔ (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ) → (𝐷‘𝑎) = 0 )))
636	630, 635	rspc2va 3633	. . . . 5 ⊢ (((𝑎 ∈ 𝐵 ∧ ( I ↾ 𝑁) ∈ (𝑁 ↑_m 𝑁)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ (𝑁 ↑_m 𝑁)(∀𝑤 ∈ ∅ (𝑦‘𝑤) = if(𝑤 ∈ 𝑧, 1 , 0 ) → (𝐷‘𝑦) = 0 )) → (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ) → (𝐷‘𝑎) = 0 ))
637	2, 9, 625, 636	syl21anc 835	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → (∀𝑤 ∈ ∅ (𝑎‘𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 ) → (𝐷‘𝑎) = 0 ))
638	1, 637	mpi 20	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → (𝐷‘𝑎) = 0 )
639	638	mpteq2dva 5160	. 2 ⊢ (𝜑 → (𝑎 ∈ 𝐵 ↦ (𝐷‘𝑎)) = (𝑎 ∈ 𝐵 ↦ 0 ))
640	53	feqmptd 6732	. 2 ⊢ (𝜑 → 𝐷 = (𝑎 ∈ 𝐵 ↦ (𝐷‘𝑎)))
641		fconstmpt 5613	. . 3 ⊢ (𝐵 × { 0 }) = (𝑎 ∈ 𝐵 ↦ 0 )
642	641	a1i 11	. 2 ⊢ (𝜑 → (𝐵 × { 0 }) = (𝑎 ∈ 𝐵 ↦ 0 ))
643	639, 640, 642	3eqtr4d 2866	1 ⊢ (𝜑 → 𝐷 = (𝐵 × { 0 }))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 398 ∨ wo 843 ∧ w3a 1083 = wceq 1533 ∈ wcel 2110 {cab 2799 ≠ wne 3016 ∀wral 3138 Vcvv 3494 ∖ cdif 3932 ∪ cun 3933 ⊆ wss 3935 ∅c0 4290 ifcif 4466 {csn 4566 ⟨cop 4572 ↦ cmpt 5145 I cid 5458 × cxp 5552 ↾ cres 5556 Rel wrel 5559 Fn wfn 6349 ⟶wf 6350 –1-1-onto→wf1o 6353 ‘cfv 6354 (class class class)co 7155 ∈ cmpo 7157 ∘_f cof 7406 1^st c1st 7686 2^nd c2nd 7687 ↑_m cmap 8405 Fincfn 8508 sSet csts 16480 Basecbs 16482 +_gcplusg 16564 ._rcmulr 16565 0_gc0g 16712 Grpcgrp 18102 -_gcsg 18104 1_rcur 19250 Ringcrg 19296 Mat cmat 21015

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1792 ax-4 1806 ax-5 1907 ax-6 1966 ax-7 2011 ax-8 2112 ax-9 2120 ax-10 2141 ax-11 2157 ax-12 2173 ax-ext 2793 ax-rep 5189 ax-sep 5202 ax-nul 5209 ax-pow 5265 ax-pr 5329 ax-un 7460 ax-cnex 10592 ax-resscn 10593 ax-1cn 10594 ax-icn 10595 ax-addcl 10596 ax-addrcl 10597 ax-mulcl 10598 ax-mulrcl 10599 ax-mulcom 10600 ax-addass 10601 ax-mulass 10602 ax-distr 10603 ax-i2m1 10604 ax-1ne0 10605 ax-1rid 10606 ax-rnegex 10607 ax-rrecex 10608 ax-cnre 10609 ax-pre-lttri 10610 ax-pre-lttrn 10611 ax-pre-ltadd 10612 ax-pre-mulgt0 10613 ax-addf 10615 ax-mulf 10616

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-xor 1501 df-tru 1536 df-fal 1546 df-ex 1777 df-nf 1781 df-sb 2066 df-mo 2618 df-eu 2650 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rmo 3146 df-rab 3147 df-v 3496 df-sbc 3772 df-csb 3883 df-dif 3938 df-un 3940 df-in 3942 df-ss 3951 df-pss 3953 df-nul 4291 df-if 4467 df-pw 4540 df-sn 4567 df-pr 4569 df-tp 4571 df-op 4573 df-ot 4575 df-uni 4838 df-int 4876 df-iun 4920 df-iin 4921 df-br 5066 df-opab 5128 df-mpt 5146 df-tr 5172 df-id 5459 df-eprel 5464 df-po 5473 df-so 5474 df-fr 5513 df-se 5514 df-we 5515 df-xp 5560 df-rel 5561 df-cnv 5562 df-co 5563 df-dm 5564 df-rn 5565 df-res 5566 df-ima 5567 df-pred 6147 df-ord 6193 df-on 6194 df-lim 6195 df-suc 6196 df-iota 6313 df-fun 6356 df-fn 6357 df-f 6358 df-f1 6359 df-fo 6360 df-f1o 6361 df-fv 6362 df-isom 6363 df-riota 7113 df-ov 7158 df-oprab 7159 df-mpo 7160 df-of 7408 df-om 7580 df-1st 7688 df-2nd 7689 df-supp 7830 df-tpos 7891 df-wrecs 7946 df-recs 8007 df-rdg 8045 df-1o 8101 df-2o 8102 df-oadd 8105 df-er 8288 df-map 8407 df-ixp 8461 df-en 8509 df-dom 8510 df-sdom 8511 df-fin 8512 df-fsupp 8833 df-sup 8905 df-oi 8973 df-card 9367 df-pnf 10676 df-mnf 10677 df-xr 10678 df-ltxr 10679 df-le 10680 df-sub 10871 df-neg 10872 df-div 11297 df-nn 11638 df-2 11699 df-3 11700 df-4 11701 df-5 11702 df-6 11703 df-7 11704 df-8 11705 df-9 11706 df-n0 11897 df-xnn0 11967 df-z 11981 df-dec 12098 df-uz 12243 df-rp 12389 df-fz 12892 df-fzo 13033 df-seq 13369 df-exp 13429 df-hash 13690 df-word 13861 df-lsw 13914 df-concat 13922 df-s1 13949 df-substr 14002 df-pfx 14032 df-splice 14111 df-reverse 14120 df-s2 14209 df-struct 16484 df-ndx 16485 df-slot 16486 df-base 16488 df-sets 16489 df-ress 16490 df-plusg 16577 df-mulr 16578 df-starv 16579 df-sca 16580 df-vsca 16581 df-ip 16582 df-tset 16583 df-ple 16584 df-ds 16586 df-unif 16587 df-hom 16588 df-cco 16589 df-0g 16714 df-gsum 16715 df-prds 16720 df-pws 16722 df-mre 16856 df-mrc 16857 df-acs 16859 df-mgm 17851 df-sgrp 17900 df-mnd 17911 df-mhm 17955 df-submnd 17956 df-efmnd 18033 df-grp 18105 df-minusg 18106 df-sbg 18107 df-mulg 18224 df-subg 18275 df-ghm 18355 df-gim 18398 df-cntz 18446 df-oppg 18473 df-symg 18495 df-pmtr 18569 df-psgn 18618 df-evpm 18619 df-cmn 18907 df-abl 18908 df-mgp 19239 df-ur 19251 df-ring 19298 df-cring 19299 df-oppr 19372 df-dvdsr 19390 df-unit 19391 df-invr 19421 df-dvr 19432 df-rnghom 19466 df-drng 19503 df-subrg 19532 df-lmod 19635 df-lss 19703 df-sra 19943 df-rgmod 19944 df-cnfld 20545 df-zring 20617 df-zrh 20650 df-dsmm 20875 df-frlm 20890 df-mamu 20994 df-mat 21016

This theorem is referenced by: mdetuni0 21229

W3C validator