invfuc - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > invfuc		Structured version Visualization version GIF version

Theorem invfuc 18113

Description: If 𝑉(𝑥) is an inverse to 𝑈(𝑥) for each 𝑥, and 𝑈 is a natural transformation, then 𝑉 is also a natural transformation, and they are inverse in the functor category. (Contributed by Mario Carneiro, 28-Jan-2017.)

**Hypotheses**
Ref	Expression
fuciso.q	⊢ 𝑄 = (𝐶 FuncCat 𝐷)
fuciso.b	⊢ 𝐵 = (Base‘𝐶)
fuciso.n	⊢ 𝑁 = (𝐶 Nat 𝐷)
fuciso.f	⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
fuciso.g	⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
fucinv.i	⊢ 𝐼 = (Inv‘𝑄)
fucinv.j	⊢ 𝐽 = (Inv‘𝐷)
invfuc.u	⊢ (𝜑 → 𝑈 ∈ (𝐹𝑁𝐺))
invfuc.v	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))𝑋)

**Assertion**
Ref	Expression
invfuc	⊢ (𝜑 → 𝑈(𝐹𝐼𝐺)(𝑥 ∈ 𝐵 ↦ 𝑋))

Distinct variable groups: 𝑥,𝐵 𝑥,𝐶 𝑥,𝐷 𝑥,𝐼 𝑥,𝐹 𝑥,𝐺 𝑥,𝐽 𝑥,𝑁 𝜑,𝑥 𝑥,𝑄 𝑥,𝑈 Allowed substitution hint: 𝑋(𝑥)

