mdetunilem7 - Metamath Proof Explorer

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

Theorem mdetunilem7 22775

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

**Hypotheses**
Ref	Expression
mdetuni.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
mdetuni.b	⊢ 𝐵 = (Base‘𝐴)
mdetuni.k	⊢ 𝐾 = (Base‘𝑅)
mdetuni.0g	⊢ 0 = (0_g‘𝑅)
mdetuni.1r	⊢ 1 = (1_r‘𝑅)
mdetuni.pg	⊢ + = (+_g‘𝑅)
mdetuni.tg	⊢ · = (._r‘𝑅)
mdetuni.n	⊢ (𝜑 → 𝑁 ∈ Fin)
mdetuni.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mdetuni.ff	⊢ (𝜑 → 𝐷:𝐵⟶𝐾)
mdetuni.al	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝑁 ∀𝑧 ∈ 𝑁 ((𝑦 ≠ 𝑧 ∧ ∀𝑤 ∈ 𝑁 (𝑦𝑥𝑤) = (𝑧𝑥𝑤)) → (𝐷‘𝑥) = 0 ))
mdetuni.li	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
mdetuni.sc	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))))

**Assertion**
Ref	Expression
mdetunilem7	⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))

Distinct variable groups: 𝜑,𝑥,𝑦,𝑧,𝑤,𝑎,𝑏 𝑥,𝐵,𝑦,𝑧,𝑤,𝑎,𝑏 𝑥,𝐾,𝑦,𝑧,𝑤,𝑎,𝑏 𝑥,𝑁,𝑦,𝑧,𝑤,𝑎,𝑏 𝑥,𝐷,𝑦,𝑧,𝑤,𝑎,𝑏 𝑥, · ,𝑦,𝑧,𝑤 + ,𝑎,𝑏,𝑥,𝑦,𝑧,𝑤 0 ,𝑎,𝑏,𝑥,𝑦,𝑧,𝑤 1 ,𝑎,𝑏,𝑥,𝑦,𝑧,𝑤 𝑥,𝑅,𝑦,𝑧,𝑤 𝐴,𝑎,𝑏,𝑥,𝑦,𝑧,𝑤 𝑥,𝐸,𝑦,𝑧,𝑤 𝑥,𝐹,𝑦,𝑧,𝑤 𝐸,𝑎,𝑏 𝐹,𝑎,𝑏 Allowed substitution hints: 𝑅(𝑎,𝑏) · (𝑎,𝑏)

