swapfcoa - Mathbox for Zhi Wang

	Mathbox for Zhi Wang		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > swapfcoa		Structured version Visualization version GIF version

Theorem swapfcoa 49313

Description: Composition in the source category is mapped to composition in the target. (𝜑 → 𝐶 ∈ Cat) and (𝜑 → 𝐷 ∈ Cat) can be replaced by a weaker hypothesis (𝜑 → 𝑆 ∈ Cat). (Contributed by Zhi Wang, 8-Oct-2025.)

**Hypotheses**
Ref	Expression
swapfid.c	⊢ (𝜑 → 𝐶 ∈ Cat)
swapfid.d	⊢ (𝜑 → 𝐷 ∈ Cat)
swapfid.s	⊢ 𝑆 = (𝐶 ×_c 𝐷)
swapfid.t	⊢ 𝑇 = (𝐷 ×_c 𝐶)
swapfid.o	⊢ (𝜑 → (𝐶 swap_F 𝐷) = ⟨𝑂, 𝑃⟩)
swapfida.b	⊢ 𝐵 = (Base‘𝑆)
swapfida.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
swapfcoa.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
swapfcoa.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
swapfcoa.h	⊢ 𝐻 = (Hom ‘𝑆)
swapfcoa.m	⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
swapfcoa.n	⊢ (𝜑 → 𝑁 ∈ (𝑌𝐻𝑍))
swapfcoa.os	⊢ · = (comp‘𝑆)
swapfcoa.ot	⊢ ∙ = (comp‘𝑇)

**Assertion**
Ref	Expression
swapfcoa	⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝑃𝑍)‘𝑁)(⟨(𝑂‘𝑋), (𝑂‘𝑌)⟩ ∙ (𝑂‘𝑍))((𝑋𝑃𝑌)‘𝑀)))

