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 22645

Description: Lemma for mdetuni 22649. (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 6919	. . . . . 6 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
2	1	oveq1d 7463	. . . . 5 ⊢ (𝑐 = 𝑑 → ((𝑐‘𝑎)𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
3	2	mpoeq3dv 7529	. . . 4 ⊢ (𝑐 = 𝑑 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))
4	3	fveq2d 6924	. . 3 ⊢ (𝑐 = 𝑑 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))))
5		fveq2 6920	. . . 4 ⊢ (𝑐 = 𝑑 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑))
6	5	oveq1d 7463	. . 3 ⊢ (𝑐 = 𝑑 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹)))
7	4, 6	eqeq12d 2756	. 2 ⊢ (𝑐 = 𝑑 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
8		fveq1 6919	. . . . . 6 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑐‘𝑎) = ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎))
9	8	oveq1d 7463	. . . . 5 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝑐‘𝑎)𝐹𝑏) = (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))
10	9	mpoeq3dv 7529	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)))
11	10	fveq2d 6924	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))))
12		fveq2 6920	. . . 4 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
13	12	oveq1d 7463	. . 3 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
14	11, 13	eqeq12d 2756	. 2 ⊢ (𝑐 = (𝑑(+_g‘(SymGrp‘𝑁))𝑒) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹))))
15		fveq1 6919	. . . . . 6 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑐‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
16	15	oveq1d 7463	. . . . 5 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝑐‘𝑎)𝐹𝑏) = (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))
17	16	mpoeq3dv 7529	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)))
18	17	fveq2d 6924	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))))
19		fveq2 6920	. . . 4 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))))
20	19	oveq1d 7463	. . 3 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)))
21	18, 20	eqeq12d 2756	. 2 ⊢ (𝑐 = (0_g‘(SymGrp‘𝑁)) → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹))))
22		fveq1 6919	. . . . . 6 ⊢ (𝑐 = 𝐸 → (𝑐‘𝑎) = (𝐸‘𝑎))
23	22	oveq1d 7463	. . . . 5 ⊢ (𝑐 = 𝐸 → ((𝑐‘𝑎)𝐹𝑏) = ((𝐸‘𝑎)𝐹𝑏))
24	23	mpoeq3dv 7529	. . . 4 ⊢ (𝑐 = 𝐸 → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏)))
25	24	fveq2d 6924	. . 3 ⊢ (𝑐 = 𝐸 → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))))
26		fveq2 6920	. . . 4 ⊢ (𝑐 = 𝐸 → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸))
27	26	oveq1d 7463	. . 3 ⊢ (𝑐 = 𝐸 → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))
28	25, 27	eqeq12d 2756	. 2 ⊢ (𝑐 = 𝐸 → ((𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑐‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑐) · (𝐷‘𝐹)) ↔ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹))))
29		eqid 2740	. 2 ⊢ (0_g‘(SymGrp‘𝑁)) = (0_g‘(SymGrp‘𝑁))
30		eqid 2740	. 2 ⊢ (+_g‘(SymGrp‘𝑁)) = (+_g‘(SymGrp‘𝑁))
31		eqid 2740	. 2 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
32		mdetuni.n	. . . 4 ⊢ (𝜑 → 𝑁 ∈ Fin)
33	32	3ad2ant1 1133	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝑁 ∈ Fin)
34		eqid 2740	. . . 4 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
35	34	symggrp 19442	. . 3 ⊢ (𝑁 ∈ Fin → (SymGrp‘𝑁) ∈ Grp)
36		grpmnd 18980	. . 3 ⊢ ((SymGrp‘𝑁) ∈ Grp → (SymGrp‘𝑁) ∈ Mnd)
37	33, 35, 36	3syl 18	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (SymGrp‘𝑁) ∈ Mnd)
38		eqid 2740	. . . 4 ⊢ ran (pmTrsp‘𝑁) = ran (pmTrsp‘𝑁)
39	38, 34, 31	symgtrf 19511	. . 3 ⊢ ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁))
40	39	a1i 11	. 2 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ran (pmTrsp‘𝑁) ⊆ (Base‘(SymGrp‘𝑁)))
41		eqid 2740	. . . . . 6 ⊢ (mrCls‘(SubMnd‘(SymGrp‘𝑁))) = (mrCls‘(SubMnd‘(SymGrp‘𝑁)))
42	38, 34, 31, 41	symggen2 19513	. . . . 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 2746	. . 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 7119	. . . 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 20292	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ (𝐷‘𝐹) ∈ 𝐾) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
56	47, 51, 55	syl2anc 583	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ( 1 · (𝐷‘𝐹)) = (𝐷‘𝐹))
57		zrhpsgnmhm 21625	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
58	46, 32, 57	syl2anc 583	. . . . . 6 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
59		eqid 2740	. . . . . . . 8 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
60	59, 54	ringidval 20210	. . . . . . 7 ⊢ 1 = (0_g‘(mulGrp‘𝑅))
61	29, 60	mhm0 18829	. . . . . 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 7463	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(0_g‘(SymGrp‘𝑁))) · (𝐷‘𝐹)) = ( 1 · (𝐷‘𝐹)))
65	34	symgid 19443	. . . . . . . . . . . 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 6922	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = ((0_g‘(SymGrp‘𝑁))‘𝑎))
70		simp2 1137	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
71		fvresi 7207	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝑁 → (( I ↾ 𝑁)‘𝑎) = 𝑎)
72	70, 71	syl 17	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (( I ↾ 𝑁)‘𝑎) = 𝑎)
73	69, 72	eqtr3d 2782	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((0_g‘(SymGrp‘𝑁))‘𝑎) = 𝑎)
74	73	oveq1d 7463	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏) = (𝑎𝐹𝑏))
75	74	mpoeq3dva 7527	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
76		mdetuni.a	. . . . . . . . 9 ⊢ 𝐴 = (𝑁 Mat 𝑅)
77		mdetuni.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐴)
78	76, 52, 77	matbas2i 22449	. . . . . . . 8 ⊢ (𝐹 ∈ 𝐵 → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
79	78	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
80		elmapi 8907	. . . . . . 7 ⊢ (𝐹 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
81		ffn 6747	. . . . . . 7 ⊢ (𝐹:(𝑁 × 𝑁)⟶𝐾 → 𝐹 Fn (𝑁 × 𝑁))
82	79, 80, 81	3syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 Fn (𝑁 × 𝑁))
83		fnov 7581	. . . . . 6 ⊢ (𝐹 Fn (𝑁 × 𝑁) ↔ 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
84	82, 83	sylib 218	. . . . 5 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → 𝐹 = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (𝑎𝐹𝑏)))
85	75, 84	eqtr4d 2783	. . . 4 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏)) = 𝐹)
86	85	fveq2d 6924	. . 3 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((0_g‘(SymGrp‘𝑁))‘𝑎)𝐹𝑏))) = (𝐷‘𝐹))
87	56, 64, 86	3eqtr4rd 2791	. 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 4004	. . . . . . . . . . . . 13 ⊢ (𝑒 ∈ ran (pmTrsp‘𝑁) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
90	89	3ad2ant3 1135	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ (Base‘(SymGrp‘𝑁)))
91	34, 31, 30	symgov 19425	. . . . . . . . . . . 12 ⊢ ((𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
92	88, 90, 91	syl2anc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑑(+_g‘(SymGrp‘𝑁))𝑒) = (𝑑 ∘ 𝑒))
93	92	fveq1d 6922	. . . . . . . . . 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 19416	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ (Base‘(SymGrp‘𝑁)) → 𝑒:𝑁–1-1-onto→𝑁)
96		f1of 6862	. . . . . . . . . . . 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 7021	. . . . . . . . . 10 ⊢ ((𝑒:𝑁⟶𝑁 ∧ 𝑎 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
101	98, 99, 100	syl2anc 583	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑 ∘ 𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
102	94, 101	eqtrd 2780	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎) = (𝑑‘(𝑒‘𝑎)))
103	102	oveq1d 7463	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏) = ((𝑑‘(𝑒‘𝑎))𝐹𝑏))
104	103	mpoeq3dva 7527	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)))
105	104	fveq2d 6924	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ (((𝑑(+_g‘(SymGrp‘𝑁))𝑒)‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏))))
106	34, 31	symgbasf 19417	. . . . . 6 ⊢ (𝑑 ∈ (Base‘(SymGrp‘𝑁)) → 𝑑:𝑁⟶𝑁)
107		eqid 2740	. . . . . . . . 9 ⊢ (pmTrsp‘𝑁) = (pmTrsp‘𝑁)
108	107, 38	pmtrrn2 19502	. . . . . . . 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 1212	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝜑)
115		df-3an 1089	. . . . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . 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 7119	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑓) ∈ 𝑁)
125		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
126	120, 124, 125	fovcdmd 7622	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾)
127		simprll 778	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
128	127	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → 𝑐 ∈ 𝑁)
129	121, 128	ffvelcdmd 7119	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑐) ∈ 𝑁)
130	120, 129, 125	fovcdmd 7622	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾)
131	126, 130	jca 511	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑏 ∈ 𝑁) → (((𝑑‘𝑓)𝐹𝑏) ∈ 𝐾 ∧ ((𝑑‘𝑐)𝐹𝑏) ∈ 𝐾))
132	118	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
133	132	3ad2ant1 1133	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝐹:(𝑁 × 𝑁)⟶𝐾)
134		simp1lr 1237	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑑:𝑁⟶𝑁)
135		simp2 1137	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁)
136	134, 135	ffvelcdmd 7119	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑑‘𝑎) ∈ 𝑁)
137		simp3 1138	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁)
138	133, 136, 137	fovcdmd 7622	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) ∈ 𝐾)
139	76, 77, 52, 109, 54, 110, 53, 32, 46, 48, 111, 112, 113, 114, 117, 131, 138	mdetunilem6 22644	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))))
140		simpl1 1191	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) → 𝜑)
141		fveq2 6920	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑐 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐))
142	32	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑁 ∈ Fin)
143		simprll 778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ∈ 𝑁)
144		simprlr 779	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑓 ∈ 𝑁)
145		simprr 772	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → 𝑐 ≠ 𝑓)
146	107	pmtrprfv 19495	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ Fin ∧ (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁 ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
147	142, 143, 144, 145, 146	syl13anc 1372	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
148	147	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑐) = 𝑓)
149	141, 148	sylan9eqr 2802	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑓)
150	149	fveq2d 6924	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑓))
151	150	oveq1d 7463	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
152		iftrue 4554	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
153	152	adantl 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑓)𝐹𝑏))
154	151, 153	eqtr4d 2783	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
155		fveq2 6920	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 = 𝑓 → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓))
156		prcom 4757	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ {𝑐, 𝑓} = {𝑓, 𝑐}
157	156	fveq2i 6923	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) = ((pmTrsp‘𝑁)‘{𝑓, 𝑐})
158	157	fveq1i 6921	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓)
159	32	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑁 ∈ Fin)
160		simplrl 776	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁))
161	160	simprd 495	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ∈ 𝑁)
162	160	simpld 494	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ∈ 𝑁)
163		simplrr 777	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑐 ≠ 𝑓)
164	163	necomd 3002	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑓 ≠ 𝑐)
165	107	pmtrprfv 19495	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑁 ∈ Fin ∧ (𝑓 ∈ 𝑁 ∧ 𝑐 ∈ 𝑁 ∧ 𝑓 ≠ 𝑐)) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
166	159, 161, 162, 164, 165	syl13anc 1372	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑓, 𝑐})‘𝑓) = 𝑐)
167	158, 166	eqtrid 2792	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑓) = 𝑐)
168	155, 167	sylan9eqr 2802	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑐)
169	168	fveq2d 6924	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑐))
170	169	oveq1d 7463	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
171		iftrue 4554	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
172	171	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑐)𝐹𝑏))
173	170, 172	eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
174	173	adantlr 714	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
175		vex 3492	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ 𝑎 ∈ V
176	175	elpr 4672	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑎 ∈ {𝑐, 𝑓} ↔ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
177	176	notbii 320	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ 𝑎 ∈ {𝑐, 𝑓} ↔ ¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓))
178		ioran 984	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (¬ (𝑎 = 𝑐 ∨ 𝑎 = 𝑓) ↔ (¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓))
179	177, 178	sylbbr 236	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
180	179	adantll 713	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ {𝑐, 𝑓})
181		prssi 4846	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
182	160, 181	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ⊆ 𝑁)
183		pr2ne 10073	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
184	160, 183	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ({𝑐, 𝑓} ≈ 2_o ↔ 𝑐 ≠ 𝑓))
185	163, 184	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → {𝑐, 𝑓} ≈ 2_o)
186	107	pmtrmvd 19498	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
187	159, 182, 185, 186	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) = {𝑐, 𝑓})
188	187	eleq2d 2830	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ 𝑎 ∈ {𝑐, 𝑓}))
189	188	notbid 318	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
190	189	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ ¬ 𝑎 ∈ {𝑐, 𝑓}))
191	180, 190	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ))
192	107	pmtrf 19497	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝑁 ∈ Fin ∧ {𝑐, 𝑓} ⊆ 𝑁 ∧ {𝑐, 𝑓} ≈ 2_o) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
193	159, 182, 185, 192	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}):𝑁⟶𝑁)
194	193	ffnd 6748	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁)
195		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → 𝑎 ∈ 𝑁)
196		fnelnfp 7211	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → (𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I ) ↔ (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) ≠ 𝑎))
197	196	necon2bbid 2990	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((pmTrsp‘𝑁)‘{𝑐, 𝑓}) Fn 𝑁 ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
198	194, 195, 197	syl2anc 583	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
199	198	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎 ↔ ¬ 𝑎 ∈ dom (((pmTrsp‘𝑁)‘{𝑐, 𝑓}) ∖ I )))
200	191, 199	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎) = 𝑎)
201	200	fveq2d 6924	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)) = (𝑑‘𝑎))
202	201	oveq1d 7463	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = ((𝑑‘𝑎)𝐹𝑏))
203		iffalse 4557	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
204	203	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
205	202, 204	eqtr4d 2783	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
206	174, 205	pm2.61dan 812	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
207		iffalse 4557	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
208	207	adantl 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) ∧ 𝑎 ∈ 𝑁) ∧ ¬ 𝑎 = 𝑐) → if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
209	206, 208	eqtr4d 2783	. . . . . . . . . . . . . . . . . 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 7527	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
213	140, 212	sylan 579	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
214	213	fveq2d 6924	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑓)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑐)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))))
215		fveq2 6920	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = 𝑐 → (𝑑‘𝑎) = (𝑑‘𝑐))
216	215	oveq1d 7463	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑐)𝐹𝑏))
217		iftrue 4554	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = ((𝑑‘𝑐)𝐹𝑏))
218	216, 217	eqtr4d 2783	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
219		fveq2 6920	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = 𝑓 → (𝑑‘𝑎) = (𝑑‘𝑓))
220	219	oveq1d 7463	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = ((𝑑‘𝑓)𝐹𝑏))
221		iftrue 4554	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑓)𝐹𝑏))
222	220, 221	eqtr4d 2783	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
223	222	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
224		iffalse 4557	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (¬ 𝑎 = 𝑓 → if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)) = ((𝑑‘𝑎)𝐹𝑏))
225	224	eqcomd 2746	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑎 = 𝑓 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
226	225	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((¬ 𝑎 = 𝑐 ∧ ¬ 𝑎 = 𝑓) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
227	223, 226	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
228		iffalse 4557	. . . . . . . . . . . . . . . . . . . 20 ⊢ (¬ 𝑎 = 𝑐 → if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))) = if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
229	227, 228	eqtr4d 2783	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ 𝑎 = 𝑐 → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
230	218, 229	pm2.61i 182	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))
231	230	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑑‘𝑎)𝐹𝑏) = if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
232	231	mpoeq3ia 7528	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏))))
233	232	fveq2i 6923	. . . . . . . . . . . . . . 15 ⊢ (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏))) = (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑐, ((𝑑‘𝑐)𝐹𝑏), if(𝑎 = 𝑓, ((𝑑‘𝑓)𝐹𝑏), ((𝑑‘𝑎)𝐹𝑏)))))
234	233	fveq2i 6923	. . . . . . . . . . . . . 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 2790	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑:𝑁⟶𝑁) ∧ ((𝑐 ∈ 𝑁 ∧ 𝑓 ∈ 𝑁) ∧ 𝑐 ≠ 𝑓)) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))) = ((inv_g‘𝑅)‘(𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘𝑎)𝐹𝑏)))))
237		fveq1 6919	. . . . . . . . . . . . . . . 16 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑒‘𝑎) = (((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))
238	237	fveq2d 6924	. . . . . . . . . . . . . . 15 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑑‘(𝑒‘𝑎)) = (𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎)))
239	238	oveq1d 7463	. . . . . . . . . . . . . 14 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → ((𝑑‘(𝑒‘𝑎))𝐹𝑏) = ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏))
240	239	mpoeq3dv 7529	. . . . . . . . . . . . 13 ⊢ (𝑒 = ((pmTrsp‘𝑁)‘{𝑐, 𝑓}) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(𝑒‘𝑎))𝐹𝑏)) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝑑‘(((pmTrsp‘𝑁)‘{𝑐, 𝑓})‘𝑎))𝐹𝑏)))
241	240	fveqeq2d 6928	. . . . . . . . . . . 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 3219	. . . . . . . 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 2780	. . . 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 6920	. . . 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 2740	. . . . . 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 20167	. . . . . . . . 9 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
258	31, 257	mhmf 18824	. . . . . . . 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 7119	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) ∈ 𝐾)
261	49	3ad2ant1 1133	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐷:𝐵⟶𝐾)
262		simp13 1205	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝐹 ∈ 𝐵)
263	261, 262	ffvelcdmd 7119	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (𝐷‘𝐹) ∈ 𝐾)
264	52, 53, 253, 254, 260, 263	ringmneg1 20327	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((inv_g‘𝑅)‘((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (𝐷‘𝐹))))
265	59, 53	mgpplusg 20165	. . . . . . . . 9 ⊢ · = (+_g‘(mulGrp‘𝑅))
266	31, 30, 265	mhmlin 18828	. . . . . . . 8 ⊢ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒)))
267	256, 88, 90, 266	syl3anc 1371	. . . . . . 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 21638	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
271	268, 269, 270	syl2anc 583	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁)))
272		eqid 2740	. . . . . . . . . 10 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
273		eqid 2740	. . . . . . . . . 10 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
274	272, 273, 54, 31, 253	zrhpsgnodpm 21633	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ 𝑒 ∈ ((Base‘(SymGrp‘𝑁)) ∖ (pmEven‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
275	254, 268, 271, 274	syl3anc 1371	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑒) = ((inv_g‘𝑅)‘ 1 ))
276	275	oveq2d 7464	. . . . . . 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 20326	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑) · ((inv_g‘𝑅)‘ 1 )) = ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)))
278	267, 276, 277	3eqtrrd 2785	. . . . . 6 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → ((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)))
279	278	oveq1d 7463	. . . . 5 ⊢ (((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) ∧ 𝑑 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑒 ∈ ran (pmTrsp‘𝑁)) → (((inv_g‘𝑅)‘(((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑑)) · (𝐷‘𝐹)) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘(𝑑(+_g‘(SymGrp‘𝑁))𝑒)) · (𝐷‘𝐹)))
280	264, 279	eqtr3d 2782	. . . 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 2784	. 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 19415	. . . 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 18863	1 ⊢ ((𝜑 ∧ 𝐸:𝑁–1-1-onto→𝑁 ∧ 𝐹 ∈ 𝐵) → (𝐷‘(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ ((𝐸‘𝑎)𝐹𝑏))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝐸) · (𝐷‘𝐹)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 846 ∧ w3a 1087 = wceq 1537 ∈ wcel 2108 ≠ wne 2946 ∀wral 3067 ∃wrex 3076 ∖ cdif 3973 ⊆ wss 3976 ifcif 4548 {csn 4648 {cpr 4650 class class class wbr 5166 I cid 5592 × cxp 5698 dom cdm 5700 ran crn 5701 ↾ cres 5702 ∘ ccom 5704 Fn wfn 6568 ⟶wf 6569 –1-1-onto→wf1o 6572 ‘cfv 6573 (class class class)co 7448 ∈ cmpo 7450 ∘_f cof 7712 2_oc2o 8516 ↑_m cmap 8884 ≈ cen 9000 Fincfn 9003 Basecbs 17258 +_gcplusg 17311 ._rcmulr 17312 0_gc0g 17499 mrClscmrc 17641 Mndcmnd 18772 MndHom cmhm 18816 SubMndcsubmnd 18817 Grpcgrp 18973 inv_gcminusg 18974 SymGrpcsymg 19410 pmTrspcpmtr 19483 pmSgncpsgn 19531 pmEvencevpm 19532 mulGrpcmgp 20161 1_rcur 20208 Ringcrg 20260 ℤRHomczrh 21533 Mat cmat 22432

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1793 ax-4 1807 ax-5 1909 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2158 ax-12 2178 ax-ext 2711 ax-rep 5303 ax-sep 5317 ax-nul 5324 ax-pow 5383 ax-pr 5447 ax-un 7770 ax-cnex 11240 ax-resscn 11241 ax-1cn 11242 ax-icn 11243 ax-addcl 11244 ax-addrcl 11245 ax-mulcl 11246 ax-mulrcl 11247 ax-mulcom 11248 ax-addass 11249 ax-mulass 11250 ax-distr 11251 ax-i2m1 11252 ax-1ne0 11253 ax-1rid 11254 ax-rnegex 11255 ax-rrecex 11256 ax-cnre 11257 ax-pre-lttri 11258 ax-pre-lttrn 11259 ax-pre-ltadd 11260 ax-pre-mulgt0 11261 ax-addf 11263 ax-mulf 11264

This theorem depends on definitions: df-bi 207 df-an 396 df-or 847 df-3or 1088 df-3an 1089 df-xor 1509 df-tru 1540 df-fal 1550 df-ex 1778 df-nf 1782 df-sb 2065 df-mo 2543 df-eu 2572 df-clab 2718 df-cleq 2732 df-clel 2819 df-nfc 2895 df-ne 2947 df-nel 3053 df-ral 3068 df-rex 3077 df-rmo 3388 df-reu 3389 df-rab 3444 df-v 3490 df-sbc 3805 df-csb 3922 df-dif 3979 df-un 3981 df-in 3983 df-ss 3993 df-pss 3996 df-nul 4353 df-if 4549 df-pw 4624 df-sn 4649 df-pr 4651 df-tp 4653 df-op 4655 df-ot 4657 df-uni 4932 df-int 4971 df-iun 5017 df-iin 5018 df-br 5167 df-opab 5229 df-mpt 5250 df-tr 5284 df-id 5593 df-eprel 5599 df-po 5607 df-so 5608 df-fr 5652 df-se 5653 df-we 5654 df-xp 5706 df-rel 5707 df-cnv 5708 df-co 5709 df-dm 5710 df-rn 5711 df-res 5712 df-ima 5713 df-pred 6332 df-ord 6398 df-on 6399 df-lim 6400 df-suc 6401 df-iota 6525 df-fun 6575 df-fn 6576 df-f 6577 df-f1 6578 df-fo 6579 df-f1o 6580 df-fv 6581 df-isom 6582 df-riota 7404 df-ov 7451 df-oprab 7452 df-mpo 7453 df-of 7714 df-om 7904 df-1st 8030 df-2nd 8031 df-supp 8202 df-tpos 8267 df-frecs 8322 df-wrecs 8353 df-recs 8427 df-rdg 8466 df-1o 8522 df-2o 8523 df-er 8763 df-map 8886 df-ixp 8956 df-en 9004 df-dom 9005 df-sdom 9006 df-fin 9007 df-fsupp 9432 df-sup 9511 df-card 10008 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11522 df-neg 11523 df-div 11948 df-nn 12294 df-2 12356 df-3 12357 df-4 12358 df-5 12359 df-6 12360 df-7 12361 df-8 12362 df-9 12363 df-n0 12554 df-xnn0 12626 df-z 12640 df-dec 12759 df-uz 12904 df-rp 13058 df-fz 13568 df-fzo 13712 df-seq 14053 df-exp 14113 df-hash 14380 df-word 14563 df-lsw 14611 df-concat 14619 df-s1 14644 df-substr 14689 df-pfx 14719 df-splice 14798 df-reverse 14807 df-s2 14897 df-struct 17194 df-sets 17211 df-slot 17229 df-ndx 17241 df-base 17259 df-ress 17288 df-plusg 17324 df-mulr 17325 df-starv 17326 df-sca 17327 df-vsca 17328 df-ip 17329 df-tset 17330 df-ple 17331 df-ds 17333 df-unif 17334 df-hom 17335 df-cco 17336 df-0g 17501 df-gsum 17502 df-prds 17507 df-pws 17509 df-mre 17644 df-mrc 17645 df-acs 17647 df-mgm 18678 df-sgrp 18757 df-mnd 18773 df-mhm 18818 df-submnd 18819 df-efmnd 18904 df-grp 18976 df-minusg 18977 df-mulg 19108 df-subg 19163 df-ghm 19253 df-gim 19299 df-oppg 19386 df-symg 19411 df-pmtr 19484 df-psgn 19533 df-evpm 19534 df-cmn 19824 df-abl 19825 df-mgp 20162 df-rng 20180 df-ur 20209 df-ring 20262 df-cring 20263 df-oppr 20360 df-dvdsr 20383 df-unit 20384 df-invr 20414 df-dvr 20427 df-rhm 20498 df-subrng 20572 df-subrg 20597 df-drng 20753 df-sra 21195 df-rgmod 21196 df-cnfld 21388 df-zring 21481 df-zrh 21537 df-dsmm 21775 df-frlm 21790 df-mat 22433

This theorem is referenced by: mdetunilem8 22646

W3C validator