Proof of Theorem mdetunilem7 Dummy variables 𝑐 𝑑 𝑒 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq1 6880	. . . . . 6 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
2	1	oveq1d 7425	. . . . 5 ⊢ (𝑐 = 𝑑 → ((𝑐‘𝑎)𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
3	2	mpoeq3dv 7489	. . . 4 ⊢ (𝑐 = 𝑑 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))
4	3	fveq2d 6885	. . 3 ⊢ (𝑐 = 𝑑 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))
5		fveq2 6881	. . . 4 ⊢ (𝑐 = 𝑑 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑))
6	5	oveq1d 7425	. . 3 ⊢ (𝑐 = 𝑑 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)))
7	4, 6	eqeq12d 2779	. 2 ⊢ (𝑐 = 𝑑 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
8		fveq1 6880	. . . . . 6 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑐‘𝑎) = ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎))
9	8	oveq1d 7425	. . . . 5 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝑐‘𝑎)𝐹𝑏) = (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))
10	9	mpoeq3dv 7489	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)))
11	10	fveq2d 6885	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))))
12		fveq2 6881	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
13	12	oveq1d 7425	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
14	11, 13	eqeq12d 2779	. 2 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹))))
15		fveq1 6880	. . . . . 6 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑐‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
16	15	oveq1d 7425	. . . . 5 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝑐‘𝑎)𝐹𝑏) = (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))
17	16	mpoeq3dv 7489	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)))
18	17	fveq2d 6885	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))))
19		fveq2 6881	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))))
20	19	oveq1d 7425	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
21	18, 20	eqeq12d 2779	. 2 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹))))
22		fveq1 6880	. . . . . 6 ⊢ (𝑐 = 𝐸 → (𝑐‘𝑎) = (𝐸‘𝑎))
23	22	oveq1d 7425	. . . . 5 ⊢ (𝑐 = 𝐸 → ((𝑐‘𝑎)𝐹𝑏) = ((𝐸‘𝑎)𝐹𝑏))
24	23	mpoeq3dv 7489	. . . 4 ⊢ (𝑐 = 𝐸 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏)))
25	24	fveq2d 6885	. . 3 ⊢ (𝑐 = 𝐸 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))))
26		fveq2 6881	. . . 4 ⊢ (𝑐 = 𝐸 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸))
27	26	oveq1d 7425	. . 3 ⊢ (𝑐 = 𝐸 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))
28	25, 27	eqeq12d 2779	. 2 ⊢ (𝑐 = 𝐸 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹))))
29		eqid 2763	. 2 ⊢ (0_g‘(SymGrp‘𝑁)) = (0_g‘(SymGrp‘𝑁))
30		eqid 2763	. 2 ⊢ (+_g‘(SymGrp‘𝑁)) = (+_g‘(SymGrp‘𝑁))
31		eqid 2763	. 2 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
32		mdetuni.n	. . . 4 ⊢ (𝜑 → 𝑁 ∈ Fin)
33	32	3ad2ant1 1151	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑁 ∈ Fin)
34		eqid 2763	. . . 4 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
35	34	symggrp 19465	. . 3 ⊢ (𝑁 ∈ Fin → (SymGrp‘𝑁) ∈ Grp)
36		grpmnd 19002	. . 3 ⊢ ((SymGrp‘𝑁) ∈ Grp → (SymGrp‘𝑁) ∈ Mnd)
37	33, 35, 36	3syl 19	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (SymGrp‘𝑁) ∈ Mnd)
38		eqid 2763	. . . 4 ⊢ ran (pmTrsp‘𝑁) = ran (pmTrsp‘𝑁)
39	38, 34, 31	symgtrf 19534	. . 3 ⊢ ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁))
40	39	a1i 11	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁)))
41		eqid 2763	. . . . . 6 ⊢ (mrCls‘(SubMnd‘(SymGrp‘𝑁))) = (mrCls‘(SubMnd‘(SymGrp‘𝑁)))
42	38, 34, 31, 41	symggen2 19536	. . . . 5 ⊢ (𝑁 ∈ Fin → ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)) = (Base‘(SymGrp‘𝑁)))
43	32, 42	syl 18	. . . 4 ⊢ (𝜑 → ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)) = (Base‘(SymGrp‘𝑁)))
44	43	eqcomd 2769	. . 3 ⊢ (𝜑 → (Base‘(SymGrp‘𝑁)) = ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)))
45	44	3ad2ant1 1151	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (Base‘(SymGrp‘𝑁)) = ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)))
46		mdetuni.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Ring)
47	46	3ad2ant1 1151	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑅 ∈ Ring)
48		mdetuni.ff	. . . . . 6 ⊢ (𝜑 → 𝐷:𝐵⟶𝐾)
49	48	3ad2ant1 1151	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐷:𝐵⟶𝐾)
50		simp3 1156	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ 𝐵)
51	49, 50	ffvelcdmd 7080	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘𝐹) ∈ 𝐾)
52		mdetuni.k	. . . . 5 ⊢ 𝐾 = (Base‘𝑅)
53		mdetuni.tg	. . . . 5 ⊢ · = (._r‘𝑅)
54		mdetuni.1r	. . . . 5 ⊢ 1 = (1_r‘𝑅)
55	52, 53, 54	ringlidm 20348	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ (𝐷‘𝐹) ∈ 𝐾) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
56	47, 51, 55	syl2anc 595	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
57		zrhpsgnmhm 21734	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
58	46, 32, 57	syl2anc 595	. . . . . 6 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
59		eqid 2763	. . . . . . . 8 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
60	59, 54	ringidval 20260	. . . . . . 7 ⊢ 1 = (0_g‘(mulGrp‘𝑅))
61	29, 60	mhm0 18847	. . . . . 6 ⊢ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
62	58, 61	syl 18	. . . . 5 ⊢ (𝜑 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
63	62	3ad2ant1 1151	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
64	63	oveq1d 7425	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)) = ( 1 · (𝐷‘𝐹)))
65	34	symgid 19466	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ Fin → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
66	32, 65	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
67	66	3ad2ant1 1151	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
68	67	3ad2ant1 1151	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
69	68	fveq1d 6883	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
70		simp2 1155	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
71		fvresi 7171	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝑁 → (( I ↾ 𝑁)‘𝑎) = 𝑎)
72	70, 71	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = 𝑎)
73	69, 72	eqtr3d 2800	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((0_g‘(SymGrp‘𝑁))‘𝑎) = 𝑎)
74	73	oveq1d 7425	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏) = (𝑎𝐹𝑏))
75	74	mpoeq3dva 7487	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
76		mdetuni.a	. . . . . . . . 9 ⊢ 𝐴 = (𝑁 Mat 𝑅)
77		mdetuni.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐴)
78	76, 52, 77	matbas2i 22579	. . . . . . . 8 ⊢ (𝐹 ∈ 𝐵 → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
79	78	3ad2ant3 1153	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
80		elmapi 8842	. . . . . . 7 ⊢ (𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
81		ffn 6705	. . . . . . 7 ⊢ (𝐹:(𝑁 × 𝑁)⟶𝐾 → 𝐹 Fn (𝑁 × 𝑁))
82	79, 80, 81	3syl 19	. . . . . 6 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 Fn (𝑁 × 𝑁))
83		fnov 7541	. . . . . 6 ⊢ (𝐹 Fn (𝑁 × 𝑁) ↔ 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
84	82, 83	sylib 221	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
85	75, 84	eqtr4d 2801	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = 𝐹)
86	85	fveq2d 6885	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = (𝐷‘𝐹))
87	56, 64, 86	3eqtr4rd 2809	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
88		simp2 1155	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑑 ∈ (Base‘(SymGrp‘𝑁)))
89	39	sseli 3933	. . . . . . . . . . . . 13 ⊢ (𝑒 ∈ ran (pmTrsp‘𝑁) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
90	89	3ad2ant3 1153	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
91	34, 31, 30	symgov 19449	. . . . . . . . . . . 12 ⊢ ((𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
92	88, 90, 91	syl2anc 595	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
93	92	fveq1d 6883	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = ((𝑑 ∘ 𝑒)‘𝑎))
94	93	3ad2ant1 1151	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = ((𝑑 ∘ 𝑒)‘𝑎))
95	34, 31	symgbasf1o 19440	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ (Base‘(SymGrp‘𝑁)) → 𝑒:𝑁–1-1-onto→𝑁)
96		f1of 6820	. . . . . . . . . . . 12 ⊢ (𝑒:𝑁–1-1-onto→𝑁 → 𝑒:𝑁⟶𝑁)
97	90, 95, 96	3syl 19	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒:𝑁⟶𝑁)
98	97	3ad2ant1 1151	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑒:𝑁⟶𝑁)
99		simp2 1155	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
100		fvco3 6981	. . . . . . . . . 10 ⊢ ((𝑒:𝑁⟶𝑁 ∧ 𝑎 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
101	98, 99, 100	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
102	94, 101	eqtrd 2798	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
103	102	oveq1d 7425	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏) = ((𝑑‘(𝑒‘𝑎))𝐹𝑏))
104	103	mpoeq3dva 7487	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)))
105	104	fveq2d 6885	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))))
106	34, 31	symgbasf 19441	. . . . . 6 ⊢ (𝑑 ∈ (Base‘(SymGrp‘𝑁)) → 𝑑:𝑁⟶𝑁)
107		eqid 2763	. . . . . . . . 9 ⊢ (pmTrsp‘𝑁) = (pmTrsp‘𝑁)
108	107, 38	pmtrrn2 19525	. . . . . . . 8 ⊢ (𝑒 ∈ ran (pmTrsp‘𝑁) → ∃𝑐 ∈ 𝑁 ∃𝑓 ∈ 𝑁 (𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})))
109		mdetuni.0g	. . . . . . . . . . . . . 14 ⊢ 0 = (0_g‘𝑅)
110		mdetuni.pg	. . . . . . . . . . . . . 14 ⊢ + = (+_g‘𝑅)
111		mdetuni.al	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝑁 ∀𝑧 ∈ 𝑁 ((𝑦 ≠ 𝑧 ∧ ∀𝑤 ∈ 𝑁 (𝑦𝑥𝑤) = (𝑧𝑥𝑤)) → (𝐷‘𝑥) = 0 ))
112		mdetuni.li	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((𝑦 ↾ ({𝑤} × 𝑁)) ∘_f + (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑦 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = ((𝐷‘𝑦) + (𝐷‘𝑧))))
113		mdetuni.sc	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝑁 (((𝑥 ↾ ({𝑤} × 𝑁)) = ((({𝑤} × 𝑁) × {𝑦}) ∘_f · (𝑧 ↾ ({𝑤} × 𝑁))) ∧ (𝑥 ↾ ((𝑁 ∖ {𝑤}) × 𝑁)) = (𝑧 ↾ ((𝑁 ∖ {𝑤}) × 𝑁))) → (𝐷‘𝑥) = (𝑦 · (𝐷‘𝑧))))
114		simpll1 1231	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝜑)
115		df-3an 1105	. . . . . . . . . . . . . . 15 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓) ↔ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓))
116	115	bilanri 511	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓))
117	79, 80	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
118	117	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
119	118	ad2antrr 738	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
120		simpllr 787	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
121		simprlr 791	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
122	121	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑓 ∈ 𝑁)
123	120, 122	ffvelcdmd 7080	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑓) ∈ 𝑁)
124		simpr 489	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
125	119, 123, 124	fovcdmd 7582	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾)
126		simprll 790	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
127	126	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑐 ∈ 𝑁)
128	120, 127	ffvelcdmd 7080	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑐) ∈ 𝑁)
129	119, 128, 124	fovcdmd 7582	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾)
130	125, 129	jca 520	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾 ∧ ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾))
131	117	ad2antrr 738	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
132	131	3ad2ant1 1151	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
133		simp1lr 1256	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
134		simp2 1155	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
135	133, 134	ffvelcdmd 7080	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑎) ∈ 𝑁)
136		simp3 1156	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
137	132, 135, 136	fovcdmd 7582	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) ∈ 𝐾)
138	76, 77, 52, 109, 54, 110, 53, 32, 46, 48, 111, 112, 113, 114, 116, 130, 137	mdetunilem6 22774	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))))
139		simpl1 1210	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝜑)
140		fveq2 6881	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑐 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐))
141	32	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑁 ∈ Fin)
142		simprll 790	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
143		simprlr 791	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
144		simprr 784	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ≠ 𝑓)
145	107	pmtrprfv 19518	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ Fin ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
146	141, 142, 143, 144, 145	syl13anc 1399	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
147	146	adantr 485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
148	140, 147	sylan9eqr 2820	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑓)
149	148	fveq2d 6885	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑓))
150	149	oveq1d 7425	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
151		iftrue 4493	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
152	151	adantl 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
153	150, 152	eqtr4d 2801	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
154		fveq2 6881	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 = 𝑓 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓))
155		prcom 4698	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ {𝑐, 𝑓} = {𝑓, 𝑐}
156	155	fveq2i 6884	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) = ((pmTrsp‘𝑁)‘{𝑓, 𝑐})
157	156	fveq1i 6882	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓)
158	32	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑁 ∈ Fin)
159		simplrl 788	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁))
160	159	simprd 500	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ∈ 𝑁)
161	159	simpld 499	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ∈ 𝑁)
162		simplrr 789	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ≠ 𝑓)
163	162	necomd 3013	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ≠ 𝑐)
164	107	pmtrprfv 19518	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑁 ∈ Fin ∧ (𝑓 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁 ∧ 𝑓 ≠ 𝑐)) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
165	158, 160, 161, 163, 164	syl13anc 1399	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
166	157, 165	eqtrid 2810	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = 𝑐)
167	154, 166	sylan9eqr 2820	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑐)
168	167	fveq2d 6885	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑐))
169	168	oveq1d 7425	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
170		iftrue 4493	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
171	170	adantl 486	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
172	169, 171	eqtr4d 2801	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
173	172	adantlr 727	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
174		vex 3459	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝑎 ∈ V
175	174	elpr 4614	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑎 ∈ {𝑐, 𝑓} ↔ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
176	175	notbii 323	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ 𝑎 ∈ {𝑐, 𝑓} ↔ ¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
177		ioran 999	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓) ↔ (¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓))
178	176, 177	sylbbr 239	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
179	178	adantll 726	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
180		prssi 4787	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
181	159, 180	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
182		pr2ne 9985	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
183	159, 182	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
184	162, 183	mpbird 260	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ≈ 2_o)
185	107	pmtrmvd 19521	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
186	158, 181, 184, 185	syl3anc 1398	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
187	186	eleq2d 2849	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ 𝑎 ∈ {𝑐, 𝑓}))
188	187	notbid 321	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
189	188	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
190	179, 189	mpbird 260	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ))
191	107	pmtrf 19520	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
192	158, 181, 184, 191	syl3anc 1398	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
193	192	ffnd 6706	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁)
194		simpr 489	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑎 ∈ 𝑁)
195		fnelnfp 7175	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) ≠ 𝑎))
196	195	necon2bbid 3001	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
197	193, 194, 196	syl2anc 595	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
198	197	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
199	190, 198	mpbird 260	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎)
200	199	fveq2d 6885	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑎))
201	200	oveq1d 7425	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
202		iffalse 4496	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
203	202	adantl 486	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
204	201, 203	eqtr4d 2801	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
205	173, 204	pm2.61dan 824	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
206		iffalse 4496	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
207	206	adantl 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
208	205, 207	eqtr4d 2801	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
209	153, 208	pm2.61dan 824	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
210	209	3adant3 1150	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
211	210	mpoeq3dva 7487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
212	139, 211	sylan 591	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
213	212	fveq2d 6885	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))))
214		fveq2 6881	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = 𝑐 → (𝑑‘𝑎) = (𝑑‘𝑐))
215	214	oveq1d 7425	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
216		iftrue 4493	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑐)𝐹𝑏))
217	215, 216	eqtr4d 2801	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
218		fveq2 6881	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = 𝑓 → (𝑑‘𝑎) = (𝑑‘𝑓))
219	218	oveq1d 7425	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
220		iftrue 4493	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑓)𝐹𝑏))
221	219, 220	eqtr4d 2801	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
222	221	adantl 486	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
223		iffalse 4496	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
224	223	eqcomd 2769	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
225	224	adantl 486	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
226	222, 225	pm2.61dan 824	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
227		iffalse 4496	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
228	226, 227	eqtr4d 2801	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
229	217, 228	pm2.61i 184	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
230	229	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
231	230	mpoeq3ia 7488	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
232	231	fveq2i 6884	. . . . . . . . . . . . . . 15 ⊢ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
233	232	fveq2i 6884	. . . . . . . . . . . . . 14 ⊢ ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))))
234	233	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))))
235	138, 213, 234	3eqtr4d 2808	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
236		fveq1 6880	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑒‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))
237	236	fveq2d 6885	. . . . . . . . . . . . . . 15 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑑‘(𝑒‘𝑎)) = (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)))
238	237	oveq1d 7425	. . . . . . . . . . . . . 14 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝑑‘(𝑒‘𝑎))𝐹𝑏) = ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))
239	238	mpoeq3dv 7489	. . . . . . . . . . . . 13 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)))
240	239	fveqeq2d 6889	. . . . . . . . . . . 12 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
241	235, 240	syl5ibrcom 250	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
242	241	expr 461	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁)) → (𝑐 ≠ 𝑓 → (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))))
243	242	impd 415	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁)) → ((𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
244	243	rexlimdvva 3222	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → (∃𝑐 ∈ 𝑁 ∃𝑓 ∈ 𝑁 (𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
245	108, 244	syl5 35	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → (𝑒 ∈ ran (pmTrsp‘𝑁) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
246	245	3impia 1135	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁 ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
247	106, 246	syl3an2 1182	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
248	105, 247	eqtrd 2798	. . . 4 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
249	248	adantr 485	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
250		fveq2 6881	. . . 4 ⊢ ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
251	250	adantl 486	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
252		eqid 2763	. . . . . 6 ⊢ (inv_g‘𝑅) = (inv_g‘𝑅)
253	47	3ad2ant1 1151	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑅 ∈ Ring)
254	58	3ad2ant1 1151	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
255	254	3ad2ant1 1151	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
256	59, 52	mgpbas 20216	. . . . . . . . 9 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
257	31, 256	mhmf 18842	. . . . . . . 8 ⊢ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
258	255, 257	syl 18	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
259	258, 88	ffvelcdmd 7080	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) ∈ 𝐾)
260	49	3ad2ant1 1151	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐷:𝐵⟶𝐾)
261		simp13 1224	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐹 ∈ 𝐵)
262	260, 261	ffvelcdmd 7080	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘𝐹) ∈ 𝐾)
263	52, 53, 252, 253, 259, 262	ringmneg1 20383	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
264	59, 53	mgpplusg 20215	. . . . . . . . 9 ⊢ · = (+_g‘(mulGrp‘𝑅))
265	31, 30, 264	mhmlin 18846	. . . . . . . 8 ⊢ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
266	255, 88, 90, 265	syl3anc 1398	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
267	33	3ad2ant1 1151	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑁 ∈ Fin)
268		simp3 1156	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ran (pmTrsp‘𝑁))
269	34, 31, 38	pmtrodpm 21747	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
270	267, 268, 269	syl2anc 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
271		eqid 2763	. . . . . . . . . 10 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
272		eqid 2763	. . . . . . . . . 10 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
273	271, 272, 54, 31, 252	zrhpsgnodpm 21742	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
274	253, 267, 270, 273	syl3anc 1398	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
275	274	oveq2d 7426	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )))
276	52, 53, 54, 252, 253, 259	ringnegr 20382	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )) = ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)))
277	266, 275, 276	3eqtrrd 2803	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
278	277	oveq1d 7425	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
279	263, 278	eqtr3d 2800	. . . 4 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
280	279	adantr 485	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
281	249, 251, 280	3eqtrd 2802	. 2 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
282		simp2 1155	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐸:𝑁–1-1-onto→𝑁)
283	34, 31	elsymgbas 19439	. . . 4 ⊢ (𝑁 ∈ Fin → (𝐸 ∈ (Base‘(SymGrp‘𝑁)) ↔ 𝐸:𝑁–1-1-onto→𝑁))
284	33, 283	syl 18	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐸 ∈ (Base‘(SymGrp‘𝑁)) ↔ 𝐸:𝑁–1-1-onto→𝑁))
285	282, 284	mpbird 260	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐸 ∈ (Base‘(SymGrp‘𝑁)))
286	7, 14, 21, 28, 29, 30, 31, 37, 40, 45, 87, 281, 285	mndind 18882	1 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 400 ∨ wo 860 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 ≠ wne 2958 ∀wral 3079 ∃wrex 3089 ∖ cdif 3902 ⊆ wss 3905 ifcif 4487 {csn 4589 {cpr 4591 class class class wbr 5109 I cid 5555 × cxp 5659 dom cdm 5661 ran crn 5662 ↾ cres 5663 ∘ ccom 5665 Fn wfn 6531 ⟶wf 6532 –1-1-onto→wf1o 6535 ‘cfv 6536 (class class class)co 7410 ∈ cmpo 7412 ∘_f cof 7672 2_oc2o 8443 ↑_m cmap 8820 ≈ cen 8936 Fincfn 8939 Basecbs 17264 +_gcplusg 17305 ._rcmulr 17306 0_gc0g 17487 mrClscmrc 17630 Mndcmnd 18787 MndHom cmhm 18834 SubMndcsubmnd 18835 Grpcgrp 18995 inv_gcminusg 18996 SymGrpcsymg 19434 pmTrspcpmtr 19506 pmSgncpsgn 19554 pmEvencevpm 19555 mulGrpcmgp 20211 1_rcur 20258 Ringcrg 20310 ℤRHomczrh 21649 Mat cmat 22564

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5238 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172 ax-addf 11174 ax-mulf 11175

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-xor 1542 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-ot 4598 df-uni 4873 df-int 4913 df-iun 4958 df-iin 4959 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-se 5615 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-of 7674 df-om 7859 df-1st 7982 df-2nd 7983 df-supp 8153 df-tpos 8218 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-2o 8450 df-er 8690 df-map 8822 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9318 df-sup 9398 df-card 9921 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-div 11867 df-nn 12229 df-2 12298 df-3 12299 df-4 12300 df-5 12301 df-6 12302 df-7 12303 df-8 12304 df-9 12305 df-n0 12500 df-xnn0 12573 df-z 12587 df-dec 12707 df-uz 12858 df-rp 13012 df-fz 13531 df-fzo 13679 df-seq 14034 df-exp 14094 df-hash 14363 df-word 14547 df-lsw 14596 df-concat 14604 df-s1 14630 df-substr 14675 df-pfx 14705 df-splice 14783 df-reverse 14792 df-s2 14881 df-struct 17202 df-sets 17219 df-slot 17237 df-ndx 17249 df-base 17265 df-ress 17286 df-plusg 17318 df-mulr 17319 df-starv 17320 df-sca 17321 df-vsca 17322 df-ip 17323 df-tset 17324 df-ple 17325 df-ds 17327 df-unif 17328 df-hom 17329 df-cco 17330 df-0g 17489 df-gsum 17490 df-prds 17495 df-pws 17497 df-mre 17633 df-mrc 17634 df-acs 17636 df-mgm 18693 df-sgrp 18772 df-mnd 18788 df-mhm 18836 df-submnd 18837 df-efmnd 18923 df-grp 18998 df-minusg 18999 df-mulg 19129 df-subg 19184 df-ghm 19279 df-gim 19324 df-oppg 19411 df-symg 19435 df-pmtr 19507 df-psgn 19556 df-evpm 19557 df-cmn 19847 df-abl 19848 df-mgp 20212 df-rng 20226 df-ur 20259 df-ring 20312 df-cring 20313 df-oppr 20415 df-dvdsr 20435 df-unit 20436 df-invr 20466 df-dvr 20479 df-rhm 20550 df-subrng 20645 df-subrg 20669 df-drng 20829 df-sra 21294 df-rgmod 21295 df-cnfld 21523 df-zring 21597 df-zrh 21653 df-dsmm 21882 df-frlm 21897 df-mat 22565

This theorem is referenced by: mdetunilem8 22776

W3C validator