**Proof of Theorem swapfcoa**
Step	Hyp	Ref	Expression
1		swapfid.o	. . . . . . . . 9 ⊢ (𝜑 → (𝐶 swap_F 𝐷) = ⟨𝑂, 𝑃⟩)
2		swapfid.s	. . . . . . . . 9 ⊢ 𝑆 = (𝐶 ×_c 𝐷)
3		swapfida.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑆)
4		swapfida.x	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
5	1, 2, 3, 4	swapf1a 49301	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑋) = ⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩)
6	5	fveq2d 6821	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
7		fvex 6830	. . . . . . . 8 ⊢ (2^nd ‘𝑋) ∈ V
8		fvex 6830	. . . . . . . 8 ⊢ (1^st ‘𝑋) ∈ V
9	7, 8	op1st 7924	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (2^nd ‘𝑋)
10	6, 9	eqtrdi 2782	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (2^nd ‘𝑋))
11		swapfcoa.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
12	1, 2, 3, 11	swapf1a 49301	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑌) = ⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩)
13	12	fveq2d 6821	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
14		fvex 6830	. . . . . . . 8 ⊢ (2^nd ‘𝑌) ∈ V
15		fvex 6830	. . . . . . . 8 ⊢ (1^st ‘𝑌) ∈ V
16	14, 15	op1st 7924	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (2^nd ‘𝑌)
17	13, 16	eqtrdi 2782	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (2^nd ‘𝑌))
18	10, 17	opeq12d 4828	. . . . 5 ⊢ (𝜑 → ⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩ = ⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩)
19		swapfcoa.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
20	1, 2, 3, 19	swapf1a 49301	. . . . . . 7 ⊢ (𝜑 → (𝑂‘𝑍) = ⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩)
21	20	fveq2d 6821	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
22		fvex 6830	. . . . . . 7 ⊢ (2^nd ‘𝑍) ∈ V
23		fvex 6830	. . . . . . 7 ⊢ (1^st ‘𝑍) ∈ V
24	22, 23	op1st 7924	. . . . . 6 ⊢ (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (2^nd ‘𝑍)
25	21, 24	eqtrdi 2782	. . . . 5 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (2^nd ‘𝑍))
26	18, 25	oveq12d 7359	. . . 4 ⊢ (𝜑 → (⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩(comp‘𝐷)(1^st ‘(𝑂‘𝑍))) = (⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍)))
27		swapfcoa.h	. . . . . . . 8 ⊢ 𝐻 = (Hom ‘𝑆)
28	27	a1i 11	. . . . . . 7 ⊢ (𝜑 → 𝐻 = (Hom ‘𝑆))
29		swapfcoa.n	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ (𝑌𝐻𝑍))
30	1, 2, 3, 11, 19, 28, 29	swapf2a 49303	. . . . . 6 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) = ⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩)
31	30	fveq2d 6821	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
32		fvex 6830	. . . . . 6 ⊢ (2^nd ‘𝑁) ∈ V
33		fvex 6830	. . . . . 6 ⊢ (1^st ‘𝑁) ∈ V
34	32, 33	op1st 7924	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (2^nd ‘𝑁)
35	31, 34	eqtrdi 2782	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘𝑁))
36		swapfcoa.m	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
37	1, 2, 3, 4, 11, 28, 36	swapf2a 49303	. . . . . 6 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) = ⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩)
38	37	fveq2d 6821	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
39		fvex 6830	. . . . . 6 ⊢ (2^nd ‘𝑀) ∈ V
40		fvex 6830	. . . . . 6 ⊢ (1^st ‘𝑀) ∈ V
41	39, 40	op1st 7924	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (2^nd ‘𝑀)
42	38, 41	eqtrdi 2782	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘𝑀))
43	26, 35, 42	oveq123d 7362	. . 3 ⊢ (𝜑 → ((1^st ‘((𝑌𝑃𝑍)‘𝑁))(⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩(comp‘𝐷)(1^st ‘(𝑂‘𝑍)))(1^st ‘((𝑋𝑃𝑌)‘𝑀))) = ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)))
44	5	fveq2d 6821	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
45	7, 8	op2nd 7925	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (1^st ‘𝑋)
46	44, 45	eqtrdi 2782	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (1^st ‘𝑋))
47	12	fveq2d 6821	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
48	14, 15	op2nd 7925	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (1^st ‘𝑌)
49	47, 48	eqtrdi 2782	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (1^st ‘𝑌))
50	46, 49	opeq12d 4828	. . . . 5 ⊢ (𝜑 → ⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩ = ⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩)
51	20	fveq2d 6821	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
52	22, 23	op2nd 7925	. . . . . 6 ⊢ (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (1^st ‘𝑍)
53	51, 52	eqtrdi 2782	. . . . 5 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (1^st ‘𝑍))
54	50, 53	oveq12d 7359	. . . 4 ⊢ (𝜑 → (⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍))) = (⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍)))
55	30	fveq2d 6821	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
56	32, 33	op2nd 7925	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (1^st ‘𝑁)
57	55, 56	eqtrdi 2782	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘𝑁))
58	37	fveq2d 6821	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
59	39, 40	op2nd 7925	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (1^st ‘𝑀)
60	58, 59	eqtrdi 2782	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘𝑀))
61	54, 57, 60	oveq123d 7362	. . 3 ⊢ (𝜑 → ((2^nd ‘((𝑌𝑃𝑍)‘𝑁))(⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍)))(2^nd ‘((𝑋𝑃𝑌)‘𝑀))) = ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)))
62	43, 61	opeq12d 4828	. 2 ⊢ (𝜑 → ⟨((1^st ‘((𝑌𝑃𝑍)‘𝑁))(⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩(comp‘𝐷)(1^st ‘(𝑂‘𝑍)))(1^st ‘((𝑋𝑃𝑌)‘𝑀))), ((2^nd ‘((𝑌𝑃𝑍)‘𝑁))(⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍)))(2^nd ‘((𝑋𝑃𝑌)‘𝑀)))⟩ = ⟨((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)), ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀))⟩)
63		swapfid.t	. . 3 ⊢ 𝑇 = (𝐷 ×_c 𝐶)
64		eqid 2731	. . 3 ⊢ (Base‘𝑇) = (Base‘𝑇)
65		eqid 2731	. . 3 ⊢ (Hom ‘𝑇) = (Hom ‘𝑇)
66		eqid 2731	. . 3 ⊢ (comp‘𝐷) = (comp‘𝐷)
67		eqid 2731	. . 3 ⊢ (comp‘𝐶) = (comp‘𝐶)
68		swapfcoa.ot	. . 3 ⊢ ∙ = (comp‘𝑇)
69		swapfid.c	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Cat)
70		swapfid.d	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
71	1, 2, 63, 69, 70, 3, 64	swapf1f1o 49307	. . . . 5 ⊢ (𝜑 → 𝑂:𝐵–1-1-onto→(Base‘𝑇))
72		f1of 6758	. . . . 5 ⊢ (𝑂:𝐵–1-1-onto→(Base‘𝑇) → 𝑂:𝐵⟶(Base‘𝑇))
73	71, 72	syl 17	. . . 4 ⊢ (𝜑 → 𝑂:𝐵⟶(Base‘𝑇))
74	73, 4	ffvelcdmd 7013	. . 3 ⊢ (𝜑 → (𝑂‘𝑋) ∈ (Base‘𝑇))
75	73, 11	ffvelcdmd 7013	. . 3 ⊢ (𝜑 → (𝑂‘𝑌) ∈ (Base‘𝑇))
76	73, 19	ffvelcdmd 7013	. . 3 ⊢ (𝜑 → (𝑂‘𝑍) ∈ (Base‘𝑇))
77	1, 2, 63, 27, 65, 3, 4, 11	swapf2f1oa 49309	. . . . 5 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
78		f1of 6758	. . . . 5 ⊢ ((𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)) → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
79	77, 78	syl 17	. . . 4 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
80	79, 36	ffvelcdmd 7013	. . 3 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) ∈ ((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
81	1, 2, 63, 27, 65, 3, 11, 19	swapf2f1oa 49309	. . . . 5 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
82		f1of 6758	. . . . 5 ⊢ ((𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)) → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
83	81, 82	syl 17	. . . 4 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
84	83, 29	ffvelcdmd 7013	. . 3 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) ∈ ((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
85	63, 64, 65, 66, 67, 68, 74, 75, 76, 80, 84	xpcco 18084	. 2 ⊢ (𝜑 → (((𝑌𝑃𝑍)‘𝑁)(⟨(𝑂‘𝑋), (𝑂‘𝑌)⟩ ∙ (𝑂‘𝑍))((𝑋𝑃𝑌)‘𝑀)) = ⟨((1^st ‘((𝑌𝑃𝑍)‘𝑁))(⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩(comp‘𝐷)(1^st ‘(𝑂‘𝑍)))(1^st ‘((𝑋𝑃𝑌)‘𝑀))), ((2^nd ‘((𝑌𝑃𝑍)‘𝑁))(⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍)))(2^nd ‘((𝑋𝑃𝑌)‘𝑀)))⟩)
86		swapfcoa.os	. . . . 5 ⊢ · = (comp‘𝑆)
87	2, 3, 27, 67, 66, 86, 4, 11, 19, 36, 29	xpcco 18084	. . . 4 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀) = ⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩)
88	87	fveq2d 6821	. . 3 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = ((𝑋𝑃𝑍)‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩))
89	2, 69, 70	xpccat 18091	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ Cat)
90	3, 27, 86, 89, 4, 11, 19, 36, 29	catcocl 17586	. . . . . 6 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀) ∈ (𝑋𝐻𝑍))
91	87, 90	eqeltrrd 2832	. . . . 5 ⊢ (𝜑 → ⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩ ∈ (𝑋𝐻𝑍))
92	1, 2, 3, 4, 19, 28, 91	swapf2a 49303	. . . 4 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩) = ⟨(2^nd ‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩), (1^st ‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩)⟩)
93		ovex 7374	. . . . . 6 ⊢ ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)) ∈ V
94		ovex 7374	. . . . . 6 ⊢ ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)) ∈ V
95	93, 94	op2nd 7925	. . . . 5 ⊢ (2^nd ‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩) = ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))
96	93, 94	op1st 7924	. . . . 5 ⊢ (1^st ‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩) = ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀))
97	95, 96	opeq12i 4825	. . . 4 ⊢ ⟨(2^nd ‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩), (1^st ‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩)⟩ = ⟨((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)), ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀))⟩
98	92, 97	eqtrdi 2782	. . 3 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘⟨((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)), ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀))⟩) = ⟨((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)), ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀))⟩)
99	88, 98	eqtrd 2766	. 2 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = ⟨((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)), ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀))⟩)
100	62, 85, 99	3eqtr4rd 2777	1 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝑃𝑍)‘𝑁)(⟨(𝑂‘𝑋), (𝑂‘𝑌)⟩ ∙ (𝑂‘𝑍))((𝑋𝑃𝑌)‘𝑀)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1541 ∈ wcel 2111 ⟨cop 4577 ⟶wf 6472 –1-1-onto→wf1o 6475 ‘cfv 6476 (class class class)co 7341 1^st c1st 7914 2^nd c2nd 7915 Basecbs 17115 Hom chom 17167 compcco 17168 Catccat 17565 ×_c cxpc 18069 swap_F cswapf 49291

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 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5212 ax-sep 5229 ax-nul 5239 ax-pow 5298 ax-pr 5365 ax-un 7663 ax-cnex 11057 ax-resscn 11058 ax-1cn 11059 ax-icn 11060 ax-addcl 11061 ax-addrcl 11062 ax-mulcl 11063 ax-mulrcl 11064 ax-mulcom 11065 ax-addass 11066 ax-mulass 11067 ax-distr 11068 ax-i2m1 11069 ax-1ne0 11070 ax-1rid 11071 ax-rnegex 11072 ax-rrecex 11073 ax-cnre 11074 ax-pre-lttri 11075 ax-pre-lttrn 11076 ax-pre-ltadd 11077 ax-pre-mulgt0 11078

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3737 df-csb 3846 df-dif 3900 df-un 3902 df-in 3904 df-ss 3914 df-pss 3917 df-nul 4279 df-if 4471 df-pw 4547 df-sn 4572 df-pr 4574 df-tp 4576 df-op 4578 df-uni 4855 df-iun 4938 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5506 df-eprel 5511 df-po 5519 df-so 5520 df-fr 5564 df-we 5566 df-xp 5617 df-rel 5618 df-cnv 5619 df-co 5620 df-dm 5621 df-rn 5622 df-res 5623 df-ima 5624 df-pred 6243 df-ord 6304 df-on 6305 df-lim 6306 df-suc 6307 df-iota 6432 df-fun 6478 df-fn 6479 df-f 6480 df-f1 6481 df-fo 6482 df-f1o 6483 df-fv 6484 df-riota 7298 df-ov 7344 df-oprab 7345 df-mpo 7346 df-om 7792 df-1st 7916 df-2nd 7917 df-frecs 8206 df-wrecs 8237 df-recs 8286 df-rdg 8324 df-1o 8380 df-er 8617 df-en 8865 df-dom 8866 df-sdom 8867 df-fin 8868 df-pnf 11143 df-mnf 11144 df-xr 11145 df-ltxr 11146 df-le 11147 df-sub 11341 df-neg 11342 df-nn 12121 df-2 12183 df-3 12184 df-4 12185 df-5 12186 df-6 12187 df-7 12188 df-8 12189 df-9 12190 df-n0 12377 df-z 12464 df-dec 12584 df-uz 12728 df-fz 13403 df-struct 17053 df-slot 17088 df-ndx 17100 df-base 17116 df-hom 17180 df-cco 17181 df-cat 17569 df-cid 17570 df-xpc 18073 df-swapf 49292

This theorem is referenced by: swapffunc 49314

W3C validator