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 49756

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 49744	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑋) = ⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩)
6	5	fveq2d 6844	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
7		fvex 6853	. . . . . . . 8 ⊢ (2^nd ‘𝑋) ∈ V
8		fvex 6853	. . . . . . . 8 ⊢ (1^st ‘𝑋) ∈ V
9	7, 8	op1st 7950	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (2^nd ‘𝑋)
10	6, 9	eqtrdi 2787	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (2^nd ‘𝑋))
11		swapfcoa.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
12	1, 2, 3, 11	swapf1a 49744	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑌) = ⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩)
13	12	fveq2d 6844	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
14		fvex 6853	. . . . . . . 8 ⊢ (2^nd ‘𝑌) ∈ V
15		fvex 6853	. . . . . . . 8 ⊢ (1^st ‘𝑌) ∈ V
16	14, 15	op1st 7950	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (2^nd ‘𝑌)
17	13, 16	eqtrdi 2787	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (2^nd ‘𝑌))
18	10, 17	opeq12d 4824	. . . . 5 ⊢ (𝜑 → ⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩ = ⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩)
19		swapfcoa.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
20	1, 2, 3, 19	swapf1a 49744	. . . . . . 7 ⊢ (𝜑 → (𝑂‘𝑍) = ⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩)
21	20	fveq2d 6844	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
22		fvex 6853	. . . . . . 7 ⊢ (2^nd ‘𝑍) ∈ V
23		fvex 6853	. . . . . . 7 ⊢ (1^st ‘𝑍) ∈ V
24	22, 23	op1st 7950	. . . . . 6 ⊢ (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (2^nd ‘𝑍)
25	21, 24	eqtrdi 2787	. . . . 5 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (2^nd ‘𝑍))
26	18, 25	oveq12d 7385	. . . 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 49746	. . . . . 6 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) = ⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩)
31	30	fveq2d 6844	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
32		fvex 6853	. . . . . 6 ⊢ (2^nd ‘𝑁) ∈ V
33		fvex 6853	. . . . . 6 ⊢ (1^st ‘𝑁) ∈ V
34	32, 33	op1st 7950	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (2^nd ‘𝑁)
35	31, 34	eqtrdi 2787	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘𝑁))
36		swapfcoa.m	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
37	1, 2, 3, 4, 11, 28, 36	swapf2a 49746	. . . . . 6 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) = ⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩)
38	37	fveq2d 6844	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
39		fvex 6853	. . . . . 6 ⊢ (2^nd ‘𝑀) ∈ V
40		fvex 6853	. . . . . 6 ⊢ (1^st ‘𝑀) ∈ V
41	39, 40	op1st 7950	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (2^nd ‘𝑀)
42	38, 41	eqtrdi 2787	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘𝑀))
43	26, 35, 42	oveq123d 7388	. . 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 6844	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
45	7, 8	op2nd 7951	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (1^st ‘𝑋)
46	44, 45	eqtrdi 2787	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (1^st ‘𝑋))
47	12	fveq2d 6844	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
48	14, 15	op2nd 7951	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (1^st ‘𝑌)
49	47, 48	eqtrdi 2787	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (1^st ‘𝑌))
50	46, 49	opeq12d 4824	. . . . 5 ⊢ (𝜑 → ⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩ = ⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩)
51	20	fveq2d 6844	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
52	22, 23	op2nd 7951	. . . . . 6 ⊢ (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (1^st ‘𝑍)
53	51, 52	eqtrdi 2787	. . . . 5 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (1^st ‘𝑍))
54	50, 53	oveq12d 7385	. . . 4 ⊢ (𝜑 → (⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍))) = (⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍)))
55	30	fveq2d 6844	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
56	32, 33	op2nd 7951	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (1^st ‘𝑁)
57	55, 56	eqtrdi 2787	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘𝑁))
58	37	fveq2d 6844	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
59	39, 40	op2nd 7951	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (1^st ‘𝑀)
60	58, 59	eqtrdi 2787	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘𝑀))
61	54, 57, 60	oveq123d 7388	. . 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 4824	. 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 2736	. . 3 ⊢ (Base‘𝑇) = (Base‘𝑇)
65		eqid 2736	. . 3 ⊢ (Hom ‘𝑇) = (Hom ‘𝑇)
66		eqid 2736	. . 3 ⊢ (comp‘𝐷) = (comp‘𝐷)
67		eqid 2736	. . 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 49750	. . . . 5 ⊢ (𝜑 → 𝑂:𝐵–1-1-onto→(Base‘𝑇))
72		f1of 6780	. . . . 5 ⊢ (𝑂:𝐵–1-1-onto→(Base‘𝑇) → 𝑂:𝐵⟶(Base‘𝑇))
73	71, 72	syl 17	. . . 4 ⊢ (𝜑 → 𝑂:𝐵⟶(Base‘𝑇))
74	73, 4	ffvelcdmd 7037	. . 3 ⊢ (𝜑 → (𝑂‘𝑋) ∈ (Base‘𝑇))
75	73, 11	ffvelcdmd 7037	. . 3 ⊢ (𝜑 → (𝑂‘𝑌) ∈ (Base‘𝑇))
76	73, 19	ffvelcdmd 7037	. . 3 ⊢ (𝜑 → (𝑂‘𝑍) ∈ (Base‘𝑇))
77	1, 2, 63, 27, 65, 3, 4, 11	swapf2f1oa 49752	. . . . 5 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
78		f1of 6780	. . . . 5 ⊢ ((𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)) → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
79	77, 78	syl 17	. . . 4 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
80	79, 36	ffvelcdmd 7037	. . 3 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) ∈ ((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
81	1, 2, 63, 27, 65, 3, 11, 19	swapf2f1oa 49752	. . . . 5 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
82		f1of 6780	. . . . 5 ⊢ ((𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)) → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
83	81, 82	syl 17	. . . 4 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
84	83, 29	ffvelcdmd 7037	. . 3 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) ∈ ((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
85	63, 64, 65, 66, 67, 68, 74, 75, 76, 80, 84	xpcco 18149	. 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 18149	. . . 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 6844	. . 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 18156	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ Cat)
90	3, 27, 86, 89, 4, 11, 19, 36, 29	catcocl 17651	. . . . . 6 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀) ∈ (𝑋𝐻𝑍))
91	87, 90	eqeltrrd 2837	. . . . 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 49746	. . . 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 7400	. . . . . 6 ⊢ ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)) ∈ V
94		ovex 7400	. . . . . 6 ⊢ ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)) ∈ V
95	93, 94	op2nd 7951	. . . . 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 7950	. . . . 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 4821	. . . 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 2787	. . 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 2771	. 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 2782	1 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝑃𝑍)‘𝑁)(⟨(𝑂‘𝑋), (𝑂‘𝑌)⟩ ∙ (𝑂‘𝑍))((𝑋𝑃𝑌)‘𝑀)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1542 ∈ wcel 2114 ⟨cop 4573 ⟶wf 6494 –1-1-onto→wf1o 6497 ‘cfv 6498 (class class class)co 7367 1^st c1st 7940 2^nd c2nd 7941 Basecbs 17179 Hom chom 17231 compcco 17232 Catccat 17630 ×_c cxpc 18134 swap_F cswapf 49734

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2708 ax-rep 5212 ax-sep 5231 ax-nul 5241 ax-pow 5307 ax-pr 5375 ax-un 7689 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3062 df-rmo 3342 df-reu 3343 df-rab 3390 df-v 3431 df-sbc 3729 df-csb 3838 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-pss 3909 df-nul 4274 df-if 4467 df-pw 4543 df-sn 4568 df-pr 4570 df-tp 4572 df-op 4574 df-uni 4851 df-iun 4935 df-br 5086 df-opab 5148 df-mpt 5167 df-tr 5193 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6265 df-ord 6326 df-on 6327 df-lim 6328 df-suc 6329 df-iota 6454 df-fun 6500 df-fn 6501 df-f 6502 df-f1 6503 df-fo 6504 df-f1o 6505 df-fv 6506 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-om 7818 df-1st 7942 df-2nd 7943 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-er 8643 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-pnf 11181 df-mnf 11182 df-xr 11183 df-ltxr 11184 df-le 11185 df-sub 11379 df-neg 11380 df-nn 12175 df-2 12244 df-3 12245 df-4 12246 df-5 12247 df-6 12248 df-7 12249 df-8 12250 df-9 12251 df-n0 12438 df-z 12525 df-dec 12645 df-uz 12789 df-fz 13462 df-struct 17117 df-slot 17152 df-ndx 17164 df-base 17180 df-hom 17244 df-cco 17245 df-cat 17634 df-cid 17635 df-xpc 18138 df-swapf 49735

This theorem is referenced by: swapffunc 49757

W3C validator