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 17923

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 2732	. . . . . . . . . 10 ⊢ (Base‘𝐷) = (Base‘𝐷)
4		fucinv.j	. . . . . . . . . 10 ⊢ 𝐽 = (Inv‘𝐷)
5		fuciso.f	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
6		funcrcl 17809	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
7	5, 6	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
8	7	simprd 496	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ Cat)
9	8	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐷 ∈ Cat)
10		fuciso.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝐶)
11		relfunc 17808	. . . . . . . . . . . . 13 ⊢ Rel (𝐶 Func 𝐷)
12		1st2ndbr 8024	. . . . . . . . . . . . 13 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
13	11, 5, 12	sylancr 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
14	10, 3, 13	funcf1 17812	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘𝐹):𝐵⟶(Base‘𝐷))
15	14	ffvelcdmda 7083	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
16		fuciso.g	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
17		1st2ndbr 8024	. . . . . . . . . . . . 13 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
18	11, 16, 17	sylancr 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
19	10, 3, 18	funcf1 17812	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘𝐺):𝐵⟶(Base‘𝐷))
20	19	ffvelcdmda 7083	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((1^st ‘𝐺)‘𝑥) ∈ (Base‘𝐷))
21		eqid 2732	. . . . . . . . . 10 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22	3, 4, 9, 15, 20, 21	invss 17704	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) ⊆ ((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))))
23	22	ssbrd 5190	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))𝑋 → (𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋))
24	2, 23	mpd 15	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋)
25		brxp 5723	. . . . . . . 8 ⊢ ((𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋 ↔ ((𝑈‘𝑥) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) ∧ 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))))
26	25	simprbi 497	. . . . . . 7 ⊢ ((𝑈‘𝑥)((((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑥)) × (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))𝑋 → 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
27	24, 26	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
28	27	ralrimiva 3146	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
29	10	fvexi 6902	. . . . . 6 ⊢ 𝐵 ∈ V
30		mptelixpg 8925	. . . . . 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 233	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
33		fveq2 6888	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((1^st ‘𝐺)‘𝑥) = ((1^st ‘𝐺)‘𝑦))
34		fveq2 6888	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((1^st ‘𝐹)‘𝑥) = ((1^st ‘𝐹)‘𝑦))
35	33, 34	oveq12d 7423	. . . . 5 ⊢ (𝑥 = 𝑦 → (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) = (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
36	35	cbvixpv 8905	. . . 4 ⊢ X𝑥 ∈ 𝐵 (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) = X𝑦 ∈ 𝐵 (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦))
37	32, 36	eleqtrdi 2843	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ X𝑦 ∈ 𝐵 (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
38		simpr2 1195	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ 𝐵)
39		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝑥 ∈ 𝐵)
40		eqid 2732	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ 𝐵 ↦ 𝑋) = (𝑥 ∈ 𝐵 ↦ 𝑋)
41	40	fvmpt2 7006	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑋 ∈ (((1^st ‘𝐺)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = 𝑋)
42	39, 27, 41	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = 𝑋)
43	2, 42	breqtrrd 5175	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥))
44	43	ralrimiva 3146	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥))
45	44	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥))
46		nfcv 2903	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥(𝑈‘𝑧)
47		nfcv 2903	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))
48		nffvmpt1 6899	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)
49	46, 47, 48	nfbr 5194	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑥(𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)
50		fveq2 6888	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → (𝑈‘𝑥) = (𝑈‘𝑧))
51		fveq2 6888	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝐹)‘𝑥) = ((1^st ‘𝐹)‘𝑧))
52		fveq2 6888	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝐺)‘𝑥) = ((1^st ‘𝐺)‘𝑧))
53	51, 52	oveq12d 7423	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) = (((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧)))
54		fveq2 6888	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧))
55	50, 53, 54	breq123d 5161	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑧 → ((𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) ↔ (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)))
56	49, 55	rspc 3600	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐵 → (∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) → (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)))
57	38, 45, 56	sylc 65	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧))
58	8	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐷 ∈ Cat)
59	14	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐹):𝐵⟶(Base‘𝐷))
60	59, 38	ffvelcdmd 7084	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐹)‘𝑧) ∈ (Base‘𝐷))
61	19	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐺):𝐵⟶(Base‘𝐷))
62	61, 38	ffvelcdmd 7084	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐺)‘𝑧) ∈ (Base‘𝐷))
63		eqid 2732	. . . . . . . . . . . . . 14 ⊢ (Sect‘𝐷) = (Sect‘𝐷)
64	3, 4, 58, 60, 62, 63	isinv 17703	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)𝐽((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ↔ ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(((1^st ‘𝐺)‘𝑧)(Sect‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧))))
65	57, 64	mpbid 231	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(((1^st ‘𝐺)‘𝑧)(Sect‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧)))
66	65	simpld 495	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑧)(((1^st ‘𝐹)‘𝑧)(Sect‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧))
67		eqid 2732	. . . . . . . . . . . 12 ⊢ (comp‘𝐷) = (comp‘𝐷)
68		eqid 2732	. . . . . . . . . . . 12 ⊢ (Id‘𝐷) = (Id‘𝐷)
69	3, 21, 67, 68, 63, 58, 60, 62	issect 17696	. . . . . . . . . . 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 231	. . . . . . . . . 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 1144	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑧), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(𝑈‘𝑧)) = ((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧)))
72	71	oveq1d 7420	. . . . . . . 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 1194	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ 𝐵)
74	59, 73	ffvelcdmd 7084	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐹)‘𝑦) ∈ (Base‘𝐷))
75		eqid 2732	. . . . . . . . . . 11 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
76	13	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
77	10, 75, 21, 76, 73, 38	funcf2 17814	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2^nd ‘𝐹)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)))
78		simpr3 1196	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))
79	77, 78	ffvelcdmd 7084	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)))
80	3, 21, 68, 58, 74, 67, 60, 79	catlid 17623	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((Id‘𝐷)‘((1^st ‘𝐹)‘𝑧))(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)) = ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓))
81	72, 80	eqtr2d 2773	. . . . . . 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 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑈 ∈ (𝐹𝑁𝐺))
84	82, 83	nat1st2nd 17898	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑈 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
85	82, 84, 10, 21, 38	natcl 17900	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑧) ∈ (((1^st ‘𝐹)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
86	70	simp2d 1143	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧) ∈ (((1^st ‘𝐺)‘𝑧)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑧)))
87	3, 21, 67, 58, 74, 60, 62, 79, 85, 60, 86	catass 17626	. . . . . . 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 17902	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐹)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)) = (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦)))
89	88	oveq2d 7421	. . . . . . 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 2776	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐹)𝑧)‘𝑓) = (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))(((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))))
91	90	oveq1d 7420	. . . . 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 7084	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1^st ‘𝐺)‘𝑦) ∈ (Base‘𝐷))
93		nfcv 2903	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥(𝑈‘𝑦)
94		nfcv 2903	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))
95		nffvmpt1 6899	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)
96	93, 94, 95	nfbr 5194	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)
97		fveq2 6888	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → (𝑈‘𝑥) = (𝑈‘𝑦))
98	34, 33	oveq12d 7423	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) = (((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦)))
99		fveq2 6888	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) = ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
100	97, 98, 99	breq123d 5161	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → ((𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) ↔ (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
101	96, 100	rspc 3600	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝐵 → (∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) → (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
102	73, 45, 101	sylc 65	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
103	3, 4, 58, 74, 92, 63	isinv 17703	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ↔ ((𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)(Sect‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦))))
104	102, 103	mpbid 231	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)(Sect‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∧ ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦)))
105	104	simprd 496	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)(((1^st ‘𝐺)‘𝑦)(Sect‘𝐷)((1^st ‘𝐹)‘𝑦))(𝑈‘𝑦))
106	3, 21, 67, 68, 63, 58, 92, 74	issect 17696	. . . . . . . 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 231	. . . . . . 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 1142	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦) ∈ (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
109	107	simp2d 1143	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑦) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑦)))
110	18	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
111	10, 75, 21, 110, 73, 38	funcf2 17814	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2^nd ‘𝐺)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
112	111, 78	ffvelcdmd 7084	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2^nd ‘𝐺)𝑧)‘𝑓) ∈ (((1^st ‘𝐺)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑧)))
113	3, 21, 67, 58, 74, 92, 62, 109, 112	catcocl 17625	. . . . . 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 17626	. . . . 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 17900	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑈‘𝑦) ∈ (((1^st ‘𝐹)‘𝑦)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑦)))
116	3, 21, 67, 58, 92, 74, 92, 108, 115, 62, 112	catass 17626	. . . . . . 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 1144	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑈‘𝑦)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦)))
118	117	oveq2d 7421	. . . . . . 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 17624	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((Id‘𝐷)‘((1^st ‘𝐺)‘𝑦))) = ((𝑦(2^nd ‘𝐺)𝑧)‘𝑓))
120	116, 118, 119	3eqtrd 2776	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)(⟨((1^st ‘𝐹)‘𝑦), ((1^st ‘𝐺)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))(𝑈‘𝑦))(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)) = ((𝑦(2^nd ‘𝐺)𝑧)‘𝑓))
121	120	oveq2d 7421	. . . . 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 2777	. . . 4 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑧)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐺)‘𝑧)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑦(2^nd ‘𝐺)𝑧)‘𝑓)) = (((𝑦(2^nd ‘𝐹)𝑧)‘𝑓)(⟨((1^st ‘𝐺)‘𝑦), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑧))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦)))
123	122	ralrimivvva 3203	. . 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 17895	. . 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 711	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ (𝐺𝑁𝐹))
126		nfv 1917	. . . 4 ⊢ Ⅎ𝑦(𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥)
127	126, 96, 100	cbvralw 3303	. . 3 ⊢ (∀𝑥 ∈ 𝐵 (𝑈‘𝑥)(((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑥) ↔ ∀𝑦 ∈ 𝐵 (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
128	44, 127	sylib 217	. 2 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))
129		fuciso.q	. . 3 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
130		fucinv.i	. . 3 ⊢ 𝐼 = (Inv‘𝑄)
131	129, 10, 82, 5, 16, 130, 4	fucinv 17922	. 2 ⊢ (𝜑 → (𝑈(𝐹𝐼𝐺)(𝑥 ∈ 𝐵 ↦ 𝑋) ↔ (𝑈 ∈ (𝐹𝑁𝐺) ∧ (𝑥 ∈ 𝐵 ↦ 𝑋) ∈ (𝐺𝑁𝐹) ∧ ∀𝑦 ∈ 𝐵 (𝑈‘𝑦)(((1^st ‘𝐹)‘𝑦)𝐽((1^st ‘𝐺)‘𝑦))((𝑥 ∈ 𝐵 ↦ 𝑋)‘𝑦))))
132	1, 125, 128, 131	mpbir3and 1342	1 ⊢ (𝜑 → 𝑈(𝐹𝐼𝐺)(𝑥 ∈ 𝐵 ↦ 𝑋))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ∈ wcel 2106 ∀wral 3061 Vcvv 3474 ⟨cop 4633 class class class wbr 5147 ↦ cmpt 5230 × cxp 5673 Rel wrel 5680 ⟶wf 6536 ‘cfv 6540 (class class class)co 7405 1^st c1st 7969 2^nd c2nd 7970 Xcixp 8887 Basecbs 17140 Hom chom 17204 compcco 17205 Catccat 17604 Idccid 17605 Sectcsect 17687 Invcinv 17688 Func cfunc 17800 Nat cnat 17888 FuncCat cfuc 17889

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 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-tp 4632 df-op 4634 df-uni 4908 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-om 7852 df-1st 7971 df-2nd 7972 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-1o 8462 df-er 8699 df-map 8818 df-ixp 8888 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-nn 12209 df-2 12271 df-3 12272 df-4 12273 df-5 12274 df-6 12275 df-7 12276 df-8 12277 df-9 12278 df-n0 12469 df-z 12555 df-dec 12674 df-uz 12819 df-fz 13481 df-struct 17076 df-slot 17111 df-ndx 17123 df-base 17141 df-hom 17217 df-cco 17218 df-cat 17608 df-cid 17609 df-sect 17690 df-inv 17691 df-func 17804 df-nat 17890 df-fuc 17891

This theorem is referenced by: fuciso 17924 yonedainv 18230

W3C validator