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 49032

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 49020	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑋) = ⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩)
6	5	fveq2d 6890	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
7		fvex 6899	. . . . . . . 8 ⊢ (2^nd ‘𝑋) ∈ V
8		fvex 6899	. . . . . . . 8 ⊢ (1^st ‘𝑋) ∈ V
9	7, 8	op1st 8004	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (2^nd ‘𝑋)
10	6, 9	eqtrdi 2785	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (2^nd ‘𝑋))
11		swapfcoa.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
12	1, 2, 3, 11	swapf1a 49020	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑌) = ⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩)
13	12	fveq2d 6890	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
14		fvex 6899	. . . . . . . 8 ⊢ (2^nd ‘𝑌) ∈ V
15		fvex 6899	. . . . . . . 8 ⊢ (1^st ‘𝑌) ∈ V
16	14, 15	op1st 8004	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (2^nd ‘𝑌)
17	13, 16	eqtrdi 2785	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (2^nd ‘𝑌))
18	10, 17	opeq12d 4861	. . . . 5 ⊢ (𝜑 → ⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩ = ⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩)
19		swapfcoa.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
20	1, 2, 3, 19	swapf1a 49020	. . . . . . 7 ⊢ (𝜑 → (𝑂‘𝑍) = ⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩)
21	20	fveq2d 6890	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
22		fvex 6899	. . . . . . 7 ⊢ (2^nd ‘𝑍) ∈ V
23		fvex 6899	. . . . . . 7 ⊢ (1^st ‘𝑍) ∈ V
24	22, 23	op1st 8004	. . . . . 6 ⊢ (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (2^nd ‘𝑍)
25	21, 24	eqtrdi 2785	. . . . 5 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (2^nd ‘𝑍))
26	18, 25	oveq12d 7431	. . . 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 49022	. . . . . 6 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) = ⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩)
31	30	fveq2d 6890	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
32		fvex 6899	. . . . . 6 ⊢ (2^nd ‘𝑁) ∈ V
33		fvex 6899	. . . . . 6 ⊢ (1^st ‘𝑁) ∈ V
34	32, 33	op1st 8004	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (2^nd ‘𝑁)
35	31, 34	eqtrdi 2785	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘𝑁))
36		swapfcoa.m	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
37	1, 2, 3, 4, 11, 28, 36	swapf2a 49022	. . . . . 6 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) = ⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩)
38	37	fveq2d 6890	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
39		fvex 6899	. . . . . 6 ⊢ (2^nd ‘𝑀) ∈ V
40		fvex 6899	. . . . . 6 ⊢ (1^st ‘𝑀) ∈ V
41	39, 40	op1st 8004	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (2^nd ‘𝑀)
42	38, 41	eqtrdi 2785	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘𝑀))
43	26, 35, 42	oveq123d 7434	. . 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 6890	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
45	7, 8	op2nd 8005	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (1^st ‘𝑋)
46	44, 45	eqtrdi 2785	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (1^st ‘𝑋))
47	12	fveq2d 6890	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
48	14, 15	op2nd 8005	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (1^st ‘𝑌)
49	47, 48	eqtrdi 2785	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (1^st ‘𝑌))
50	46, 49	opeq12d 4861	. . . . 5 ⊢ (𝜑 → ⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩ = ⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩)
51	20	fveq2d 6890	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
52	22, 23	op2nd 8005	. . . . . 6 ⊢ (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (1^st ‘𝑍)
53	51, 52	eqtrdi 2785	. . . . 5 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (1^st ‘𝑍))
54	50, 53	oveq12d 7431	. . . 4 ⊢ (𝜑 → (⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍))) = (⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍)))
55	30	fveq2d 6890	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
56	32, 33	op2nd 8005	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (1^st ‘𝑁)
57	55, 56	eqtrdi 2785	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘𝑁))
58	37	fveq2d 6890	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
59	39, 40	op2nd 8005	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (1^st ‘𝑀)
60	58, 59	eqtrdi 2785	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘𝑀))
61	54, 57, 60	oveq123d 7434	. . 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 4861	. 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 2734	. . 3 ⊢ (Base‘𝑇) = (Base‘𝑇)
65		eqid 2734	. . 3 ⊢ (Hom ‘𝑇) = (Hom ‘𝑇)
66		eqid 2734	. . 3 ⊢ (comp‘𝐷) = (comp‘𝐷)
67		eqid 2734	. . 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 49026	. . . . 5 ⊢ (𝜑 → 𝑂:𝐵–1-1-onto→(Base‘𝑇))
72		f1of 6828	. . . . 5 ⊢ (𝑂:𝐵–1-1-onto→(Base‘𝑇) → 𝑂:𝐵⟶(Base‘𝑇))
73	71, 72	syl 17	. . . 4 ⊢ (𝜑 → 𝑂:𝐵⟶(Base‘𝑇))
74	73, 4	ffvelcdmd 7085	. . 3 ⊢ (𝜑 → (𝑂‘𝑋) ∈ (Base‘𝑇))
75	73, 11	ffvelcdmd 7085	. . 3 ⊢ (𝜑 → (𝑂‘𝑌) ∈ (Base‘𝑇))
76	73, 19	ffvelcdmd 7085	. . 3 ⊢ (𝜑 → (𝑂‘𝑍) ∈ (Base‘𝑇))
77	1, 2, 63, 27, 65, 3, 4, 11	swapf2f1oa 49028	. . . . 5 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
78		f1of 6828	. . . . 5 ⊢ ((𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)) → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
79	77, 78	syl 17	. . . 4 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
80	79, 36	ffvelcdmd 7085	. . 3 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) ∈ ((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
81	1, 2, 63, 27, 65, 3, 11, 19	swapf2f1oa 49028	. . . . 5 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
82		f1of 6828	. . . . 5 ⊢ ((𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)) → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
83	81, 82	syl 17	. . . 4 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
84	83, 29	ffvelcdmd 7085	. . 3 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) ∈ ((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
85	63, 64, 65, 66, 67, 68, 74, 75, 76, 80, 84	xpcco 18199	. 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 18199	. . . 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 6890	. . 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 18206	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ Cat)
90	3, 27, 86, 89, 4, 11, 19, 36, 29	catcocl 17700	. . . . . 6 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀) ∈ (𝑋𝐻𝑍))
91	87, 90	eqeltrrd 2834	. . . . 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 49022	. . . 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 7446	. . . . . 6 ⊢ ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)) ∈ V
94		ovex 7446	. . . . . 6 ⊢ ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)) ∈ V
95	93, 94	op2nd 8005	. . . . 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 8004	. . . . 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 4858	. . . 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 2785	. . 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 2769	. 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 2780	1 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝑃𝑍)‘𝑁)(⟨(𝑂‘𝑋), (𝑂‘𝑌)⟩ ∙ (𝑂‘𝑍))((𝑋𝑃𝑌)‘𝑀)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1539 ∈ wcel 2107 ⟨cop 4612 ⟶wf 6537 –1-1-onto→wf1o 6540 ‘cfv 6541 (class class class)co 7413 1^st c1st 7994 2^nd c2nd 7995 Basecbs 17230 Hom chom 17285 compcco 17286 Catccat 17679 ×_c cxpc 18184 swap_Fcswapf 49010

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1794 ax-4 1808 ax-5 1909 ax-6 1966 ax-7 2006 ax-8 2109 ax-9 2117 ax-10 2140 ax-11 2156 ax-12 2176 ax-ext 2706 ax-rep 5259 ax-sep 5276 ax-nul 5286 ax-pow 5345 ax-pr 5412 ax-un 7737 ax-cnex 11193 ax-resscn 11194 ax-1cn 11195 ax-icn 11196 ax-addcl 11197 ax-addrcl 11198 ax-mulcl 11199 ax-mulrcl 11200 ax-mulcom 11201 ax-addass 11202 ax-mulass 11203 ax-distr 11204 ax-i2m1 11205 ax-1ne0 11206 ax-1rid 11207 ax-rnegex 11208 ax-rrecex 11209 ax-cnre 11210 ax-pre-lttri 11211 ax-pre-lttrn 11212 ax-pre-ltadd 11213 ax-pre-mulgt0 11214

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1779 df-nf 1783 df-sb 2064 df-mo 2538 df-eu 2567 df-clab 2713 df-cleq 2726 df-clel 2808 df-nfc 2884 df-ne 2932 df-nel 3036 df-ral 3051 df-rex 3060 df-rmo 3363 df-reu 3364 df-rab 3420 df-v 3465 df-sbc 3771 df-csb 3880 df-dif 3934 df-un 3936 df-in 3938 df-ss 3948 df-pss 3951 df-nul 4314 df-if 4506 df-pw 4582 df-sn 4607 df-pr 4609 df-tp 4611 df-op 4613 df-uni 4888 df-iun 4973 df-br 5124 df-opab 5186 df-mpt 5206 df-tr 5240 df-id 5558 df-eprel 5564 df-po 5572 df-so 5573 df-fr 5617 df-we 5619 df-xp 5671 df-rel 5672 df-cnv 5673 df-co 5674 df-dm 5675 df-rn 5676 df-res 5677 df-ima 5678 df-pred 6301 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6543 df-fn 6544 df-f 6545 df-f1 6546 df-fo 6547 df-f1o 6548 df-fv 6549 df-riota 7370 df-ov 7416 df-oprab 7417 df-mpo 7418 df-om 7870 df-1st 7996 df-2nd 7997 df-frecs 8288 df-wrecs 8319 df-recs 8393 df-rdg 8432 df-1o 8488 df-er 8727 df-en 8968 df-dom 8969 df-sdom 8970 df-fin 8971 df-pnf 11279 df-mnf 11280 df-xr 11281 df-ltxr 11282 df-le 11283 df-sub 11476 df-neg 11477 df-nn 12249 df-2 12311 df-3 12312 df-4 12313 df-5 12314 df-6 12315 df-7 12316 df-8 12317 df-9 12318 df-n0 12510 df-z 12597 df-dec 12717 df-uz 12861 df-fz 13530 df-struct 17167 df-slot 17202 df-ndx 17214 df-base 17231 df-hom 17298 df-cco 17299 df-cat 17683 df-cid 17684 df-xpc 18188 df-swapf 49011

This theorem is referenced by: swapffunc 49033

W3C validator