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 21227

Description: Lemma for mdetuni 21231. (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 6669	. . . . . 6 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
2	1	oveq1d 7171	. . . . 5 ⊢ (𝑐 = 𝑑 → ((𝑐‘𝑎)𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
3	2	mpoeq3dv 7233	. . . 4 ⊢ (𝑐 = 𝑑 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))
4	3	fveq2d 6674	. . 3 ⊢ (𝑐 = 𝑑 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))
5		fveq2 6670	. . . 4 ⊢ (𝑐 = 𝑑 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑))
6	5	oveq1d 7171	. . 3 ⊢ (𝑐 = 𝑑 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)))
7	4, 6	eqeq12d 2837	. 2 ⊢ (𝑐 = 𝑑 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
8		fveq1 6669	. . . . . 6 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑐‘𝑎) = ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎))
9	8	oveq1d 7171	. . . . 5 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝑐‘𝑎)𝐹𝑏) = (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))
10	9	mpoeq3dv 7233	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)))
11	10	fveq2d 6674	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))))
12		fveq2 6670	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
13	12	oveq1d 7171	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
14	11, 13	eqeq12d 2837	. 2 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹))))
15		fveq1 6669	. . . . . 6 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑐‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
16	15	oveq1d 7171	. . . . 5 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝑐‘𝑎)𝐹𝑏) = (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))
17	16	mpoeq3dv 7233	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)))
18	17	fveq2d 6674	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))))
19		fveq2 6670	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))))
20	19	oveq1d 7171	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
21	18, 20	eqeq12d 2837	. 2 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹))))
22		fveq1 6669	. . . . . 6 ⊢ (𝑐 = 𝐸 → (𝑐‘𝑎) = (𝐸‘𝑎))
23	22	oveq1d 7171	. . . . 5 ⊢ (𝑐 = 𝐸 → ((𝑐‘𝑎)𝐹𝑏) = ((𝐸‘𝑎)𝐹𝑏))
24	23	mpoeq3dv 7233	. . . 4 ⊢ (𝑐 = 𝐸 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏)))
25	24	fveq2d 6674	. . 3 ⊢ (𝑐 = 𝐸 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))))
26		fveq2 6670	. . . 4 ⊢ (𝑐 = 𝐸 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸))
27	26	oveq1d 7171	. . 3 ⊢ (𝑐 = 𝐸 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))
28	25, 27	eqeq12d 2837	. 2 ⊢ (𝑐 = 𝐸 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹))))
29		eqid 2821	. 2 ⊢ (0_g‘(SymGrp‘𝑁)) = (0_g‘(SymGrp‘𝑁))
30		eqid 2821	. 2 ⊢ (+_g‘(SymGrp‘𝑁)) = (+_g‘(SymGrp‘𝑁))
31		eqid 2821	. 2 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
32		mdetuni.n	. . . 4 ⊢ (𝜑 → 𝑁 ∈ Fin)
33	32	3ad2ant1 1129	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑁 ∈ Fin)
34		eqid 2821	. . . 4 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
35	34	symggrp 18528	. . 3 ⊢ (𝑁 ∈ Fin → (SymGrp‘𝑁) ∈ Grp)
36		grpmnd 18110	. . 3 ⊢ ((SymGrp‘𝑁) ∈ Grp → (SymGrp‘𝑁) ∈ Mnd)
37	33, 35, 36	3syl 18	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (SymGrp‘𝑁) ∈ Mnd)
38		eqid 2821	. . . 4 ⊢ ran (pmTrsp‘𝑁) = ran (pmTrsp‘𝑁)
39	38, 34, 31	symgtrf 18597	. . 3 ⊢ ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁))
40	39	a1i 11	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁)))
41		eqid 2821	. . . . . 6 ⊢ (mrCls‘(SubMnd‘(SymGrp‘𝑁))) = (mrCls‘(SubMnd‘(SymGrp‘𝑁)))
42	38, 34, 31, 41	symggen2 18599	. . . . 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 2827	. . 3 ⊢ (𝜑 → (Base‘(SymGrp‘𝑁)) = ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)))
45	44	3ad2ant1 1129	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (Base‘(SymGrp‘𝑁)) = ((mrCls‘(SubMnd‘(SymGrp‘𝑁)))‘ran (pmTrsp‘𝑁)))
46		mdetuni.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Ring)
47	46	3ad2ant1 1129	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑅 ∈ Ring)
48		mdetuni.ff	. . . . . 6 ⊢ (𝜑 → 𝐷:𝐵⟶𝐾)
49	48	3ad2ant1 1129	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐷:𝐵⟶𝐾)
50		simp3 1134	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ 𝐵)
51	49, 50	ffvelrnd 6852	. . . 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 19321	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ (𝐷‘𝐹) ∈ 𝐾) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
56	47, 51, 55	syl2anc 586	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
57		zrhpsgnmhm 20728	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
58	46, 32, 57	syl2anc 586	. . . . . 6 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
59		eqid 2821	. . . . . . . 8 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
60	59, 54	ringidval 19253	. . . . . . 7 ⊢ 1 = (0_g‘(mulGrp‘𝑅))
61	29, 60	mhm0 17964	. . . . . 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 1129	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) = 1 )
64	63	oveq1d 7171	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)) = ( 1 · (𝐷‘𝐹)))
65	34	symgid 18529	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ Fin → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
66	32, 65	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
67	66	3ad2ant1 1129	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
68	67	3ad2ant1 1129	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ( I ↾ 𝑁) = (0_g‘(SymGrp‘𝑁)))
69	68	fveq1d 6672	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
70		simp2 1133	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
71		fvresi 6935	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝑁 → (( I ↾ 𝑁)‘𝑎) = 𝑎)
72	70, 71	syl 17	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = 𝑎)
73	69, 72	eqtr3d 2858	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((0_g‘(SymGrp‘𝑁))‘𝑎) = 𝑎)
74	73	oveq1d 7171	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏) = (𝑎𝐹𝑏))
75	74	mpoeq3dva 7231	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
76		mdetuni.a	. . . . . . . . 9 ⊢ 𝐴 = (𝑁 Mat 𝑅)
77		mdetuni.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐴)
78	76, 52, 77	matbas2i 21031	. . . . . . . 8 ⊢ (𝐹 ∈ 𝐵 → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
79	78	3ad2ant3 1131	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
80		elmapi 8428	. . . . . . 7 ⊢ (𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
81		ffn 6514	. . . . . . 7 ⊢ (𝐹:(𝑁 × 𝑁)⟶𝐾 → 𝐹 Fn (𝑁 × 𝑁))
82	79, 80, 81	3syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 Fn (𝑁 × 𝑁))
83		fnov 7282	. . . . . 6 ⊢ (𝐹 Fn (𝑁 × 𝑁) ↔ 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
84	82, 83	sylib 220	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
85	75, 84	eqtr4d 2859	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = 𝐹)
86	85	fveq2d 6674	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = (𝐷‘𝐹))
87	56, 64, 86	3eqtr4rd 2867	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
88		simp2 1133	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑑 ∈ (Base‘(SymGrp‘𝑁)))
89	39	sseli 3963	. . . . . . . . . . . . 13 ⊢ (𝑒 ∈ ran (pmTrsp‘𝑁) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
90	89	3ad2ant3 1131	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
91	34, 31, 30	symgov 18512	. . . . . . . . . . . 12 ⊢ ((𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
92	88, 90, 91	syl2anc 586	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
93	92	fveq1d 6672	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = ((𝑑 ∘ 𝑒)‘𝑎))
94	93	3ad2ant1 1129	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = ((𝑑 ∘ 𝑒)‘𝑎))
95	34, 31	symgbasf1o 18503	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ (Base‘(SymGrp‘𝑁)) → 𝑒:𝑁–1-1-onto→𝑁)
96		f1of 6615	. . . . . . . . . . . 12 ⊢ (𝑒:𝑁–1-1-onto→𝑁 → 𝑒:𝑁⟶𝑁)
97	90, 95, 96	3syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒:𝑁⟶𝑁)
98	97	3ad2ant1 1129	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑒:𝑁⟶𝑁)
99		simp2 1133	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
100		fvco3 6760	. . . . . . . . . 10 ⊢ ((𝑒:𝑁⟶𝑁 ∧ 𝑎 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
101	98, 99, 100	syl2anc 586	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
102	94, 101	eqtrd 2856	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
103	102	oveq1d 7171	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏) = ((𝑑‘(𝑒‘𝑎))𝐹𝑏))
104	103	mpoeq3dva 7231	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)))
105	104	fveq2d 6674	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))))
106	34, 31	symgbasf 18504	. . . . . 6 ⊢ (𝑑 ∈ (Base‘(SymGrp‘𝑁)) → 𝑑:𝑁⟶𝑁)
107		eqid 2821	. . . . . . . . 9 ⊢ (pmTrsp‘𝑁) = (pmTrsp‘𝑁)
108	107, 38	pmtrrn2 18588	. . . . . . . 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 1208	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝜑)
115		df-3an 1085	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓) ↔ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓))
116	115	biimpri 230	. . . . . . . . . . . . . . 15 ⊢ (((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓))
117	116	adantl 484	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓))
118	79, 80	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
119	118	adantr 483	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
120	119	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
121		simpllr 774	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
122		simprlr 778	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
123	122	adantr 483	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑓 ∈ 𝑁)
124	121, 123	ffvelrnd 6852	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑓) ∈ 𝑁)
125		simpr 487	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
126	120, 124, 125	fovrnd 7320	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾)
127		simprll 777	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
128	127	adantr 483	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑐 ∈ 𝑁)
129	121, 128	ffvelrnd 6852	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑐) ∈ 𝑁)
130	120, 129, 125	fovrnd 7320	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾)
131	126, 130	jca 514	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾 ∧ ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾))
132	118	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
133	132	3ad2ant1 1129	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
134		simp1lr 1233	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
135		simp2 1133	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
136	134, 135	ffvelrnd 6852	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑎) ∈ 𝑁)
137		simp3 1134	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
138	133, 136, 137	fovrnd 7320	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) ∈ 𝐾)
139	76, 77, 52, 109, 54, 110, 53, 32, 46, 48, 111, 112, 113, 114, 117, 131, 138	mdetunilem6 21226	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))))
140		simpl1 1187	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝜑)
141		fveq2 6670	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑐 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐))
142	32	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑁 ∈ Fin)
143		simprll 777	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
144		simprlr 778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
145		simprr 771	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ≠ 𝑓)
146	107	pmtrprfv 18581	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ Fin ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
147	142, 143, 144, 145, 146	syl13anc 1368	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
148	147	adantr 483	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
149	141, 148	sylan9eqr 2878	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑓)
150	149	fveq2d 6674	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑓))
151	150	oveq1d 7171	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
152		iftrue 4473	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
153	152	adantl 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
154	151, 153	eqtr4d 2859	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
155		fveq2 6670	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 = 𝑓 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓))
156		prcom 4668	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ {𝑐, 𝑓} = {𝑓, 𝑐}
157	156	fveq2i 6673	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) = ((pmTrsp‘𝑁)‘{𝑓, 𝑐})
158	157	fveq1i 6671	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓)
159	32	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑁 ∈ Fin)
160		simplrl 775	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁))
161	160	simprd 498	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ∈ 𝑁)
162	160	simpld 497	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ∈ 𝑁)
163		simplrr 776	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ≠ 𝑓)
164	163	necomd 3071	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ≠ 𝑐)
165	107	pmtrprfv 18581	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑁 ∈ Fin ∧ (𝑓 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁 ∧ 𝑓 ≠ 𝑐)) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
166	159, 161, 162, 164, 165	syl13anc 1368	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
167	158, 166	syl5eq 2868	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = 𝑐)
168	155, 167	sylan9eqr 2878	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑐)
169	168	fveq2d 6674	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑐))
170	169	oveq1d 7171	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
171		iftrue 4473	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
172	171	adantl 484	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
173	170, 172	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
174	173	adantlr 713	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
175		vex 3497	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝑎 ∈ V
176	175	elpr 4590	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑎 ∈ {𝑐, 𝑓} ↔ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
177	176	notbii 322	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ 𝑎 ∈ {𝑐, 𝑓} ↔ ¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
178		ioran 980	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓) ↔ (¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓))
179	177, 178	sylbbr 238	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
180	179	adantll 712	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
181		prssi 4754	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
182	160, 181	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
183		pr2ne 9431	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
184	160, 183	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
185	163, 184	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ≈ 2_o)
186	107	pmtrmvd 18584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
187	159, 182, 185, 186	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
188	187	eleq2d 2898	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ 𝑎 ∈ {𝑐, 𝑓}))
189	188	notbid 320	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
190	189	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
191	180, 190	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ))
192	107	pmtrf 18583	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
193	159, 182, 185, 192	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
194	193	ffnd 6515	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁)
195		simpr 487	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑎 ∈ 𝑁)
196		fnelnfp 6939	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) ≠ 𝑎))
197	196	necon2bbid 3059	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
198	194, 195, 197	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
199	198	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
200	191, 199	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎)
201	200	fveq2d 6674	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑎))
202	201	oveq1d 7171	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
203		iffalse 4476	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
204	203	adantl 484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
205	202, 204	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
206	174, 205	pm2.61dan 811	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
207		iffalse 4476	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
208	207	adantl 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
209	206, 208	eqtr4d 2859	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
210	154, 209	pm2.61dan 811	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
211	210	3adant3 1128	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
212	211	mpoeq3dva 7231	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
213	140, 212	sylan 582	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
214	213	fveq2d 6674	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))))
215		fveq2 6670	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = 𝑐 → (𝑑‘𝑎) = (𝑑‘𝑐))
216	215	oveq1d 7171	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
217		iftrue 4473	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑐)𝐹𝑏))
218	216, 217	eqtr4d 2859	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
219		fveq2 6670	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = 𝑓 → (𝑑‘𝑎) = (𝑑‘𝑓))
220	219	oveq1d 7171	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
221		iftrue 4473	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑓)𝐹𝑏))
222	220, 221	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
223	222	adantl 484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
224		iffalse 4476	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
225	224	eqcomd 2827	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
226	225	adantl 484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
227	223, 226	pm2.61dan 811	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
228		iffalse 4476	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
229	227, 228	eqtr4d 2859	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
230	218, 229	pm2.61i 184	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
231	230	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
232	231	mpoeq3ia 7232	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
233	232	fveq2i 6673	. . . . . . . . . . . . . . 15 ⊢ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
234	233	fveq2i 6673	. . . . . . . . . . . . . 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 2866	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
237		fveq1 6669	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑒‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))
238	237	fveq2d 6674	. . . . . . . . . . . . . . 15 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑑‘(𝑒‘𝑎)) = (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)))
239	238	oveq1d 7171	. . . . . . . . . . . . . 14 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝑑‘(𝑒‘𝑎))𝐹𝑏) = ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))
240	239	mpoeq3dv 7233	. . . . . . . . . . . . 13 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)))
241	240	fveqeq2d 6678	. . . . . . . . . . . 12 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
242	236, 241	syl5ibrcom 249	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
243	242	expr 459	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁)) → (𝑐 ≠ 𝑓 → (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))))
244	243	impd 413	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁)) → ((𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
245	244	rexlimdvva 3294	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → (∃𝑐 ∈ 𝑁 ∃𝑓 ∈ 𝑁 (𝑐 ≠ 𝑓 ∧ 𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓})) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
246	108, 245	syl5 34	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → (𝑒 ∈ ran (pmTrsp‘𝑁) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))))
247	246	3impia 1113	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁 ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
248	106, 247	syl3an2 1160	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
249	105, 248	eqtrd 2856	. . . 4 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
250	249	adantr 483	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
251		fveq2 6670	. . . 4 ⊢ ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
252	251	adantl 484	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
253		eqid 2821	. . . . . 6 ⊢ (inv_g‘𝑅) = (inv_g‘𝑅)
254	47	3ad2ant1 1129	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑅 ∈ Ring)
255	58	3ad2ant1 1129	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
256	255	3ad2ant1 1129	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
257	59, 52	mgpbas 19245	. . . . . . . . 9 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
258	31, 257	mhmf 17961	. . . . . . . 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	ffvelrnd 6852	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) ∈ 𝐾)
261	49	3ad2ant1 1129	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐷:𝐵⟶𝐾)
262		simp13 1201	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐹 ∈ 𝐵)
263	261, 262	ffvelrnd 6852	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘𝐹) ∈ 𝐾)
264	52, 53, 253, 254, 260, 263	ringmneg1 19346	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
265	59, 53	mgpplusg 19243	. . . . . . . . 9 ⊢ · = (+_g‘(mulGrp‘𝑅))
266	31, 30, 265	mhmlin 17963	. . . . . . . 8 ⊢ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
267	256, 88, 90, 266	syl3anc 1367	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
268	33	3ad2ant1 1129	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑁 ∈ Fin)
269		simp3 1134	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ran (pmTrsp‘𝑁))
270	34, 31, 38	pmtrodpm 20741	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
271	268, 269, 270	syl2anc 586	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
272		eqid 2821	. . . . . . . . . 10 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
273		eqid 2821	. . . . . . . . . 10 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
274	272, 273, 54, 31, 253	zrhpsgnodpm 20736	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
275	254, 268, 271, 274	syl3anc 1367	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
276	275	oveq2d 7172	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )))
277	52, 53, 54, 253, 254, 260	rngnegr 19345	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )) = ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)))
278	267, 276, 277	3eqtrrd 2861	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
279	278	oveq1d 7171	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
280	264, 279	eqtr3d 2858	. . . 4 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
281	280	adantr 483	. . 3 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
282	250, 252, 281	3eqtrd 2860	. 2 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
283		simp2 1133	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐸:𝑁–1-1-onto→𝑁)
284	34, 31	elsymgbas 18502	. . . 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 259	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐸 ∈ (Base‘(SymGrp‘𝑁)))
287	7, 14, 21, 28, 29, 30, 31, 37, 40, 45, 87, 282, 286	mndind 17992	1 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 398 ∨ wo 843 ∧ w3a 1083 = wceq 1537 ∈ wcel 2114 ≠ wne 3016 ∀wral 3138 ∃wrex 3139 ∖ cdif 3933 ⊆ wss 3936 ifcif 4467 {csn 4567 {cpr 4569 class class class wbr 5066 I cid 5459 × cxp 5553 dom cdm 5555 ran crn 5556 ↾ cres 5557 ∘ ccom 5559 Fn wfn 6350 ⟶wf 6351 –1-1-onto→wf1o 6354 ‘cfv 6355 (class class class)co 7156 ∈ cmpo 7158 ∘_f cof 7407 2_oc2o 8096 ↑_m cmap 8406 ≈ cen 8506 Fincfn 8509 Basecbs 16483 +_gcplusg 16565 ._rcmulr 16566 0_gc0g 16713 mrClscmrc 16854 Mndcmnd 17911 MndHom cmhm 17954 SubMndcsubmnd 17955 Grpcgrp 18103 inv_gcminusg 18104 SymGrpcsymg 18495 pmTrspcpmtr 18569 pmSgncpsgn 18617 pmEvencevpm 18618 mulGrpcmgp 19239 1_rcur 19251 Ringcrg 19297 ℤRHomczrh 20647 Mat cmat 21016

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2793 ax-rep 5190 ax-sep 5203 ax-nul 5210 ax-pow 5266 ax-pr 5330 ax-un 7461 ax-cnex 10593 ax-resscn 10594 ax-1cn 10595 ax-icn 10596 ax-addcl 10597 ax-addrcl 10598 ax-mulcl 10599 ax-mulrcl 10600 ax-mulcom 10601 ax-addass 10602 ax-mulass 10603 ax-distr 10604 ax-i2m1 10605 ax-1ne0 10606 ax-1rid 10607 ax-rnegex 10608 ax-rrecex 10609 ax-cnre 10610 ax-pre-lttri 10611 ax-pre-lttrn 10612 ax-pre-ltadd 10613 ax-pre-mulgt0 10614 ax-addf 10616 ax-mulf 10617

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-xor 1502 df-tru 1540 df-fal 1550 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rmo 3146 df-rab 3147 df-v 3496 df-sbc 3773 df-csb 3884 df-dif 3939 df-un 3941 df-in 3943 df-ss 3952 df-pss 3954 df-nul 4292 df-if 4468 df-pw 4541 df-sn 4568 df-pr 4570 df-tp 4572 df-op 4574 df-ot 4576 df-uni 4839 df-int 4877 df-iun 4921 df-iin 4922 df-br 5067 df-opab 5129 df-mpt 5147 df-tr 5173 df-id 5460 df-eprel 5465 df-po 5474 df-so 5475 df-fr 5514 df-se 5515 df-we 5516 df-xp 5561 df-rel 5562 df-cnv 5563 df-co 5564 df-dm 5565 df-rn 5566 df-res 5567 df-ima 5568 df-pred 6148 df-ord 6194 df-on 6195 df-lim 6196 df-suc 6197 df-iota 6314 df-fun 6357 df-fn 6358 df-f 6359 df-f1 6360 df-fo 6361 df-f1o 6362 df-fv 6363 df-isom 6364 df-riota 7114 df-ov 7159 df-oprab 7160 df-mpo 7161 df-of 7409 df-om 7581 df-1st 7689 df-2nd 7690 df-supp 7831 df-tpos 7892 df-wrecs 7947 df-recs 8008 df-rdg 8046 df-1o 8102 df-2o 8103 df-oadd 8106 df-er 8289 df-map 8408 df-ixp 8462 df-en 8510 df-dom 8511 df-sdom 8512 df-fin 8513 df-fsupp 8834 df-sup 8906 df-card 9368 df-pnf 10677 df-mnf 10678 df-xr 10679 df-ltxr 10680 df-le 10681 df-sub 10872 df-neg 10873 df-div 11298 df-nn 11639 df-2 11701 df-3 11702 df-4 11703 df-5 11704 df-6 11705 df-7 11706 df-8 11707 df-9 11708 df-n0 11899 df-xnn0 11969 df-z 11983 df-dec 12100 df-uz 12245 df-rp 12391 df-fz 12894 df-fzo 13035 df-seq 13371 df-exp 13431 df-hash 13692 df-word 13863 df-lsw 13915 df-concat 13923 df-s1 13950 df-substr 14003 df-pfx 14033 df-splice 14112 df-reverse 14121 df-s2 14210 df-struct 16485 df-ndx 16486 df-slot 16487 df-base 16489 df-sets 16490 df-ress 16491 df-plusg 16578 df-mulr 16579 df-starv 16580 df-sca 16581 df-vsca 16582 df-ip 16583 df-tset 16584 df-ple 16585 df-ds 16587 df-unif 16588 df-hom 16589 df-cco 16590 df-0g 16715 df-gsum 16716 df-prds 16721 df-pws 16723 df-mre 16857 df-mrc 16858 df-acs 16860 df-mgm 17852 df-sgrp 17901 df-mnd 17912 df-mhm 17956 df-submnd 17957 df-efmnd 18034 df-grp 18106 df-minusg 18107 df-mulg 18225 df-subg 18276 df-ghm 18356 df-gim 18399 df-oppg 18474 df-symg 18496 df-pmtr 18570 df-psgn 18619 df-evpm 18620 df-cmn 18908 df-abl 18909 df-mgp 19240 df-ur 19252 df-ring 19299 df-cring 19300 df-oppr 19373 df-dvdsr 19391 df-unit 19392 df-invr 19422 df-dvr 19433 df-rnghom 19467 df-drng 19504 df-subrg 19533 df-sra 19944 df-rgmod 19945 df-cnfld 20546 df-zring 20618 df-zrh 20651 df-dsmm 20876 df-frlm 20891 df-mat 21017

This theorem is referenced by: mdetunilem8 21228

W3C validator