Metamath Proof Explorer

Theorem xpcco2nd

Description: Value of composition in the binary product of categories. (Contributed by Mario Carneiro, 11-Jan-2017)

		Ref	Expression
	Hypotheses	xpcco1st.t	⊢ 𝑇 = ( 𝐶 ×_c 𝐷 )
		xpcco1st.b	⊢ 𝐵 = ( Base ‘ 𝑇 )
		xpcco1st.k	⊢ 𝐾 = ( Hom ‘ 𝑇 )
		xpcco1st.o	⊢ 𝑂 = ( comp ‘ 𝑇 )
		xpcco1st.x	⊢ ( 𝜑 → 𝑋 ∈ 𝐵 )
		xpcco1st.y	⊢ ( 𝜑 → 𝑌 ∈ 𝐵 )
		xpcco1st.z	⊢ ( 𝜑 → 𝑍 ∈ 𝐵 )
		xpcco1st.f	⊢ ( 𝜑 → 𝐹 ∈ ( 𝑋 𝐾 𝑌 ) )
		xpcco1st.g	⊢ ( 𝜑 → 𝐺 ∈ ( 𝑌 𝐾 𝑍 ) )
		xpcco2nd.1	⊢ · = ( comp ‘ 𝐷 )
	Assertion	xpcco2nd	⊢ ( 𝜑 → ( 2^nd ‘ ( 𝐺 ( ⟨ 𝑋 , 𝑌 ⟩ 𝑂 𝑍 ) 𝐹 ) ) = ( ( 2^nd ‘ 𝐺 ) ( ⟨ ( 2^nd ‘ 𝑋 ) , ( 2^nd ‘ 𝑌 ) ⟩ · ( 2^nd ‘ 𝑍 ) ) ( 2^nd ‘ 𝐹 ) ) )

Proof

Step	Hyp	Ref	Expression
1		xpcco1st.t	⊢ 𝑇 = ( 𝐶 ×_c 𝐷 )
2		xpcco1st.b	⊢ 𝐵 = ( Base ‘ 𝑇 )
3		xpcco1st.k	⊢ 𝐾 = ( Hom ‘ 𝑇 )
4		xpcco1st.o	⊢ 𝑂 = ( comp ‘ 𝑇 )
5		xpcco1st.x	⊢ ( 𝜑 → 𝑋 ∈ 𝐵 )
6		xpcco1st.y	⊢ ( 𝜑 → 𝑌 ∈ 𝐵 )
7		xpcco1st.z	⊢ ( 𝜑 → 𝑍 ∈ 𝐵 )
8		xpcco1st.f	⊢ ( 𝜑 → 𝐹 ∈ ( 𝑋 𝐾 𝑌 ) )
9		xpcco1st.g	⊢ ( 𝜑 → 𝐺 ∈ ( 𝑌 𝐾 𝑍 ) )
10		xpcco2nd.1	⊢ · = ( comp ‘ 𝐷 )
11		eqid	⊢ ( comp ‘ 𝐶 ) = ( comp ‘ 𝐶 )
12	1 2 3 11 10 4 5 6 7 8 9	xpcco	⊢ ( 𝜑 → ( 𝐺 ( ⟨ 𝑋 , 𝑌 ⟩ 𝑂 𝑍 ) 𝐹 ) = ⟨ ( ( 1^st ‘ 𝐺 ) ( ⟨ ( 1^st ‘ 𝑋 ) , ( 1^st ‘ 𝑌 ) ⟩ ( comp ‘ 𝐶 ) ( 1^st ‘ 𝑍 ) ) ( 1^st ‘ 𝐹 ) ) , ( ( 2^nd ‘ 𝐺 ) ( ⟨ ( 2^nd ‘ 𝑋 ) , ( 2^nd ‘ 𝑌 ) ⟩ · ( 2^nd ‘ 𝑍 ) ) ( 2^nd ‘ 𝐹 ) ) ⟩ )
13		ovex	⊢ ( ( 1^st ‘ 𝐺 ) ( ⟨ ( 1^st ‘ 𝑋 ) , ( 1^st ‘ 𝑌 ) ⟩ ( comp ‘ 𝐶 ) ( 1^st ‘ 𝑍 ) ) ( 1^st ‘ 𝐹 ) ) ∈ V
14		ovex	⊢ ( ( 2^nd ‘ 𝐺 ) ( ⟨ ( 2^nd ‘ 𝑋 ) , ( 2^nd ‘ 𝑌 ) ⟩ · ( 2^nd ‘ 𝑍 ) ) ( 2^nd ‘ 𝐹 ) ) ∈ V
15	13 14	op2ndd	⊢ ( ( 𝐺 ( ⟨ 𝑋 , 𝑌 ⟩ 𝑂 𝑍 ) 𝐹 ) = ⟨ ( ( 1^st ‘ 𝐺 ) ( ⟨ ( 1^st ‘ 𝑋 ) , ( 1^st ‘ 𝑌 ) ⟩ ( comp ‘ 𝐶 ) ( 1^st ‘ 𝑍 ) ) ( 1^st ‘ 𝐹 ) ) , ( ( 2^nd ‘ 𝐺 ) ( ⟨ ( 2^nd ‘ 𝑋 ) , ( 2^nd ‘ 𝑌 ) ⟩ · ( 2^nd ‘ 𝑍 ) ) ( 2^nd ‘ 𝐹 ) ) ⟩ → ( 2^nd ‘ ( 𝐺 ( ⟨ 𝑋 , 𝑌 ⟩ 𝑂 𝑍 ) 𝐹 ) ) = ( ( 2^nd ‘ 𝐺 ) ( ⟨ ( 2^nd ‘ 𝑋 ) , ( 2^nd ‘ 𝑌 ) ⟩ · ( 2^nd ‘ 𝑍 ) ) ( 2^nd ‘ 𝐹 ) ) )
16	12 15	syl	⊢ ( 𝜑 → ( 2^nd ‘ ( 𝐺 ( ⟨ 𝑋 , 𝑌 ⟩ 𝑂 𝑍 ) 𝐹 ) ) = ( ( 2^nd ‘ 𝐺 ) ( ⟨ ( 2^nd ‘ 𝑋 ) , ( 2^nd ‘ 𝑌 ) ⟩ · ( 2^nd ‘ 𝑍 ) ) ( 2^nd ‘ 𝐹 ) ) )