Proof of Theorem invfuc Dummy variables 𝑦 𝑓 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		invfuc.u	. 2 ⊢ (𝜑 → 𝑈 ∈ (𝐹𝑁𝐺))
2		invfuc.v	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))𝑋)
3		eqid 2760	. . . . . . . . . 10 ⊢ (Base‘𝐷) = (Base‘𝐷)
4		fucinv.j	. . . . . . . . . 10 ⊢ 𝐽 = (Inv‘𝐷)
5		fuciso.f	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
6		funcrcl 17999	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
7	5, 6	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
8	7	simprd 501	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ Cat)
9	8	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐷 ∈ Cat)
10		fuciso.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝐶)
11		relfunc 17998	. . . . . . . . . . . . 13 ⊢ Rel (𝐶 Func 𝐷)
12		1st2ndbr 8036	. . . . . . . . . . . . 13 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
13	11, 5, 12	sylancr 599	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
14	10, 3, 13	funcf1 18002	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘𝐹):𝐵⟶(Base‘𝐷))
15	14	ffvelcdmda 7072	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
16		fuciso.g	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
17		1st2ndbr 8036	. . . . . . . . . . . . 13 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
18	11, 16, 17	sylancr 599	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
19	10, 3, 18	funcf1 18002	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘𝐺):𝐵⟶(Base‘𝐷))
20	19	ffvelcdmda 7072	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((1^st ‘𝐺)‘𝑥) ∈ (Base‘𝐷))
21		eqid 2760	. . . . . . . . . 10 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22	3, 4, 9, 15, 20, 21	invss 17897	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) ⊆ ((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))))
23	22	ssbrd 5147	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))𝑋 → (𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋))
24	2, 23	mpd 16	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋)
25		brxp 5696	. . . . . . . 8 ⊢ ((𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋 ↔ ((𝑈‘𝑥) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) ∧ 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))))
26	25	simprbi 503	. . . . . . 7 ⊢ ((𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋 → 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
27	24, 26	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
28	27	ralrimiva 3154	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
29	10	fvexi 6887	. . . . . 6 ⊢ 𝐵 ∈ V
30		mptelixpg 8941	. . . . . 6 ⊢ (𝐵 ∈ V → ((𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) ↔ ∀𝑥 ∈ 𝐵 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))))
31	29, 30	ax-mp 5	. . . . 5 ⊢ ((𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) ↔ ∀𝑥 ∈ 𝐵 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
32	28, 31	sylibr 237	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
33		fveq2 6873	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((1^st ‘𝐺)‘𝑥) = ((1^st ‘𝐺)‘𝑦))
34		fveq2 6873	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((1^st ‘𝐹)‘𝑥) = ((1^st ‘𝐹)‘𝑦))
35	33, 34	oveq12d 7426	. . . . 5 ⊢ (𝑥 = 𝑦 → (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) = (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
36	35	cbvixpv 8921	. . . 4 ⊢ X𝑥 ∈ 𝐵 (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) = X𝑦 ∈ 𝐵 (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦))
37	32, 36	eleqtrdi 2870	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑦 ∈ 𝐵 (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
38		simpr2 1214	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ 𝐵)
39		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝑥 ∈ 𝐵)
40		eqid 2760	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ 𝐵 ↦ 𝑋) = (𝑥 ∈ 𝐵 ↦ 𝑋)
41	40	fvmpt2 6993	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = 𝑋)
42	39, 27, 41	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = 𝑋)
43	2, 42	breqtrrd 5132	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥))
44	43	ralrimiva 3154	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥))
45	44	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥))
46		nfcv 2922	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥(𝑈‘𝑧)
47		nfcv 2922	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))
48		nffvmpt1 6884	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)
49	46, 47, 48	nfbr 5151	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑥(𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)
50		fveq2 6873	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → (𝑈‘𝑥) = (𝑈‘𝑧))
51		fveq2 6873	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝐹)‘𝑥) = ((1^st ‘𝐹)‘𝑧))
52		fveq2 6873	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝐺)‘𝑥) = ((1^st ‘𝐺)‘𝑧))
53	51, 52	oveq12d 7426	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) = (((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧)))
54		fveq2 6873	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧))
55	50, 53, 54	breq123d 5116	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑧 → ((𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) ↔ (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)))
56	49, 55	rspc 3564	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐵 → (∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) → (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)))
57	38, 45, 56	sylc 66	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧))
58	8	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐷 ∈ Cat)
59	14	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐹):𝐵⟶(Base‘𝐷))
60	59, 38	ffvelcdmd 7073	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐹)‘𝑧) ∈ (Base‘𝐷))
61	19	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐺):𝐵⟶(Base‘𝐷))
62	61, 38	ffvelcdmd 7073	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐺)‘𝑧) ∈ (Base‘𝐷))
63		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (Sect‘𝐷) = (Sect‘𝐷)
64	3, 4, 58, 60, 62, 63	isinv 17896	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ↔ ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(((1^st ‘𝐺)‘𝑧)(Sect‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧))))
65	57, 64	mpbid 235	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(((1^st ‘𝐺)‘𝑧)(Sect‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧)))
66	65	simpld 500	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧))
67		eqid 2760	. . . . . . . . . . . 12 ⊢ (comp‘𝐷) = (comp‘𝐷)
68		eqid 2760	. . . . . . . . . . . 12 ⊢ (Id‘𝐷) = (Id‘𝐷)
69	3, 21, 67, 68, 63, 58, 60, 62	issect 17889	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ↔ ((𝑈‘𝑧) ∈ (((1^st ‘𝐹)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∈ (((1^st ‘𝐺)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)) ∧ (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧)) = ((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧)))))
70	66, 69	mpbid 235	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧) ∈ (((1^st ‘𝐹)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∈ (((1^st ‘𝐺)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)) ∧ (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧)) = ((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧))))
71	70	simp3d 1162	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧)) = ((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧)))
72	71	oveq1d 7423	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧))(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)) = (((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧))(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)))
73		simpr1 1213	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ 𝐵)
74	59, 73	ffvelcdmd 7073	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐹)‘𝑦) ∈ (Base‘𝐷))
75		eqid 2760	. . . . . . . . . . 11 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
76	13	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
77	10, 75, 21, 76, 73, 38	funcf2 18004	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2^nd ‘𝐹)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)))
78		simpr3 1215	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))
79	77, 78	ffvelcdmd 7073	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)))
80	3, 21, 68, 58, 74, 67, 60, 79	catlid 17818	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧))(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)) = ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓))
81	72, 80	eqtr2d 2796	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓) = ((((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧))(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)))
82		fuciso.n	. . . . . . . . 9 ⊢ 𝑁 = (𝐶 Nat 𝐷)
83	1	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑈 ∈ (𝐹𝑁𝐺))
84	82, 83	nat1st2nd 18090	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑈 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
85	82, 84, 10, 21, 38	natcl 18092	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑧) ∈ (((1^st ‘𝐹)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
86	70	simp2d 1161	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∈ (((1^st ‘𝐺)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)))
87	3, 21, 67, 58, 74, 60, 62, 79, 85, 60, 86	catass 17821	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧))(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)) = (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑈‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓))))
88	82, 84, 10, 75, 67, 73, 38, 78	nati 18094	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)) = (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦)))
89	88	oveq2d 7424	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑈‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓))) = (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))))
90	81, 87, 89	3eqtrd 2799	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓) = (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))))
91	90	oveq1d 7423	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦)))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
92	61, 73	ffvelcdmd 7073	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐺)‘𝑦) ∈ (Base‘𝐷))
93		nfcv 2922	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥(𝑈‘𝑦)
94		nfcv 2922	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))
95		nffvmpt1 6884	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)
96	93, 94, 95	nfbr 5151	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)
97		fveq2 6873	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → (𝑈‘𝑥) = (𝑈‘𝑦))
98	34, 33	oveq12d 7426	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) = (((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦)))
99		fveq2 6873	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
100	97, 98, 99	breq123d 5116	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → ((𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) ↔ (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
101	96, 100	rspc 3564	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝐵 → (∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) → (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
102	73, 45, 101	sylc 66	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
103	3, 4, 58, 74, 92, 63	isinv 17896	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ↔ ((𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)(Sect‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦))))
104	102, 103	mpbid 235	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)(Sect‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦)))
105	104	simprd 501	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦))
106	3, 21, 67, 68, 63, 58, 92, 74	issect 17889	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦) ↔ (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∈ (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)) ∧ (𝑈‘𝑦) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑦)) ∧ ((𝑈‘𝑦)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦)))))
107	105, 106	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∈ (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)) ∧ (𝑈‘𝑦) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑦)) ∧ ((𝑈‘𝑦)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦))))
108	107	simp1d 1160	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∈ (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
109	107	simp2d 1161	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑦) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑦)))
110	18	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
111	10, 75, 21, 110, 73, 38	funcf2 18004	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2^nd ‘𝐺)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
112	111, 78	ffvelcdmd 7073	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐺)𝑧)‘𝑓) ∈ (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
113	3, 21, 67, 58, 74, 92, 62, 109, 112	catcocl 17820	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦)) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
114	3, 21, 67, 58, 92, 74, 62, 108, 113, 60, 86	catass 17821	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦)))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))))
115	82, 84, 10, 21, 73	natcl 18092	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑦) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑦)))
116	3, 21, 67, 58, 92, 74, 92, 108, 115, 62, 112	catass 17821	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑈‘𝑦)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))))
117	107	simp3d 1162	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑦)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦)))
118	117	oveq2d 7424	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑈‘𝑦)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))) = (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦))))
119	3, 21, 68, 58, 92, 67, 62, 112	catrid 17819	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦))) = ((𝑦(2^nd ‘𝐺)𝑧)‘𝑓))
120	116, 118, 119	3eqtrd 2799	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((𝑦(2^nd ‘𝐺)𝑧)‘𝑓))
121	120	oveq2d 7424	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))) = (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)))
122	91, 114, 121	3eqtrrd 2800	. . . 4 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)) = (((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
123	122	ralrimivvva 3208	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧)(((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)) = (((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
124	82, 10, 75, 21, 67, 16, 5	isnat2 18087	. . 3 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝑋) ∈ (𝐺𝑁𝐹) ↔ ((𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑦 ∈ 𝐵 (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧)(((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)) = (((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))))
125	37, 123, 124	mpbir2and 726	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ (𝐺𝑁𝐹))
126		nfv 1947	. . . 4 ⊢ Ⅎ𝑦(𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥)
127	126, 96, 100	cbvralw 3304	. . 3 ⊢ (∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) ↔ ∀𝑦 ∈ 𝐵 (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
128	44, 127	sylib 221	. 2 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
129		fuciso.q	. . 3 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
130		fucinv.i	. . 3 ⊢ 𝐼 = (Inv‘𝑄)
131	129, 10, 82, 5, 16, 130, 4	fucinv 18112	. 2 ⊢ (𝜑 → (𝑈(𝐹𝐼𝐺)(𝑥 ∈ 𝐵 ↦ 𝑋) ↔ (𝑈 ∈ (𝐹𝑁𝐺) ∧ (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ (𝐺𝑁𝐹) ∧ ∀𝑦 ∈ 𝐵 (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))))
132	1, 125, 128, 131	mpbir3and 1361	1 ⊢ (𝜑 → 𝑈(𝐹𝐼𝐺)(𝑥 ∈ 𝐵 ↦ 𝑋))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ∀wral 3076 Vcvv 3450 ⟨cop 4589 class class class wbr 5102 ↦ cmpt 5185 × cxp 5645 Rel wrel 5652 ⟶wf 6523 ‘cfv 6527 (class class class)co 7408 1^st c1st 7982 2^nd c2nd 7983 Xcixp 8903 Basecbs 17348 Hom chom 17400 compcco 17401 Catccat 17799 Idccid 17800 Sectcsect 17880 Invcinv 17881 Func cfunc 17990 Nat cnat 18080 FuncCat cfuc 18081

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 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7734 ax-cnex 11227 ax-resscn 11228 ax-1cn 11229 ax-icn 11230 ax-addcl 11231 ax-addrcl 11232 ax-mulcl 11233 ax-mulrcl 11234 ax-mulcom 11235 ax-addass 11236 ax-mulass 11237 ax-distr 11238 ax-i2m1 11239 ax-1ne0 11240 ax-1rid 11241 ax-rnegex 11242 ax-rrecex 11243 ax-cnre 11244 ax-pre-lttri 11245 ax-pre-lttrn 11246 ax-pre-ltadd 11247 ax-pre-mulgt0 11248

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 3739 df-csb 3847 df-dif 3901 df-un 3903 df-in 3905 df-ss 3915 df-pss 3918 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4584 df-pr 4586 df-tp 4588 df-op 4590 df-uni 4867 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5542 df-eprel 5547 df-po 5555 df-so 5556 df-fr 5600 df-we 5602 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-pred 6293 df-ord 6354 df-on 6355 df-lim 6356 df-suc 6357 df-iota 6483 df-fun 6529 df-fn 6530 df-f 6531 df-f1 6532 df-fo 6533 df-f1o 6534 df-fv 6535 df-riota 7365 df-ov 7411 df-oprab 7412 df-mpo 7413 df-om 7861 df-1st 7984 df-2nd 7985 df-frecs 8277 df-wrecs 8308 df-recs 8357 df-rdg 8396 df-1o 8454 df-er 8695 df-map 8827 df-ixp 8904 df-en 8952 df-dom 8953 df-sdom 8954 df-fin 8955 df-pnf 11316 df-mnf 11317 df-xr 11318 df-ltxr 11319 df-le 11320 df-sub 11514 df-neg 11515 df-nn 12305 df-2 12374 df-3 12375 df-4 12376 df-5 12377 df-6 12378 df-7 12379 df-8 12380 df-9 12381 df-n0 12576 df-z 12663 df-dec 12784 df-uz 12935 df-fz 13609 df-struct 17286 df-slot 17321 df-ndx 17333 df-base 17349 df-hom 17413 df-cco 17414 df-cat 17803 df-cid 17804 df-sect 17883 df-inv 17884 df-func 17994 df-nat 18082 df-fuc 18083

This theorem is used by: fuciso 18114 yonedainv 18416

W3C validator