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 22503

Description: Lemma for mdetuni 22507. (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 6821	. . . . . 6 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
2	1	oveq1d 7364	. . . . 5 ⊢ (𝑐 = 𝑑 → ((𝑐‘𝑎)𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
3	2	mpoeq3dv 7428	. . . 4 ⊢ (𝑐 = 𝑑 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))
4	3	fveq2d 6826	. . 3 ⊢ (𝑐 = 𝑑 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))
5		fveq2 6822	. . . 4 ⊢ (𝑐 = 𝑑 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑))
6	5	oveq1d 7364	. . 3 ⊢ (𝑐 = 𝑑 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)))
7	4, 6	eqeq12d 2745	. 2 ⊢ (𝑐 = 𝑑 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
8		fveq1 6821	. . . . . 6 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑐‘𝑎) = ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎))
9	8	oveq1d 7364	. . . . 5 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝑐‘𝑎)𝐹𝑏) = (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))
10	9	mpoeq3dv 7428	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)))
11	10	fveq2d 6826	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))))
12		fveq2 6822	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
13	12	oveq1d 7364	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
14	11, 13	eqeq12d 2745	. 2 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹))))
15		fveq1 6821	. . . . . 6 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑐‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
16	15	oveq1d 7364	. . . . 5 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝑐‘𝑎)𝐹𝑏) = (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))
17	16	mpoeq3dv 7428	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)))
18	17	fveq2d 6826	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))))
19		fveq2 6822	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))))
20	19	oveq1d 7364	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
21	18, 20	eqeq12d 2745	. 2 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹))))
22		fveq1 6821	. . . . . 6 ⊢ (𝑐 = 𝐸 → (𝑐‘𝑎) = (𝐸‘𝑎))
23	22	oveq1d 7364	. . . . 5 ⊢ (𝑐 = 𝐸 → ((𝑐‘𝑎)𝐹𝑏) = ((𝐸‘𝑎)𝐹𝑏))
24	23	mpoeq3dv 7428	. . . 4 ⊢ (𝑐 = 𝐸 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏)))
25	24	fveq2d 6826	. . 3 ⊢ (𝑐 = 𝐸 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))))
26		fveq2 6822	. . . 4 ⊢ (𝑐 = 𝐸 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸))
27	26	oveq1d 7364	. . 3 ⊢ (𝑐 = 𝐸 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))
28	25, 27	eqeq12d 2745	. 2 ⊢ (𝑐 = 𝐸 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹))))
29		eqid 2729	. 2 ⊢ (0_g‘(SymGrp‘𝑁)) = (0_g‘(SymGrp‘𝑁))
30		eqid 2729	. 2 ⊢ (+_g‘(SymGrp‘𝑁)) = (+_g‘(SymGrp‘𝑁))
31		eqid 2729	. 2 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
32		mdetuni.n	. . . 4 ⊢ (𝜑 → 𝑁 ∈ Fin)
33	32	3ad2ant1 1133	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑁 ∈ Fin)
34		eqid 2729	. . . 4 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
35	34	symggrp 19279	. . 3 ⊢ (𝑁 ∈ Fin → (SymGrp‘𝑁) ∈ Grp)
36		grpmnd 18819	. . 3 ⊢ ((SymGrp‘𝑁) ∈ Grp → (SymGrp‘𝑁) ∈ Mnd)
37	33, 35, 36	3syl 18	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (SymGrp‘𝑁) ∈ Mnd)
38		eqid 2729	. . . 4 ⊢ ran (pmTrsp‘𝑁) = ran (pmTrsp‘𝑁)
39	38, 34, 31	symgtrf 19348	. . 3 ⊢ ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁))
40	39	a1i 11	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁)))
41		eqid 2729	. . . . . 6 ⊢ (mrCls‘(SubMnd‘(SymGrp‘𝑁))) = (mrCls‘(SubMnd‘(SymGrp‘𝑁)))
42	38, 34, 31, 41	symggen2 19350	. . . . 5 ⊢ (𝑁 ∈ Fin → ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)) = (Base‘(SymGrp‘𝑁)))
43	32, 42	syl 17	. . . 4 ⊢ (𝜑 → ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)) = (Base‘(SymGrp‘𝑁)))
44	43	eqcomd 2735	. . 3 ⊢ (𝜑 → (Base‘(SymGrp‘𝑁)) = ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)))
45	44	3ad2ant1 1133	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (Base‘(SymGrp‘𝑁)) = ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)))
46		mdetuni.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Ring)
47	46	3ad2ant1 1133	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑅 ∈ Ring)
48		mdetuni.ff	. . . . . 6 ⊢ (𝜑 → 𝐷:𝐵⟶𝐾)
49	48	3ad2ant1 1133	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐷:𝐵⟶𝐾)
50		simp3 1138	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ 𝐵)
51	49, 50	ffvelcdmd 7019	. . . 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 20154	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ (𝐷‘𝐹) ∈ 𝐾) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
56	47, 51, 55	syl2anc 584	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
57		zrhpsgnmhm 21491	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
58	46, 32, 57	syl2anc 584	. . . . . 6 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
59		eqid 2729	. . . . . . . 8 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
60	59, 54	ringidval 20068	. . . . . . 7 ⊢ 1 = (0_g‘(mulGrp‘𝑅))
61	29, 60	mhm0 18668	. . . . . 6 ⊢ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
62	58, 61	syl 17	. . . . 5 ⊢ (𝜑 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
63	62	3ad2ant1 1133	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
64	63	oveq1d 7364	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)) = ( 1 · (𝐷‘𝐹)))
65	34	symgid 19280	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ Fin → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
66	32, 65	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
67	66	3ad2ant1 1133	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
68	67	3ad2ant1 1133	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
69	68	fveq1d 6824	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
70		simp2 1137	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
71		fvresi 7109	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝑁 → (( I ↾ 𝑁)‘𝑎) = 𝑎)
72	70, 71	syl 17	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = 𝑎)
73	69, 72	eqtr3d 2766	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((0_g‘(SymGrp‘𝑁))‘𝑎) = 𝑎)
74	73	oveq1d 7364	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏) = (𝑎𝐹𝑏))
75	74	mpoeq3dva 7426	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
76		mdetuni.a	. . . . . . . . 9 ⊢ 𝐴 = (𝑁 Mat 𝑅)
77		mdetuni.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐴)
78	76, 52, 77	matbas2i 22307	. . . . . . . 8 ⊢ (𝐹 ∈ 𝐵 → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
79	78	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
80		elmapi 8776	. . . . . . 7 ⊢ (𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
81		ffn 6652	. . . . . . 7 ⊢ (𝐹:(𝑁 × 𝑁)⟶𝐾 → 𝐹 Fn (𝑁 × 𝑁))
82	79, 80, 81	3syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 Fn (𝑁 × 𝑁))
83		fnov 7480	. . . . . 6 ⊢ (𝐹 Fn (𝑁 × 𝑁) ↔ 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
84	82, 83	sylib 218	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
85	75, 84	eqtr4d 2767	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = 𝐹)
86	85	fveq2d 6826	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = (𝐷‘𝐹))
87	56, 64, 86	3eqtr4rd 2775	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
88		simp2 1137	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑑 ∈ (Base‘(SymGrp‘𝑁)))
89	39	sseli 3931	. . . . . . . . . . . . 13 ⊢ (𝑒 ∈ ran (pmTrsp‘𝑁) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
90	89	3ad2ant3 1135	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
91	34, 31, 30	symgov 19263	. . . . . . . . . . . 12 ⊢ ((𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
92	88, 90, 91	syl2anc 584	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
93	92	fveq1d 6824	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = ((𝑑 ∘ 𝑒)‘𝑎))
94	93	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = ((𝑑 ∘ 𝑒)‘𝑎))
95	34, 31	symgbasf1o 19254	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ (Base‘(SymGrp‘𝑁)) → 𝑒:𝑁–1-1-onto→𝑁)
96		f1of 6764	. . . . . . . . . . . 12 ⊢ (𝑒:𝑁–1-1-onto→𝑁 → 𝑒:𝑁⟶𝑁)
97	90, 95, 96	3syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒:𝑁⟶𝑁)
98	97	3ad2ant1 1133	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑒:𝑁⟶𝑁)
99		simp2 1137	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
100		fvco3 6922	. . . . . . . . . 10 ⊢ ((𝑒:𝑁⟶𝑁 ∧ 𝑎 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
101	98, 99, 100	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
102	94, 101	eqtrd 2764	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
103	102	oveq1d 7364	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏) = ((𝑑‘(𝑒‘𝑎))𝐹𝑏))
104	103	mpoeq3dva 7426	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)))
105	104	fveq2d 6826	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))))
106	34, 31	symgbasf 19255	. . . . . 6 ⊢ (𝑑 ∈ (Base‘(SymGrp‘𝑁)) → 𝑑:𝑁⟶𝑁)
107		eqid 2729	. . . . . . . . 9 ⊢ (pmTrsp‘𝑁) = (pmTrsp‘𝑁)
108	107, 38	pmtrrn2 19339	. . . . . . . 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 1213	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝜑)
115		df-3an 1088	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓) ↔ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓))
116	115	biimpri 228	. . . . . . . . . . . . . . 15 ⊢ (((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓))
117	116	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓))
118	79, 80	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
119	118	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
120	119	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
121		simpllr 775	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
122		simprlr 779	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
123	122	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑓 ∈ 𝑁)
124	121, 123	ffvelcdmd 7019	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑓) ∈ 𝑁)
125		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
126	120, 124, 125	fovcdmd 7521	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾)
127		simprll 778	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
128	127	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑐 ∈ 𝑁)
129	121, 128	ffvelcdmd 7019	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑐) ∈ 𝑁)
130	120, 129, 125	fovcdmd 7521	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾)
131	126, 130	jca 511	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾 ∧ ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾))
132	118	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
133	132	3ad2ant1 1133	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
134		simp1lr 1238	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
135		simp2 1137	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
136	134, 135	ffvelcdmd 7019	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑎) ∈ 𝑁)
137		simp3 1138	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
138	133, 136, 137	fovcdmd 7521	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) ∈ 𝐾)
139	76, 77, 52, 109, 54, 110, 53, 32, 46, 48, 111, 112, 113, 114, 117, 131, 138	mdetunilem6 22502	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))))
140		simpl1 1192	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝜑)
141		fveq2 6822	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑐 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐))
142	32	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑁 ∈ Fin)
143		simprll 778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
144		simprlr 779	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
145		simprr 772	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ≠ 𝑓)
146	107	pmtrprfv 19332	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ Fin ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
147	142, 143, 144, 145, 146	syl13anc 1374	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
148	147	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
149	141, 148	sylan9eqr 2786	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑓)
150	149	fveq2d 6826	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑓))
151	150	oveq1d 7364	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
152		iftrue 4482	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
153	152	adantl 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
154	151, 153	eqtr4d 2767	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
155		fveq2 6822	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 = 𝑓 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓))
156		prcom 4684	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ {𝑐, 𝑓} = {𝑓, 𝑐}
157	156	fveq2i 6825	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) = ((pmTrsp‘𝑁)‘{𝑓, 𝑐})
158	157	fveq1i 6823	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓)
159	32	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑁 ∈ Fin)
160		simplrl 776	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁))
161	160	simprd 495	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ∈ 𝑁)
162	160	simpld 494	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ∈ 𝑁)
163		simplrr 777	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ≠ 𝑓)
164	163	necomd 2980	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ≠ 𝑐)
165	107	pmtrprfv 19332	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑁 ∈ Fin ∧ (𝑓 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁 ∧ 𝑓 ≠ 𝑐)) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
166	159, 161, 162, 164, 165	syl13anc 1374	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
167	158, 166	eqtrid 2776	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = 𝑐)
168	155, 167	sylan9eqr 2786	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑐)
169	168	fveq2d 6826	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑐))
170	169	oveq1d 7364	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
171		iftrue 4482	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
172	171	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
173	170, 172	eqtr4d 2767	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
174	173	adantlr 715	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
175		vex 3440	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝑎 ∈ V
176	175	elpr 4602	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑎 ∈ {𝑐, 𝑓} ↔ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
177	176	notbii 320	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ 𝑎 ∈ {𝑐, 𝑓} ↔ ¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
178		ioran 985	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓) ↔ (¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓))
179	177, 178	sylbbr 236	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
180	179	adantll 714	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
181		prssi 4772	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
182	160, 181	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
183		pr2ne 9899	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
184	160, 183	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
185	163, 184	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ≈ 2_o)
186	107	pmtrmvd 19335	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
187	159, 182, 185, 186	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
188	187	eleq2d 2814	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ 𝑎 ∈ {𝑐, 𝑓}))
189	188	notbid 318	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
190	189	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
191	180, 190	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ))
192	107	pmtrf 19334	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
193	159, 182, 185, 192	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
194	193	ffnd 6653	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁)
195		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑎 ∈ 𝑁)
196		fnelnfp 7113	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) ≠ 𝑎))
197	196	necon2bbid 2968	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
198	194, 195, 197	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
199	198	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
200	191, 199	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎)
201	200	fveq2d 6826	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑎))
202	201	oveq1d 7364	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
203		iffalse 4485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
204	203	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
205	202, 204	eqtr4d 2767	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
206	174, 205	pm2.61dan 812	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
207		iffalse 4485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
208	207	adantl 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
209	206, 208	eqtr4d 2767	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
210	154, 209	pm2.61dan 812	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
211	210	3adant3 1132	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
212	211	mpoeq3dva 7426	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
213	140, 212	sylan 580	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
214	213	fveq2d 6826	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))))
215		fveq2 6822	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = 𝑐 → (𝑑‘𝑎) = (𝑑‘𝑐))
216	215	oveq1d 7364	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
217		iftrue 4482	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑐)𝐹𝑏))
218	216, 217	eqtr4d 2767	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
219		fveq2 6822	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = 𝑓 → (𝑑‘𝑎) = (𝑑‘𝑓))
220	219	oveq1d 7364	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
221		iftrue 4482	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑓)𝐹𝑏))
222	220, 221	eqtr4d 2767	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
223	222	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
224		iffalse 4485	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
225	224	eqcomd 2735	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
226	225	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
227	223, 226	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
228		iffalse 4485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
229	227, 228	eqtr4d 2767	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
230	218, 229	pm2.61i 182	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
231	230	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
232	231	mpoeq3ia 7427	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
233	232	fveq2i 6825	. . . . . . . . . . . . . . 15 ⊢ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
234	233	fveq2i 6825	. . . . . . . . . . . . . 14 ⊢ ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))))
235	234	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))))
236	139, 214, 235	3eqtr4d 2774	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
237		fveq1 6821	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑒‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))
238	237	fveq2d 6826	. . . . . . . . . . . . . . 15 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑑‘(𝑒‘𝑎)) = (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)))
239	238	oveq1d 7364	. . . . . . . . . . . . . 14 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝑑‘(𝑒‘𝑎))𝐹𝑏) = ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))
240	239	mpoeq3dv 7428	. . . . . . . . . . . . 13 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)))
241	240	fveqeq2d 6830	. . . . . . . . . . . 12 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
242	236, 241	syl5ibrcom 247	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
243	242	expr 456	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁)) → (𝑐 ≠ 𝑓 → (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))))
244	243	impd 410	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁)) → ((𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
245	244	rexlimdvva 3186	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → (∃𝑐 ∈ 𝑁 ∃𝑓 ∈ 𝑁 (𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
246	108, 245	syl5 34	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → (𝑒 ∈ ran (pmTrsp‘𝑁) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
247	246	3impia 1117	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁 ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
248	106, 247	syl3an2 1164	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
249	105, 248	eqtrd 2764	. . . 4 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
250	249	adantr 480	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
251		fveq2 6822	. . . 4 ⊢ ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
252	251	adantl 481	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
253		eqid 2729	. . . . . 6 ⊢ (inv_g‘𝑅) = (inv_g‘𝑅)
254	47	3ad2ant1 1133	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑅 ∈ Ring)
255	58	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
256	255	3ad2ant1 1133	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
257	59, 52	mgpbas 20030	. . . . . . . . 9 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
258	31, 257	mhmf 18663	. . . . . . . 8 ⊢ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
259	256, 258	syl 17	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
260	259, 88	ffvelcdmd 7019	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) ∈ 𝐾)
261	49	3ad2ant1 1133	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐷:𝐵⟶𝐾)
262		simp13 1206	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐹 ∈ 𝐵)
263	261, 262	ffvelcdmd 7019	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘𝐹) ∈ 𝐾)
264	52, 53, 253, 254, 260, 263	ringmneg1 20189	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
265	59, 53	mgpplusg 20029	. . . . . . . . 9 ⊢ · = (+_g‘(mulGrp‘𝑅))
266	31, 30, 265	mhmlin 18667	. . . . . . . 8 ⊢ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
267	256, 88, 90, 266	syl3anc 1373	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
268	33	3ad2ant1 1133	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑁 ∈ Fin)
269		simp3 1138	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ran (pmTrsp‘𝑁))
270	34, 31, 38	pmtrodpm 21504	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
271	268, 269, 270	syl2anc 584	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
272		eqid 2729	. . . . . . . . . 10 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
273		eqid 2729	. . . . . . . . . 10 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
274	272, 273, 54, 31, 253	zrhpsgnodpm 21499	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
275	254, 268, 271, 274	syl3anc 1373	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
276	275	oveq2d 7365	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )))
277	52, 53, 54, 253, 254, 260	ringnegr 20188	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )) = ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)))
278	267, 276, 277	3eqtrrd 2769	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
279	278	oveq1d 7364	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
280	264, 279	eqtr3d 2766	. . . 4 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
281	280	adantr 480	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
282	250, 252, 281	3eqtrd 2768	. 2 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
283		simp2 1137	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐸:𝑁–1-1-onto→𝑁)
284	34, 31	elsymgbas 19253	. . . 4 ⊢ (𝑁 ∈ Fin → (𝐸 ∈ (Base‘(SymGrp‘𝑁)) ↔ 𝐸:𝑁–1-1-onto→𝑁))
285	33, 284	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐸 ∈ (Base‘(SymGrp‘𝑁)) ↔ 𝐸:𝑁–1-1-onto→𝑁))
286	283, 285	mpbird 257	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐸 ∈ (Base‘(SymGrp‘𝑁)))
287	7, 14, 21, 28, 29, 30, 31, 37, 40, 45, 87, 282, 286	mndind 18702	1 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ∀wral 3044 ∃wrex 3053 ∖ cdif 3900 ⊆ wss 3903 ifcif 4476 {csn 4577 {cpr 4579 class class class wbr 5092 I cid 5513 × cxp 5617 dom cdm 5619 ran crn 5620 ↾ cres 5621 ∘ ccom 5623 Fn wfn 6477 ⟶wf 6478 –1-1-onto→wf1o 6481 ‘cfv 6482 (class class class)co 7349 ∈ cmpo 7351 ∘_f cof 7611 2_oc2o 8382 ↑_m cmap 8753 ≈ cen 8869 Fincfn 8872 Basecbs 17120 +_gcplusg 17161 ._rcmulr 17162 0_gc0g 17343 mrClscmrc 17485 Mndcmnd 18608 MndHom cmhm 18655 SubMndcsubmnd 18656 Grpcgrp 18812 inv_gcminusg 18813 SymGrpcsymg 19248 pmTrspcpmtr 19320 pmSgncpsgn 19368 pmEvencevpm 19369 mulGrpcmgp 20025 1_rcur 20066 Ringcrg 20118 ℤRHomczrh 21406 Mat cmat 22292

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5218 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671 ax-cnex 11065 ax-resscn 11066 ax-1cn 11067 ax-icn 11068 ax-addcl 11069 ax-addrcl 11070 ax-mulcl 11071 ax-mulrcl 11072 ax-mulcom 11073 ax-addass 11074 ax-mulass 11075 ax-distr 11076 ax-i2m1 11077 ax-1ne0 11078 ax-1rid 11079 ax-rnegex 11080 ax-rrecex 11081 ax-cnre 11082 ax-pre-lttri 11083 ax-pre-lttrn 11084 ax-pre-ltadd 11085 ax-pre-mulgt0 11086 ax-addf 11088 ax-mulf 11089

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-xor 1512 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3343 df-reu 3344 df-rab 3395 df-v 3438 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-ot 4586 df-uni 4859 df-int 4897 df-iun 4943 df-iin 4944 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6249 df-ord 6310 df-on 6311 df-lim 6312 df-suc 6313 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-isom 6491 df-riota 7306 df-ov 7352 df-oprab 7353 df-mpo 7354 df-of 7613 df-om 7800 df-1st 7924 df-2nd 7925 df-supp 8094 df-tpos 8159 df-frecs 8214 df-wrecs 8245 df-recs 8294 df-rdg 8332 df-1o 8388 df-2o 8389 df-er 8625 df-map 8755 df-ixp 8825 df-en 8873 df-dom 8874 df-sdom 8875 df-fin 8876 df-fsupp 9252 df-sup 9332 df-card 9835 df-pnf 11151 df-mnf 11152 df-xr 11153 df-ltxr 11154 df-le 11155 df-sub 11349 df-neg 11350 df-div 11778 df-nn 12129 df-2 12191 df-3 12192 df-4 12193 df-5 12194 df-6 12195 df-7 12196 df-8 12197 df-9 12198 df-n0 12385 df-xnn0 12458 df-z 12472 df-dec 12592 df-uz 12736 df-rp 12894 df-fz 13411 df-fzo 13558 df-seq 13909 df-exp 13969 df-hash 14238 df-word 14421 df-lsw 14470 df-concat 14478 df-s1 14503 df-substr 14548 df-pfx 14578 df-splice 14656 df-reverse 14665 df-s2 14755 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-starv 17176 df-sca 17177 df-vsca 17178 df-ip 17179 df-tset 17180 df-ple 17181 df-ds 17183 df-unif 17184 df-hom 17185 df-cco 17186 df-0g 17345 df-gsum 17346 df-prds 17351 df-pws 17353 df-mre 17488 df-mrc 17489 df-acs 17491 df-mgm 18514 df-sgrp 18593 df-mnd 18609 df-mhm 18657 df-submnd 18658 df-efmnd 18743 df-grp 18815 df-minusg 18816 df-mulg 18947 df-subg 19002 df-ghm 19092 df-gim 19138 df-oppg 19225 df-symg 19249 df-pmtr 19321 df-psgn 19370 df-evpm 19371 df-cmn 19661 df-abl 19662 df-mgp 20026 df-rng 20038 df-ur 20067 df-ring 20120 df-cring 20121 df-oppr 20222 df-dvdsr 20242 df-unit 20243 df-invr 20273 df-dvr 20286 df-rhm 20357 df-subrng 20431 df-subrg 20455 df-drng 20616 df-sra 21077 df-rgmod 21078 df-cnfld 21262 df-zring 21354 df-zrh 21410 df-dsmm 21639 df-frlm 21654 df-mat 22293

This theorem is referenced by: mdetunilem8 22504

W3C validator