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

Theorem mdetunilem9 20635
Description: Lemma for mdetuni 20637. (Contributed by SO, 15-Jul-2018.)
Hypotheses
Ref Expression
mdetuni.a 𝐴 = (𝑁 Mat 𝑅)
mdetuni.b 𝐵 = (Base‘𝐴)
mdetuni.k 𝐾 = (Base‘𝑅)
mdetuni.0g 0 = (0g𝑅)
mdetuni.1r 1 = (1r𝑅)
mdetuni.pg + = (+g𝑅)
mdetuni.tg · = (.r𝑅)
mdetuni.n (𝜑𝑁 ∈ Fin)
mdetuni.r (𝜑𝑅 ∈ Ring)
mdetuni.ff (𝜑𝐷:𝐵𝐾)
mdetuni.al (𝜑 → ∀𝑥𝐵𝑦𝑁𝑧𝑁 ((𝑦𝑧 ∧ ∀𝑤𝑁 (𝑦𝑥𝑤) = (𝑧𝑥𝑤)) → (𝐷𝑥) = 0 ))
mdetuni.li (𝜑 → ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧))))
mdetuni.sc (𝜑 → ∀𝑥𝐵𝑦𝐾𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = (𝑦 · (𝐷𝑧))))
mdetunilem9.id (𝜑 → (𝐷‘(1r𝐴)) = 0 )
mdetunilem9.y 𝑌 = {𝑥 ∣ ∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤𝑥 (𝑦𝑤) = 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.
StepHypRef Expression
1 ral0 4269 . . . 4 𝑤 ∈ ∅ (𝑎𝑤) = if(𝑤 ∈ ( I ↾ 𝑁), 1 , 0 )
2 simpr 473 . . . . 5 ((𝜑𝑎𝐵) → 𝑎𝐵)
3 f1oi 6388 . . . . . . . 8 ( I ↾ 𝑁):𝑁1-1-onto𝑁
4 f1of 6351 . . . . . . . 8 (( I ↾ 𝑁):𝑁1-1-onto𝑁 → ( I ↾ 𝑁):𝑁𝑁)
53, 4mp1i 13 . . . . . . 7 (𝜑 → ( I ↾ 𝑁):𝑁𝑁)
6 mdetuni.n . . . . . . . 8 (𝜑𝑁 ∈ Fin)
76, 6elmapd 8104 . . . . . . 7 (𝜑 → (( I ↾ 𝑁) ∈ (𝑁𝑚 𝑁) ↔ ( I ↾ 𝑁):𝑁𝑁))
85, 7mpbird 248 . . . . . 6 (𝜑 → ( I ↾ 𝑁) ∈ (𝑁𝑚 𝑁))
98adantr 468 . . . . 5 ((𝜑𝑎𝐵) → ( I ↾ 𝑁) ∈ (𝑁𝑚 𝑁))
10 simplrl 786 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → 𝑦𝐵)
11 mdetuni.a . . . . . . . . . . . . . . . . 17 𝐴 = (𝑁 Mat 𝑅)
12 mdetuni.k . . . . . . . . . . . . . . . . 17 𝐾 = (Base‘𝑅)
13 mdetuni.b . . . . . . . . . . . . . . . . 17 𝐵 = (Base‘𝐴)
1411, 12, 13matbas2i 20436 . . . . . . . . . . . . . . . 16 (𝑦𝐵𝑦 ∈ (𝐾𝑚 (𝑁 × 𝑁)))
15 elmapi 8112 . . . . . . . . . . . . . . . 16 (𝑦 ∈ (𝐾𝑚 (𝑁 × 𝑁)) → 𝑦:(𝑁 × 𝑁)⟶𝐾)
1614, 15syl 17 . . . . . . . . . . . . . . 15 (𝑦𝐵𝑦:(𝑁 × 𝑁)⟶𝐾)
1716feqmptd 6468 . . . . . . . . . . . . . 14 (𝑦𝐵𝑦 = (𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤)))
1817fveq2d 6410 . . . . . . . . . . . . 13 (𝑦𝐵 → (𝐷𝑦) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤))))
1910, 18syl 17 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → (𝐷𝑦) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤))))
20 eqid 2804 . . . . . . . . . . . . . 14 (𝑁 × 𝑁) = (𝑁 × 𝑁)
21 mpteq12 4928 . . . . . . . . . . . . . . 15 (((𝑁 × 𝑁) = (𝑁 × 𝑁) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → (𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤)) = (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 )))
2221fveq2d 6410 . . . . . . . . . . . . . 14 (((𝑁 × 𝑁) = (𝑁 × 𝑁) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))))
2320, 22mpan 673 . . . . . . . . . . . . 13 (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))))
2423adantl 469 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ (𝑦𝑤))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))))
25 eleq1 2871 . . . . . . . . . . . . . . . . 17 (𝑎 = 𝑧 → (𝑎 ∈ (𝑁𝑚 𝑁) ↔ 𝑧 ∈ (𝑁𝑚 𝑁)))
2625anbi2d 616 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑧 → ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) ↔ (𝜑𝑧 ∈ (𝑁𝑚 𝑁))))
27 elequ2 2170 . . . . . . . . . . . . . . . . . . . 20 (𝑎 = 𝑧 → (𝑤𝑎𝑤𝑧))
2827ifbid 4299 . . . . . . . . . . . . . . . . . . 19 (𝑎 = 𝑧 → if(𝑤𝑎, 1 , 0 ) = if(𝑤𝑧, 1 , 0 ))
2928mpteq2dv 4937 . . . . . . . . . . . . . . . . . 18 (𝑎 = 𝑧 → (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 )) = (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 )))
3029fveq2d 6410 . . . . . . . . . . . . . . . . 17 (𝑎 = 𝑧 → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 ))) = (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))))
3130eqeq1d 2806 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑧 → ((𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 ))) = 0 ↔ (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))) = 0 ))
3226, 31imbi12d 335 . . . . . . . . . . . . . . 15 (𝑎 = 𝑧 → (((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 ))) = 0 ) ↔ ((𝜑𝑧 ∈ (𝑁𝑚 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))) = 0 )))
33 eleq1 2871 . . . . . . . . . . . . . . . . . . . 20 (𝑤 = ⟨𝑏, 𝑐⟩ → (𝑤𝑎 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
3433ifbid 4299 . . . . . . . . . . . . . . . . . . 19 (𝑤 = ⟨𝑏, 𝑐⟩ → if(𝑤𝑎, 1 , 0 ) = if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ))
3534mpt2mpt 6980 . . . . . . . . . . . . . . . . . 18 (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 )) = (𝑏𝑁, 𝑐𝑁 ↦ if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ))
36 elmapi 8112 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑎 ∈ (𝑁𝑚 𝑁) → 𝑎:𝑁𝑁)
3736adantl 469 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → 𝑎:𝑁𝑁)
3837ffnd 6255 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → 𝑎 Fn 𝑁)
39383ad2ant1 1156 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) ∧ 𝑏𝑁𝑐𝑁) → 𝑎 Fn 𝑁)
40 simp2 1160 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) ∧ 𝑏𝑁𝑐𝑁) → 𝑏𝑁)
41 fnopfvb 6455 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑎 Fn 𝑁𝑏𝑁) → ((𝑎𝑏) = 𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
4239, 40, 41syl2anc 575 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) ∧ 𝑏𝑁𝑐𝑁) → ((𝑎𝑏) = 𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ 𝑎))
4342bicomd 214 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) ∧ 𝑏𝑁𝑐𝑁) → (⟨𝑏, 𝑐⟩ ∈ 𝑎 ↔ (𝑎𝑏) = 𝑐))
4443ifbid 4299 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) ∧ 𝑏𝑁𝑐𝑁) → if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 ) = if((𝑎𝑏) = 𝑐, 1 , 0 ))
4544mpt2eq3dva 6947 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → (𝑏𝑁, 𝑐𝑁 ↦ if(⟨𝑏, 𝑐⟩ ∈ 𝑎, 1 , 0 )) = (𝑏𝑁, 𝑐𝑁 ↦ if((𝑎𝑏) = 𝑐, 1 , 0 )))
4635, 45syl5eq 2850 . . . . . . . . . . . . . . . . 17 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → (𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 )) = (𝑏𝑁, 𝑐𝑁 ↦ if((𝑎𝑏) = 𝑐, 1 , 0 )))
4746fveq2d 6410 . . . . . . . . . . . . . . . 16 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 ))) = (𝐷‘(𝑏𝑁, 𝑐𝑁 ↦ if((𝑎𝑏) = 𝑐, 1 , 0 ))))
48 mdetuni.0g . . . . . . . . . . . . . . . . . 18 0 = (0g𝑅)
49 mdetuni.1r . . . . . . . . . . . . . . . . . 18 1 = (1r𝑅)
50 mdetuni.pg . . . . . . . . . . . . . . . . . 18 + = (+g𝑅)
51 mdetuni.tg . . . . . . . . . . . . . . . . . 18 · = (.r𝑅)
52 mdetuni.r . . . . . . . . . . . . . . . . . 18 (𝜑𝑅 ∈ Ring)
53 mdetuni.ff . . . . . . . . . . . . . . . . . 18 (𝜑𝐷:𝐵𝐾)
54 mdetuni.al . . . . . . . . . . . . . . . . . 18 (𝜑 → ∀𝑥𝐵𝑦𝑁𝑧𝑁 ((𝑦𝑧 ∧ ∀𝑤𝑁 (𝑦𝑥𝑤) = (𝑧𝑥𝑤)) → (𝐷𝑥) = 0 ))
55 mdetuni.li . . . . . . . . . . . . . . . . . 18 (𝜑 → ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧))))
56 mdetuni.sc . . . . . . . . . . . . . . . . . 18 (𝜑 → ∀𝑥𝐵𝑦𝐾𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = (𝑦 · (𝐷𝑧))))
57 mdetunilem9.id . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐷‘(1r𝐴)) = 0 )
5811, 13, 12, 48, 49, 50, 51, 6, 52, 53, 54, 55, 56, 57mdetunilem8 20634 . . . . . . . . . . . . . . . . 17 ((𝜑𝑎:𝑁𝑁) → (𝐷‘(𝑏𝑁, 𝑐𝑁 ↦ if((𝑎𝑏) = 𝑐, 1 , 0 ))) = 0 )
5936, 58sylan2 582 . . . . . . . . . . . . . . . 16 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → (𝐷‘(𝑏𝑁, 𝑐𝑁 ↦ if((𝑎𝑏) = 𝑐, 1 , 0 ))) = 0 )
6047, 59eqtrd 2838 . . . . . . . . . . . . . . 15 ((𝜑𝑎 ∈ (𝑁𝑚 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑎, 1 , 0 ))) = 0 )
6132, 60chvarv 2437 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ (𝑁𝑚 𝑁)) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))) = 0 )
6261adantrl 698 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))) = 0 )
6362adantr 468 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → (𝐷‘(𝑤 ∈ (𝑁 × 𝑁) ↦ if(𝑤𝑧, 1 , 0 ))) = 0 )
6419, 24, 633eqtrd 2842 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) ∧ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )) → (𝐷𝑦) = 0 )
6564ex 399 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁))) → (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 ))
6665ralrimivva 3157 . . . . . . . . 9 (𝜑 → ∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 ))
67 xpfi 8468 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑁 ∈ Fin) → (𝑁 × 𝑁) ∈ Fin)
686, 6, 67syl2anc 575 . . . . . . . . . 10 (𝜑 → (𝑁 × 𝑁) ∈ Fin)
69 raleq 3325 . . . . . . . . . . . . 13 (𝑥 = (𝑁 × 𝑁) → (∀𝑤𝑥 (𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 )))
7069imbi1d 332 . . . . . . . . . . . 12 (𝑥 = (𝑁 × 𝑁) → ((∀𝑤𝑥 (𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 ) ↔ (∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 )))
71702ralbidv 3175 . . . . . . . . . . 11 (𝑥 = (𝑁 × 𝑁) → (∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤𝑥 (𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 ) ↔ ∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 )))
72 mdetunilem9.y . . . . . . . . . . 11 𝑌 = {𝑥 ∣ ∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤𝑥 (𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 )}
7371, 72elab2g 3546 . . . . . . . . . 10 ((𝑁 × 𝑁) ∈ Fin → ((𝑁 × 𝑁) ∈ 𝑌 ↔ ∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 )))
7468, 73syl 17 . . . . . . . . 9 (𝜑 → ((𝑁 × 𝑁) ∈ 𝑌 ↔ ∀𝑦𝐵𝑧 ∈ (𝑁𝑚 𝑁)(∀𝑤 ∈ (𝑁 × 𝑁)(𝑦𝑤) = if(𝑤𝑧, 1 , 0 ) → (𝐷𝑦) = 0 )))
7566, 74mpbird 248 . . . . . . . 8 (𝜑 → (𝑁 × 𝑁) ∈ 𝑌)
76 ssid 3818 . . . . . . . . 9 (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁)
77683ad2ant1 1156 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (𝑁 × 𝑁) ∈ Fin)
78 sseq1 3821 . . . . . . . . . . . . . 14 (𝑎 = ∅ → (𝑎 ⊆ (𝑁 × 𝑁) ↔ ∅ ⊆ (𝑁 × 𝑁)))
79783anbi2d 1558 . . . . . . . . . . . . 13 (𝑎 = ∅ → ((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
80 eleq1 2871 . . . . . . . . . . . . . 14 (𝑎 = ∅ → (𝑎𝑌 ↔ ∅ ∈ 𝑌))
8180notbid 309 . . . . . . . . . . . . 13 (𝑎 = ∅ → (¬ 𝑎𝑌 ↔ ¬ ∅ ∈ 𝑌))
8279, 81imbi12d 335 . . . . . . . . . . . 12 (𝑎 = ∅ → (((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎𝑌) ↔ ((𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ ∅ ∈ 𝑌)))
83 sseq1 3821 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝑎 ⊆ (𝑁 × 𝑁) ↔ 𝑏 ⊆ (𝑁 × 𝑁)))
84833anbi2d 1558 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → ((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
85 eleq1 2871 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝑎𝑌𝑏𝑌))
8685notbid 309 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → (¬ 𝑎𝑌 ↔ ¬ 𝑏𝑌))
8784, 86imbi12d 335 . . . . . . . . . . . 12 (𝑎 = 𝑏 → (((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎𝑌) ↔ ((𝜑𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏𝑌)))
88 sseq1 3821 . . . . . . . . . . . . . 14 (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎 ⊆ (𝑁 × 𝑁) ↔ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁)))
89883anbi2d 1558 . . . . . . . . . . . . 13 (𝑎 = (𝑏 ∪ {𝑐}) → ((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
90 eleq1 2871 . . . . . . . . . . . . . 14 (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎𝑌 ↔ (𝑏 ∪ {𝑐}) ∈ 𝑌))
9190notbid 309 . . . . . . . . . . . . 13 (𝑎 = (𝑏 ∪ {𝑐}) → (¬ 𝑎𝑌 ↔ ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌))
9289, 91imbi12d 335 . . . . . . . . . . . 12 (𝑎 = (𝑏 ∪ {𝑐}) → (((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎𝑌) ↔ ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑏 ∪ {𝑐}) ∈ 𝑌)))
93 sseq1 3821 . . . . . . . . . . . . . 14 (𝑎 = (𝑁 × 𝑁) → (𝑎 ⊆ (𝑁 × 𝑁) ↔ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁)))
94933anbi2d 1558 . . . . . . . . . . . . 13 (𝑎 = (𝑁 × 𝑁) → ((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) ↔ (𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌)))
95 eleq1 2871 . . . . . . . . . . . . . 14 (𝑎 = (𝑁 × 𝑁) → (𝑎𝑌 ↔ (𝑁 × 𝑁) ∈ 𝑌))
9695notbid 309 . . . . . . . . . . . . 13 (𝑎 = (𝑁 × 𝑁) → (¬ 𝑎𝑌 ↔ ¬ (𝑁 × 𝑁) ∈ 𝑌))
9794, 96imbi12d 335 . . . . . . . . . . . 12 (𝑎 = (𝑁 × 𝑁) → (((𝜑𝑎 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑎𝑌) ↔ ((𝜑 ∧ (𝑁 × 𝑁) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ (𝑁 × 𝑁) ∈ 𝑌)))
98 simp3 1161 . . . . . . . . . . . 12 ((𝜑 ∧ ∅ ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ ∅ ∈ 𝑌)
99 ssun1 3973 . . . . . . . . . . . . . . . 16 𝑏 ⊆ (𝑏 ∪ {𝑐})
100 sstr2 3803 . . . . . . . . . . . . . . . 16 (𝑏 ⊆ (𝑏 ∪ {𝑐}) → ((𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) → 𝑏 ⊆ (𝑁 × 𝑁)))
10199, 100ax-mp 5 . . . . . . . . . . . . . . 15 ((𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) → 𝑏 ⊆ (𝑁 × 𝑁))
1021013anim2i 1185 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → (𝜑𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌))
103102imim1i 63 . . . . . . . . . . . . 13 (((𝜑𝑏 ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏𝑌) → ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ ¬ ∅ ∈ 𝑌) → ¬ 𝑏𝑌))
104 simpl1 1235 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → 𝜑)
105 simpl2 1237 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
106 simprll 788 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → 𝑎𝐵)
10711, 12, 13matbas2i 20436 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑎𝐵𝑎 ∈ (𝐾𝑚 (𝑁 × 𝑁)))
108 elmapi 8112 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑎 ∈ (𝐾𝑚 (𝑁 × 𝑁)) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
109107, 108syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑎𝐵𝑎:(𝑁 × 𝑁)⟶𝐾)
1101093ad2ant3 1158 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
111110feqmptd 6468 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑎 = (𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)))
112111reseq1d 5594 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑎 ↾ ({(1st𝑐)} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ({(1st𝑐)} × 𝑁)))
113523ad2ant1 1156 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑅 ∈ Ring)
114 ringgrp 18752 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
115113, 114syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑅 ∈ Grp)
116115adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → 𝑅 ∈ Grp)
117110adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → 𝑎:(𝑁 × 𝑁)⟶𝐾)
118 simp2 1160 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
119118unssbd 3988 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → {𝑐} ⊆ (𝑁 × 𝑁))
120 vex 3392 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 𝑐 ∈ V
121120snss 4504 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑐 ∈ (𝑁 × 𝑁) ↔ {𝑐} ⊆ (𝑁 × 𝑁))
122119, 121sylibr 225 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑐 ∈ (𝑁 × 𝑁))
123 xp1st 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑐 ∈ (𝑁 × 𝑁) → (1st𝑐) ∈ 𝑁)
124122, 123syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (1st𝑐) ∈ 𝑁)
125124snssd 4528 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → {(1st𝑐)} ⊆ 𝑁)
126 xpss1 5327 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ({(1st𝑐)} ⊆ 𝑁 → ({(1st𝑐)} × 𝑁) ⊆ (𝑁 × 𝑁))
127125, 126syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ({(1st𝑐)} × 𝑁) ⊆ (𝑁 × 𝑁))
128127sselda 3796 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → 𝑒 ∈ (𝑁 × 𝑁))
129117, 128ffvelrnd 6580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (𝑎𝑒) ∈ 𝐾)
13012, 49ringidcl 18768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑅 ∈ Ring → 1𝐾)
131113, 130syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 1𝐾)
13212, 48ring0cl 18769 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑅 ∈ Ring → 0𝐾)
133113, 132syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 0𝐾)
134131, 133ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → if(𝑒𝑑, 1 , 0 ) ∈ 𝐾)
135134adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if(𝑒𝑑, 1 , 0 ) ∈ 𝐾)
136 eqid 2804 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (-g𝑅) = (-g𝑅)
13712, 50, 136grpnpcan 17710 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Grp ∧ (𝑎𝑒) ∈ 𝐾 ∧ if(𝑒𝑑, 1 , 0 ) ∈ 𝐾) → (((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) + if(𝑒𝑑, 1 , 0 )) = (𝑎𝑒))
138116, 129, 135, 137syl3anc 1483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) + if(𝑒𝑑, 1 , 0 )) = (𝑎𝑒))
139138eqcomd 2810 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (𝑎𝑒) = (((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) + if(𝑒𝑑, 1 , 0 )))
140139adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (𝑎𝑒) = (((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) + if(𝑒𝑑, 1 , 0 )))
141 iftrue 4283 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑒 = 𝑐 → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )))
142 iftrue 4283 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)) = if(𝑒𝑑, 1 , 0 ))
143141, 142oveq12d 6890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑒 = 𝑐 → (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) = (((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) + if(𝑒𝑑, 1 , 0 )))
144143adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) = (((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) + if(𝑒𝑑, 1 , 0 )))
145140, 144eqtr4d 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (𝑎𝑒) = (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
14612, 50, 48grplid 17655 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Grp ∧ (𝑎𝑒) ∈ 𝐾) → ( 0 + (𝑎𝑒)) = (𝑎𝑒))
147116, 129, 146syl2anc 575 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → ( 0 + (𝑎𝑒)) = (𝑎𝑒))
148147eqcomd 2810 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (𝑎𝑒) = ( 0 + (𝑎𝑒)))
149148adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (𝑎𝑒) = ( 0 + (𝑎𝑒)))
150 iffalse 4286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑒 = 𝑐 → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = 0 )
151 iffalse 4286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑒 = 𝑐 → if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)) = (𝑎𝑒))
152150, 151oveq12d 6890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 𝑒 = 𝑐 → (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) = ( 0 + (𝑎𝑒)))
153152adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) = ( 0 + (𝑎𝑒)))
154149, 153eqtr4d 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (𝑎𝑒) = (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
155145, 154pm2.61dan 838 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (𝑎𝑒) = (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
156155mpteq2dva 4936 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (𝑎𝑒)) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))
157 snfi 8275 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 {(1st𝑐)} ∈ Fin
15863ad2ant1 1156 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑁 ∈ Fin)
159 xpfi 8468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (({(1st𝑐)} ∈ Fin ∧ 𝑁 ∈ Fin) → ({(1st𝑐)} × 𝑁) ∈ Fin)
160157, 158, 159sylancr 577 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ({(1st𝑐)} × 𝑁) ∈ Fin)
161 ovex 6904 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) ∈ V
16248fvexi 6420 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 0 ∈ V
163161, 162ifex 4325 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) ∈ V
164163a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) ∈ V)
16549fvexi 6420 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 1 ∈ V
166165, 162ifex 4325 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 if(𝑒𝑑, 1 , 0 ) ∈ V
167 fvex 6419 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑎𝑒) ∈ V
168166, 167ifex 4325 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)) ∈ V
169168a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)) ∈ V)
170 xp1st 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑒 ∈ ({(1st𝑐)} × 𝑁) → (1st𝑒) ∈ {(1st𝑐)})
171 elsni 4385 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((1st𝑒) ∈ {(1st𝑐)} → (1st𝑒) = (1st𝑐))
172 iftrue 4283 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((1st𝑒) = (1st𝑐) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ))
173170, 171, 1723syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑒 ∈ ({(1st𝑐)} × 𝑁) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ))
174173mpteq2ia 4932 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ))
175174a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 )))
176 eqidd 2805 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
177160, 164, 169, 175, 176offval2 7142 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∘𝑓 + (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) + if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))
178156, 177eqtr4d 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (𝑎𝑒)) = ((𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∘𝑓 + (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))
179127resmptd 5655 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ({(1st𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (𝑎𝑒)))
180127resmptd 5655 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))))
181127resmptd 5655 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
182180, 181oveq12d 6890 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) = ((𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∘𝑓 + (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))
183178, 179, 1823eqtr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))))
184112, 183eqtrd 2838 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑎 ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))))
185111reseq1d 5594 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
186 xp1st 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) → (1st𝑒) ∈ (𝑁 ∖ {(1st𝑐)}))
187 eldifsni 4510 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((1st𝑒) ∈ (𝑁 ∖ {(1st𝑐)}) → (1st𝑒) ≠ (1st𝑐))
188186, 187syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) → (1st𝑒) ≠ (1st𝑐))
189188neneqd 2981 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) → ¬ (1st𝑒) = (1st𝑐))
190189adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) → ¬ (1st𝑒) = (1st𝑐))
191190iffalsed 4288 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = (𝑎𝑒))
192191mpteq2dva 4936 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ (𝑎𝑒)))
193 difss 3934 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑁 ∖ {(1st𝑐)}) ⊆ 𝑁
194 xpss1 5327 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑁 ∖ {(1st𝑐)}) ⊆ 𝑁 → ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁))
195193, 194ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁)
196 resmpt 5652 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑁 ∖ {(1st𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))))
197195, 196mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))))
198 resmpt 5652 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑁 ∖ {(1st𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ (𝑎𝑒)))
199195, 198mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ (𝑎𝑒)))
200192, 197, 1993eqtr4rd 2849 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
201185, 200eqtrd 2838 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
202 fveq2 6406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑒 = 𝑐 → (1st𝑒) = (1st𝑐))
203190, 202nsyl 137 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) → ¬ 𝑒 = 𝑐)
204203iffalsed 4288 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) → if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)) = (𝑎𝑒))
205204mpteq2dva 4936 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ (𝑎𝑒)))
206 resmpt 5652 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑁 ∖ {(1st𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
207195, 206mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))
208205, 207, 1993eqtr4rd 2849 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ (𝑎𝑒)) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
209185, 208eqtrd 2838 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
210134adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒𝑑, 1 , 0 ) ∈ 𝐾)
211110ffvelrnda 6579 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → (𝑎𝑒) ∈ 𝐾)
212210, 211ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)) ∈ 𝐾)
213212fmpttd 6605 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾)
21412fvexi 6420 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 𝐾 ∈ V
21567anidms 558 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑁 ∈ Fin → (𝑁 × 𝑁) ∈ Fin)
216158, 215syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑁 × 𝑁) ∈ Fin)
217 elmapg 8103 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾))
218214, 216, 217sylancr 577 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾))
219213, 218mpbird 248 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)))
22011, 12matbas2 20435 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝐾𝑚 (𝑁 × 𝑁)) = (Base‘𝐴))
221158, 113, 220syl2anc 575 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝐾𝑚 (𝑁 × 𝑁)) = (Base‘𝐴))
222221, 13syl6eqr 2856 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝐾𝑚 (𝑁 × 𝑁)) = 𝐵)
223219, 222eleqtrd 2885 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ∈ 𝐵)
224 simp3 1161 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 𝑎𝐵)
225115adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → 𝑅 ∈ Grp)
22612, 136grpsubcl 17698 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑅 ∈ Grp ∧ (𝑎𝑒) ∈ 𝐾 ∧ if(𝑒𝑑, 1 , 0 ) ∈ 𝐾) → ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) ∈ 𝐾)
227225, 211, 210, 226syl3anc 1483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) ∈ 𝐾)
228133adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → 0𝐾)
229227, 228ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) ∈ 𝐾)
230229, 211ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) ∈ 𝐾)
231230fmpttd 6605 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾)
232 elmapg 8103 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾))
233214, 216, 232sylancr 577 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾))
234231, 233mpbird 248 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)))
235234, 222eleqtrd 2885 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∈ 𝐵)
236553ad2ant1 1156 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧))))
237 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑥 = 𝑎 → (𝑥 ↾ ({𝑤} × 𝑁)) = (𝑎 ↾ ({𝑤} × 𝑁)))
238237eqeq1d 2806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = 𝑎 → ((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁)))))
239 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑥 = 𝑎 → (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
240239eqeq1d 2806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = 𝑎 → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
241239eqeq1d 2806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = 𝑎 → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
242238, 240, 2413anbi123d 1553 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑥 = 𝑎 → (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
243 fveqeq2 6415 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑥 = 𝑎 → ((𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧)) ↔ (𝐷𝑎) = ((𝐷𝑦) + (𝐷𝑧))))
244242, 243imbi12d 335 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑥 = 𝑎 → ((((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷𝑦) + (𝐷𝑧)))))
2452442ralbidv 3175 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑥 = 𝑎 → (∀𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧))) ↔ ∀𝑧𝐵𝑤𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷𝑦) + (𝐷𝑧)))))
246 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (𝑦 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)))
247246oveq1d 6887 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))))
248247eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁)))))
249 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
250249eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
251248, 2503anbi12d 1554 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
252 fveq2 6406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (𝐷𝑦) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))))
253252oveq1d 6887 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝐷𝑦) + (𝐷𝑧)) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧)))
254253eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝐷𝑎) = ((𝐷𝑦) + (𝐷𝑧)) ↔ (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧))))
255251, 254imbi12d 335 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷𝑦) + (𝐷𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧)))))
2562552ralbidv 3175 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (∀𝑧𝐵𝑤𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷𝑦) + (𝐷𝑧))) ↔ ∀𝑧𝐵𝑤𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧)))))
257245, 256rspc2va 3514 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑎𝐵 ∧ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∈ 𝐵) ∧ ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = ((𝐷𝑦) + (𝐷𝑧)))) → ∀𝑧𝐵𝑤𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧))))
258224, 235, 236, 257syl21anc 857 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ∀𝑧𝐵𝑤𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧))))
259 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → (𝑧 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)))
260259oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))))
261260eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)))))
262 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
263262eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
264261, 2633anbi13d 1555 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
265 fveq2 6406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → (𝐷𝑧) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))
266265oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧)) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))
267266eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → ((𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧)) ↔ (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))))
268264, 267imbi12d 335 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧))) ↔ (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))))
269 sneq 4378 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑤 = (1st𝑐) → {𝑤} = {(1st𝑐)})
270269xpeq1d 5337 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑤 = (1st𝑐) → ({𝑤} × 𝑁) = ({(1st𝑐)} × 𝑁))
271270reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → (𝑎 ↾ ({𝑤} × 𝑁)) = (𝑎 ↾ ({(1st𝑐)} × 𝑁)))
272270reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑤 = (1st𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)))
273270reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑤 = (1st𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)))
274272, 273oveq12d 6890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))))
275271, 274eqeq12d 2819 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑤 = (1st𝑐) → ((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ↔ (𝑎 ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)))))
276269difeq2d 3925 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑤 = (1st𝑐) → (𝑁 ∖ {𝑤}) = (𝑁 ∖ {(1st𝑐)}))
277276xpeq1d 5337 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑤 = (1st𝑐) → ((𝑁 ∖ {𝑤}) × 𝑁) = ((𝑁 ∖ {(1st𝑐)}) × 𝑁))
278277reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
279277reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
280278, 279eqeq12d 2819 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑤 = (1st𝑐) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))))
281277reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
282278, 281eqeq12d 2819 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑤 = (1st𝑐) → ((𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))))
283275, 280, 2823anbi123d 1553 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑤 = (1st𝑐) → (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ ((𝑎 ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))))
284283imbi1d 332 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑤 = (1st𝑐) → ((((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))) ↔ (((𝑎 ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))))
285268, 284rspc2va 3514 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ∈ 𝐵 ∧ (1st𝑐) ∈ 𝑁) ∧ ∀𝑧𝐵𝑤𝑁 (((𝑎 ↾ ({𝑤} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) ∘𝑓 + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷𝑧)))) → (((𝑎 ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))))
286223, 124, 258, 285syl21anc 857 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (((𝑎 ↾ ({(1st𝑐)} × 𝑁)) = (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) ∘𝑓 + ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) ∧ (𝑎 ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒)))))))
287184, 201, 209, 286mp3and 1581 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))
288104, 105, 106, 287syl3anc 1483 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → (𝐷𝑎) = ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))
289 fveq2 6406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑒 = 𝑐 → (𝑎𝑒) = (𝑎𝑐))
290 elequ1 2163 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑒 = 𝑐 → (𝑒𝑑𝑐𝑑))
291290ifbid 4299 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑒 = 𝑐 → if(𝑒𝑑, 1 , 0 ) = if(𝑐𝑑, 1 , 0 ))
292289, 291oveq12d 6890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑒 = 𝑐 → ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )))
293292adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )))
294110, 122ffvelrnd 6580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑎𝑐) ∈ 𝐾)
295131, 133ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → if(𝑐𝑑, 1 , 0 ) ∈ 𝐾)
29612, 136grpsubcl 17698 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 ∈ Grp ∧ (𝑎𝑐) ∈ 𝐾 ∧ if(𝑐𝑑, 1 , 0 ) ∈ 𝐾) → ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) ∈ 𝐾)
297115, 294, 295, 296syl3anc 1483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) ∈ 𝐾)
29812, 51, 49ringridm 18772 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Ring ∧ ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) ∈ 𝐾) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 1 ) = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )))
299113, 297, 298syl2anc 575 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 1 ) = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )))
300299ad2antrr 708 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 1 ) = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )))
301293, 300eqtr4d 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 1 ))
302141adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )))
303 iftrue 4283 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑒 = 𝑐 → if(𝑒 = 𝑐, 1 , 0 ) = 1 )
304303oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑒 = 𝑐 → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 1 ))
305304adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 1 ))
306301, 302, 3053eqtr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
30712, 51, 48ringrz 18788 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Ring ∧ ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) ∈ 𝐾) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 0 ) = 0 )
308113, 297, 307syl2anc 575 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 0 ) = 0 )
309308eqcomd 2810 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → 0 = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 0 ))
310309ad2antrr 708 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → 0 = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 0 ))
311150adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = 0 )
312 iffalse 4286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑒 = 𝑐 → if(𝑒 = 𝑐, 1 , 0 ) = 0 )
313312oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 𝑒 = 𝑐 → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 0 ))
314313adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · 0 ))
315310, 311, 3143eqtr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) ∧ ¬ 𝑒 = 𝑐) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
316306, 315pm2.61dan 838 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
317170adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (1st𝑒) ∈ {(1st𝑐)})
318317, 171syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (1st𝑒) = (1st𝑐))
319318iftrued 4285 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ))
320318iftrued 4285 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)) = if(𝑒 = 𝑐, 1 , 0 ))
321320oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if(𝑒 = 𝑐, 1 , 0 )))
322316, 319, 3213eqtr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))
323322mpteq2dva 4936 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))
324 ovexd 6906 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) ∈ V)
325165, 162ifex 4325 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 if(𝑒 = 𝑐, 1 , 0 ) ∈ V
326325, 167ifex 4325 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)) ∈ V
327326a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ({(1st𝑐)} × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)) ∈ V)
328 fconstmpt 5361 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )))
329328a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))))
330127resmptd 5655 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))
331160, 324, 327, 329, 330offval2 7142 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) = (𝑒 ∈ ({(1st𝑐)} × 𝑁) ↦ (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))
332323, 180, 3313eqtr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))))
333 iffalse 4286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (¬ (1st𝑒) = (1st𝑐) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = (𝑎𝑒))
334 iffalse 4286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (¬ (1st𝑒) = (1st𝑐) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)) = (𝑎𝑒))
335333, 334eqtr4d 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (¬ (1st𝑒) = (1st𝑐) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))
336190, 335syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)) = if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))
337336mpteq2dva 4936 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))
338 resmpt 5652 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑁 ∖ {(1st𝑐)}) × 𝑁) ⊆ (𝑁 × 𝑁) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))
339195, 338mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = (𝑒 ∈ ((𝑁 ∖ {(1st𝑐)}) × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))
340337, 197, 3393eqtr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
341131, 133ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → if(𝑒 = 𝑐, 1 , 0 ) ∈ 𝐾)
342341adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if(𝑒 = 𝑐, 1 , 0 ) ∈ 𝐾)
343342, 211ifcld 4322 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑒 ∈ (𝑁 × 𝑁)) → if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)) ∈ 𝐾)
344343fmpttd 6605 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾)
345 elmapg 8103 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝐾 ∈ V ∧ (𝑁 × 𝑁) ∈ Fin) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾))
346214, 216, 345sylancr 577 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)) ↔ (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))):(𝑁 × 𝑁)⟶𝐾))
347344, 346mpbird 248 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ∈ (𝐾𝑚 (𝑁 × 𝑁)))
348347, 222eleqtrd 2885 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ∈ 𝐵)
349563ad2ant1 1156 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ∀𝑥𝐵𝑦𝐾𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = (𝑦 · (𝐷𝑧))))
350 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)))
351350eqeq1d 2806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁)))))
352 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
353352eqeq1d 2806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
354351, 353anbi12d 618 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
355 fveqeq2 6415 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((𝐷𝑥) = (𝑦 · (𝐷𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (𝑦 · (𝐷𝑧))))
356354, 355imbi12d 335 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → ((((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = (𝑦 · (𝐷𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (𝑦 · (𝐷𝑧)))))
3573562ralbidv 3175 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑥 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) → (∀𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = (𝑦 · (𝐷𝑧))) ↔ ∀𝑧𝐵𝑤𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (𝑦 · (𝐷𝑧)))))
358 sneq 4378 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → {𝑦} = {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))})
359358xpeq2d 5338 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → (({𝑤} × 𝑁) × {𝑦}) = (({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}))
360359oveq1d 6887 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))))
361360eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁)))))
362361anbi1d 617 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
363 oveq1 6879 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → (𝑦 · (𝐷𝑧)) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧)))
364363eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (𝑦 · (𝐷𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧))))
365362, 364imbi12d 335 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (𝑦 · (𝐷𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧)))))
3663652ralbidv 3175 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 = ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) → (∀𝑧𝐵𝑤𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (𝑦 · (𝐷𝑧))) ↔ ∀𝑧𝐵𝑤𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧)))))
367357, 366rspc2va 3514 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ∈ 𝐵 ∧ ((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) ∈ 𝐾) ∧ ∀𝑥𝐵𝑦𝐾𝑧𝐵𝑤𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷𝑥) = (𝑦 · (𝐷𝑧)))) → ∀𝑧𝐵𝑤𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧))))
368235, 297, 349, 367syl21anc 857 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ∀𝑧𝐵𝑤𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧))))
369 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (𝑧 ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)))
370369oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))))
371370eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)))))
372 reseq1 5589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))
373372eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))))
374371, 373anbi12d 618 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)))))
375 fveq2 6406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (𝐷𝑧) = (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))
376375oveq2d 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧)) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))))
377376eqeq2d 2814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧)) ↔ (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))))
378374, 377imbi12d 335 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑧 = (𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))))))
379270xpeq1d 5337 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑤 = (1st𝑐) → (({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) = (({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}))
380270reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑤 = (1st𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)))
381379, 380oveq12d 6890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑤 = (1st𝑐) → ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))))
382272, 381eqeq12d 2819 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)))))
383277reseq2d 5595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑤 = (1st𝑐) → ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))
384279, 383eqeq12d 2819 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑤 = (1st𝑐) → (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ↔ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))))
385382, 384anbi12d 618 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑤 = (1st𝑐) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) ↔ (((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)))))
386385imbi1d 332 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑤 = (1st𝑐) → (((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))) ↔ ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))))))
387378, 386rspc2va 3514 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ∈ 𝐵 ∧ (1st𝑐) ∈ 𝑁) ∧ ∀𝑧𝐵𝑤𝑁 ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷𝑧)))) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))))
388348, 124, 368, 387syl21anc 857 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁)) = ((({(1st𝑐)} × 𝑁) × {((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 ))}) ∘𝑓 · ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ({(1st𝑐)} × 𝑁))) ∧ ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁)) = ((𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))) ↾ ((𝑁 ∖ {(1st𝑐)}) × 𝑁))) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒)))))))
389332, 340, 388mp2and 682 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) = (((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))))
390389oveq1d 6887 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))) = ((((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))
391104, 105, 106, 390syl3anc 1483 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → ((𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, ((𝑎𝑒)(-g𝑅)if(𝑒𝑑, 1 , 0 )), 0 ), (𝑎𝑒)))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))) = ((((𝑎𝑐)(-g𝑅)if(𝑐𝑑, 1 , 0 )) · (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if((1st𝑒) = (1st𝑐), if(𝑒 = 𝑐, 1 , 0 ), (𝑎𝑒))))) + (𝐷‘(𝑒 ∈ (𝑁 × 𝑁) ↦ if(𝑒 = 𝑐, if(𝑒𝑑, 1 , 0 ), (𝑎𝑒))))))
392 simpl3 1239 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → (𝑏 ∪ {𝑐}) ∈ 𝑌)
393 simprlr 789 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → 𝑑 ∈ (𝑁𝑚 𝑁))
394 simprr 780 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ (𝑏 ∪ {𝑐}) ∈ 𝑌) ∧ ((𝑎𝐵𝑑 ∈ (𝑁𝑚 𝑁)) ∧ ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))) → ∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))
395 ralss 3863 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑏 ⊆ (𝑏 ∪ {𝑐}) → (∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤𝑏 → (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ))))
39699, 395ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (∀𝑤𝑏 (𝑎𝑤) = if(𝑤𝑑, 1 , 0 ) ↔ ∀𝑤 ∈ (𝑏 ∪ {𝑐})(𝑤𝑏 → (𝑎𝑤) = if(𝑤𝑑, 1 , 0 )))
397 iftrue 4283 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((1st𝑤) = (1st𝑐) → if((1st𝑤) = (1st𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎𝑤)) = if(𝑤 = 𝑐, 1 , 0 ))
398397adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → if((1st𝑤) = (1st𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎𝑤)) = if(𝑤 = 𝑐, 1 , 0 ))
399 ibar 520 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((1st𝑤) = (1st𝑐) → ((2nd𝑤) = (2nd𝑐) ↔ ((1st𝑤) = (1st𝑐) ∧ (2nd𝑤) = (2nd𝑐))))
400399adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → ((2nd𝑤) = (2nd𝑐) ↔ ((1st𝑤) = (1st𝑐) ∧ (2nd𝑤) = (2nd𝑐))))
401 relxp 5326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 Rel (𝑁 × 𝑁)
402 simpl2 1237 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁))
403402sselda 3796 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → 𝑤 ∈ (𝑁 × 𝑁))
404403adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → 𝑤 ∈ (𝑁 × 𝑁))
405 1st2nd 7444 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((Rel (𝑁 × 𝑁) ∧ 𝑤 ∈ (𝑁 × 𝑁)) → 𝑤 = ⟨(1st𝑤), (2nd𝑤)⟩)
406401, 404, 405sylancr 577 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → 𝑤 = ⟨(1st𝑤), (2nd𝑤)⟩)
407406eleq1d 2868 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (𝑤 ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩) ↔ ⟨(1st𝑤), (2nd𝑤)⟩ ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)))
408 simpr 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → 𝑑 ∈ (𝑁𝑚 𝑁))
409 elmapi 8112 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 (𝑑 ∈ (𝑁𝑚 𝑁) → 𝑑:𝑁𝑁)
410409adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → 𝑑:𝑁𝑁)
411124adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → (1st𝑐) ∈ 𝑁)
412 xp2nd 7429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 45 (𝑐 ∈ (𝑁 × 𝑁) → (2nd𝑐) ∈ 𝑁)
413122, 412syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 ((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) → (2nd𝑐) ∈ 𝑁)
414413adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → (2nd𝑐) ∈ 𝑁)
415 fsets 16100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝑑 ∈ (𝑁𝑚 𝑁) ∧ 𝑑:𝑁𝑁) ∧ (1st𝑐) ∈ 𝑁 ∧ (2nd𝑐) ∈ 𝑁) → (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩):𝑁𝑁)
416408, 410, 411, 414, 415syl211anc 1488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩):𝑁𝑁)
417416ffnd 6255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) → (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩) Fn 𝑁)
418417ad2antrr 708 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩) Fn 𝑁)
419 xp1st 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 (𝑤 ∈ (𝑁 × 𝑁) → (1st𝑤) ∈ 𝑁)
420403, 419syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) → (1st𝑤) ∈ 𝑁)
421420adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (1st𝑤) ∈ 𝑁)
422 fnopfvb 6455 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩) Fn 𝑁 ∧ (1st𝑤) ∈ 𝑁) → (((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = (2nd𝑤) ↔ ⟨(1st𝑤), (2nd𝑤)⟩ ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)))
423418, 421, 422syl2anc 575 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = (2nd𝑤) ↔ ⟨(1st𝑤), (2nd𝑤)⟩ ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)))
424 fveq2 6406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ((1st𝑤) = (1st𝑐) → ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑐)))
425424adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑐)))
426 vex 3392 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 𝑑 ∈ V
427 fvex 6419 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (1st𝑐) ∈ V
428 fvex 6419 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (2nd𝑐) ∈ V
429 fvsetsid 16099 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ((𝑑 ∈ V ∧ (1st𝑐) ∈ V ∧ (2nd𝑐) ∈ V) → ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑐)) = (2nd𝑐))
430426, 427, 428, 429mp3an 1578 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑐)) = (2nd𝑐)
431425, 430syl6eq 2854 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = (2nd𝑐))
432431eqeq1d 2806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = (2nd𝑤) ↔ (2nd𝑐) = (2nd𝑤)))
433 eqcom 2811 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((2nd𝑐) = (2nd𝑤) ↔ (2nd𝑤) = (2nd𝑐))
434432, 433syl6bb 278 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)‘(1st𝑤)) = (2nd𝑤) ↔ (2nd𝑤) = (2nd𝑐)))
435407, 423, 4343bitr2rd 299 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → ((2nd𝑤) = (2nd𝑐) ↔ 𝑤 ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)))
436122ad3antrrr 712 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → 𝑐 ∈ (𝑁 × 𝑁))
437 xpopth 7437 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑤 ∈ (𝑁 × 𝑁) ∧ 𝑐 ∈ (𝑁 × 𝑁)) → (((1st𝑤) = (1st𝑐) ∧ (2nd𝑤) = (2nd𝑐)) ↔ 𝑤 = 𝑐))
438404, 436, 437syl2anc 575 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (((1st𝑤) = (1st𝑐) ∧ (2nd𝑤) = (2nd𝑐)) ↔ 𝑤 = 𝑐))
439400, 435, 4383bitr3rd 301 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → (𝑤 = 𝑐𝑤 ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩)))
440439ifbid 4299 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → if(𝑤 = 𝑐, 1 , 0 ) = if(𝑤 ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩), 1 , 0 ))
441398, 440eqtrd 2838 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → if((1st𝑤) = (1st𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩), 1 , 0 ))
442441a1d 25 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ (1st𝑤) = (1st𝑐)) → ((𝑤𝑏 → (𝑎𝑤) = if(𝑤𝑑, 1 , 0 )) → if((1st𝑤) = (1st𝑐), if(𝑤 = 𝑐, 1 , 0 ), (𝑎𝑤)) = if(𝑤 ∈ (𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩), 1 , 0 )))
443 elsni 4385 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑤 ∈ {𝑐} → 𝑤 = 𝑐)
444443fveq2d 6410 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑤 ∈ {𝑐} → (1st𝑤) = (1st𝑐))
445444con3i 151 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (¬ (1st𝑤) = (1st𝑐) → ¬ 𝑤 ∈ {𝑐})
446445adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1st𝑤) = (1st𝑐)) → ¬ 𝑤 ∈ {𝑐})
447 elun 3950 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑤 ∈ (𝑏 ∪ {𝑐}) ↔ (𝑤𝑏𝑤 ∈ {𝑐}))
448447biimpi 207 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑤 ∈ (𝑏 ∪ {𝑐}) → (𝑤𝑏𝑤 ∈ {𝑐}))
449448adantr 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1st𝑤) = (1st𝑐)) → (𝑤𝑏𝑤 ∈ {𝑐}))
450 orel2 906 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 𝑤 ∈ {𝑐} → ((𝑤𝑏𝑤 ∈ {𝑐}) → 𝑤𝑏))
451446, 449, 450sylc 65 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑤 ∈ (𝑏 ∪ {𝑐}) ∧ ¬ (1st𝑤) = (1st𝑐)) → 𝑤𝑏)
452451adantll 696 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st𝑤) = (1st𝑐)) → 𝑤𝑏)
453 iffalse 4286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (¬ (1st𝑤) = (1st𝑐) → if((1st𝑤) = (1st𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤𝑑, 1 , 0 )) = if(𝑤𝑑, 1 , 0 ))
454453adantl 469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑁 × 𝑁) ∧ 𝑎𝐵) ∧ 𝑑 ∈ (𝑁𝑚 𝑁)) ∧ 𝑤 ∈ (𝑏 ∪ {𝑐})) ∧ ¬ (1st𝑤) = (1st𝑐)) → if((1st𝑤) = (1st𝑐), if(𝑤 = 𝑐, 1 , 0 ), if(𝑤𝑑, 1 , 0 )) = if(𝑤𝑑, 1 , 0 ))
455 setsres 16110 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑑 ∈ V → ((𝑑 sSet ⟨(1st𝑐), (2nd𝑐)⟩) ↾ (V ∖ {(1st𝑐)})) = (𝑑 ↾ (V ∖ {(1st𝑐)})))
456455eleq2d 2869 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑑 ∈ V → (⟨(1st𝑤), (2nd𝑤)⟩ ∈ ((