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 50208

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 50196	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑋) = ⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩)
6	5	fveq2d 6883	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
7		fvex 6892	. . . . . . . 8 ⊢ (2^nd ‘𝑋) ∈ V
8		fvex 6892	. . . . . . . 8 ⊢ (1^st ‘𝑋) ∈ V
9	7, 8	op1st 7995	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (2^nd ‘𝑋)
10	6, 9	eqtrdi 2811	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑋)) = (2^nd ‘𝑋))
11		swapfcoa.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
12	1, 2, 3, 11	swapf1a 50196	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝑌) = ⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩)
13	12	fveq2d 6883	. . . . . . 7 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
14		fvex 6892	. . . . . . . 8 ⊢ (2^nd ‘𝑌) ∈ V
15		fvex 6892	. . . . . . . 8 ⊢ (1^st ‘𝑌) ∈ V
16	14, 15	op1st 7995	. . . . . . 7 ⊢ (1^st ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (2^nd ‘𝑌)
17	13, 16	eqtrdi 2811	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑌)) = (2^nd ‘𝑌))
18	10, 17	opeq12d 4841	. . . . 5 ⊢ (𝜑 → ⟨(1^st ‘(𝑂‘𝑋)), (1^st ‘(𝑂‘𝑌))⟩ = ⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩)
19		swapfcoa.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
20	1, 2, 3, 19	swapf1a 50196	. . . . . . 7 ⊢ (𝜑 → (𝑂‘𝑍) = ⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩)
21	20	fveq2d 6883	. . . . . 6 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
22		fvex 6892	. . . . . . 7 ⊢ (2^nd ‘𝑍) ∈ V
23		fvex 6892	. . . . . . 7 ⊢ (1^st ‘𝑍) ∈ V
24	22, 23	op1st 7995	. . . . . 6 ⊢ (1^st ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (2^nd ‘𝑍)
25	21, 24	eqtrdi 2811	. . . . 5 ⊢ (𝜑 → (1^st ‘(𝑂‘𝑍)) = (2^nd ‘𝑍))
26	18, 25	oveq12d 7432	. . . 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 50198	. . . . . 6 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) = ⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩)
31	30	fveq2d 6883	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
32		fvex 6892	. . . . . 6 ⊢ (2^nd ‘𝑁) ∈ V
33		fvex 6892	. . . . . 6 ⊢ (1^st ‘𝑁) ∈ V
34	32, 33	op1st 7995	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (2^nd ‘𝑁)
35	31, 34	eqtrdi 2811	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘𝑁))
36		swapfcoa.m	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
37	1, 2, 3, 4, 11, 28, 36	swapf2a 50198	. . . . . 6 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) = ⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩)
38	37	fveq2d 6883	. . . . 5 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
39		fvex 6892	. . . . . 6 ⊢ (2^nd ‘𝑀) ∈ V
40		fvex 6892	. . . . . 6 ⊢ (1^st ‘𝑀) ∈ V
41	39, 40	op1st 7995	. . . . 5 ⊢ (1^st ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (2^nd ‘𝑀)
42	38, 41	eqtrdi 2811	. . . 4 ⊢ (𝜑 → (1^st ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘𝑀))
43	26, 35, 42	oveq123d 7435	. . 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 6883	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩))
45	7, 8	op2nd 7996	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑋), (1^st ‘𝑋)⟩) = (1^st ‘𝑋)
46	44, 45	eqtrdi 2811	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑋)) = (1^st ‘𝑋))
47	12	fveq2d 6883	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩))
48	14, 15	op2nd 7996	. . . . . . 7 ⊢ (2^nd ‘⟨(2^nd ‘𝑌), (1^st ‘𝑌)⟩) = (1^st ‘𝑌)
49	47, 48	eqtrdi 2811	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑌)) = (1^st ‘𝑌))
50	46, 49	opeq12d 4841	. . . . 5 ⊢ (𝜑 → ⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩ = ⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩)
51	20	fveq2d 6883	. . . . . 6 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩))
52	22, 23	op2nd 7996	. . . . . 6 ⊢ (2^nd ‘⟨(2^nd ‘𝑍), (1^st ‘𝑍)⟩) = (1^st ‘𝑍)
53	51, 52	eqtrdi 2811	. . . . 5 ⊢ (𝜑 → (2^nd ‘(𝑂‘𝑍)) = (1^st ‘𝑍))
54	50, 53	oveq12d 7432	. . . 4 ⊢ (𝜑 → (⟨(2^nd ‘(𝑂‘𝑋)), (2^nd ‘(𝑂‘𝑌))⟩(comp‘𝐶)(2^nd ‘(𝑂‘𝑍))) = (⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍)))
55	30	fveq2d 6883	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩))
56	32, 33	op2nd 7996	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑁), (1^st ‘𝑁)⟩) = (1^st ‘𝑁)
57	55, 56	eqtrdi 2811	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑌𝑃𝑍)‘𝑁)) = (1^st ‘𝑁))
58	37	fveq2d 6883	. . . . 5 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩))
59	39, 40	op2nd 7996	. . . . 5 ⊢ (2^nd ‘⟨(2^nd ‘𝑀), (1^st ‘𝑀)⟩) = (1^st ‘𝑀)
60	58, 59	eqtrdi 2811	. . . 4 ⊢ (𝜑 → (2^nd ‘((𝑋𝑃𝑌)‘𝑀)) = (1^st ‘𝑀))
61	54, 57, 60	oveq123d 7435	. . 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 4841	. 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 2760	. . 3 ⊢ (Base‘𝑇) = (Base‘𝑇)
65		eqid 2760	. . 3 ⊢ (Hom ‘𝑇) = (Hom ‘𝑇)
66		eqid 2760	. . 3 ⊢ (comp‘𝐷) = (comp‘𝐷)
67		eqid 2760	. . 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 50202	. . . . 5 ⊢ (𝜑 → 𝑂:𝐵–1-1-onto→(Base‘𝑇))
72		f1of 6818	. . . . 5 ⊢ (𝑂:𝐵–1-1-onto→(Base‘𝑇) → 𝑂:𝐵⟶(Base‘𝑇))
73	71, 72	syl 18	. . . 4 ⊢ (𝜑 → 𝑂:𝐵⟶(Base‘𝑇))
74	73, 4	ffvelcdmd 7079	. . 3 ⊢ (𝜑 → (𝑂‘𝑋) ∈ (Base‘𝑇))
75	73, 11	ffvelcdmd 7079	. . 3 ⊢ (𝜑 → (𝑂‘𝑌) ∈ (Base‘𝑇))
76	73, 19	ffvelcdmd 7079	. . 3 ⊢ (𝜑 → (𝑂‘𝑍) ∈ (Base‘𝑇))
77	1, 2, 63, 27, 65, 3, 4, 11	swapf2f1oa 50204	. . . . 5 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
78		f1of 6818	. . . . 5 ⊢ ((𝑋𝑃𝑌):(𝑋𝐻𝑌)–1-1-onto→((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)) → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
79	77, 78	syl 18	. . . 4 ⊢ (𝜑 → (𝑋𝑃𝑌):(𝑋𝐻𝑌)⟶((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
80	79, 36	ffvelcdmd 7079	. . 3 ⊢ (𝜑 → ((𝑋𝑃𝑌)‘𝑀) ∈ ((𝑂‘𝑋)(Hom ‘𝑇)(𝑂‘𝑌)))
81	1, 2, 63, 27, 65, 3, 11, 19	swapf2f1oa 50204	. . . . 5 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
82		f1of 6818	. . . . 5 ⊢ ((𝑌𝑃𝑍):(𝑌𝐻𝑍)–1-1-onto→((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)) → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
83	81, 82	syl 18	. . . 4 ⊢ (𝜑 → (𝑌𝑃𝑍):(𝑌𝐻𝑍)⟶((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
84	83, 29	ffvelcdmd 7079	. . 3 ⊢ (𝜑 → ((𝑌𝑃𝑍)‘𝑁) ∈ ((𝑂‘𝑌)(Hom ‘𝑇)(𝑂‘𝑍)))
85	63, 64, 65, 66, 67, 68, 74, 75, 76, 80, 84	xpcco 18272	. 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 18272	. . . 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 6883	. . 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 18279	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ Cat)
90	3, 27, 86, 89, 4, 11, 19, 36, 29	catcocl 17774	. . . . . 6 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀) ∈ (𝑋𝐻𝑍))
91	87, 90	eqeltrrd 2861	. . . . 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 50198	. . . 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 7447	. . . . . 6 ⊢ ((1^st ‘𝑁)(⟨(1^st ‘𝑋), (1^st ‘𝑌)⟩(comp‘𝐶)(1^st ‘𝑍))(1^st ‘𝑀)) ∈ V
94		ovex 7447	. . . . . 6 ⊢ ((2^nd ‘𝑁)(⟨(2^nd ‘𝑋), (2^nd ‘𝑌)⟩(comp‘𝐷)(2^nd ‘𝑍))(2^nd ‘𝑀)) ∈ V
95	93, 94	op2nd 7996	. . . . 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 7995	. . . . 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 4838	. . . 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 2811	. . 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 2795	. 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 2806	1 ⊢ (𝜑 → ((𝑋𝑃𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝑃𝑍)‘𝑁)(⟨(𝑂‘𝑋), (𝑂‘𝑌)⟩ ∙ (𝑂‘𝑍))((𝑋𝑃𝑌)‘𝑀)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 = wceq 1570 ∈ wcel 2145 ⟨cop 4590 ⟶wf 6529 –1-1-onto→wf1o 6532 ‘cfv 6533 (class class class)co 7414 1^st c1st 7985 2^nd c2nd 7986 Basecbs 17302 Hom chom 17354 compcco 17355 Catccat 17753 ×_c cxpc 18257 swap_F cswapf 50186

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7737 ax-cnex 11181 ax-resscn 11182 ax-1cn 11183 ax-icn 11184 ax-addcl 11185 ax-addrcl 11186 ax-mulcl 11187 ax-mulrcl 11188 ax-mulcom 11189 ax-addass 11190 ax-mulass 11191 ax-distr 11192 ax-i2m1 11193 ax-1ne0 11194 ax-1rid 11195 ax-rnegex 11196 ax-rrecex 11197 ax-cnre 11198 ax-pre-lttri 11199 ax-pre-lttrn 11200 ax-pre-ltadd 11201 ax-pre-mulgt0 11202

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-riota 7371 df-ov 7417 df-oprab 7418 df-mpo 7419 df-om 7864 df-1st 7987 df-2nd 7988 df-frecs 8281 df-wrecs 8312 df-recs 8361 df-rdg 8400 df-1o 8456 df-er 8697 df-en 8954 df-dom 8955 df-sdom 8956 df-fin 8957 df-pnf 11270 df-mnf 11271 df-xr 11272 df-ltxr 11273 df-le 11274 df-sub 11468 df-neg 11469 df-nn 12259 df-2 12328 df-3 12329 df-4 12330 df-5 12331 df-6 12332 df-7 12333 df-8 12334 df-9 12335 df-n0 12530 df-z 12617 df-dec 12738 df-uz 12889 df-fz 13563 df-struct 17240 df-slot 17275 df-ndx 17287 df-base 17303 df-hom 17367 df-cco 17368 df-cat 17757 df-cid 17758 df-xpc 18261 df-swapf 50187

This theorem is used by: swapffunc 50209

W3C validator