Theorem funcrngcsetc 20612

Description: The "natural forgetful functor" from the category of non-unital rings into the category of sets which sends each non-unital ring to its underlying set (base set) and the morphisms (non-unital ring homomorphisms) to mappings of the corresponding base sets. An alternate proof is provided in funcrngcsetcALT 20613, using cofuval2 17845 to construct the "natural forgetful functor" from the category of non-unital rings into the category of sets by composing the "inclusion functor" from the category of non-unital rings into the category of extensible structures, see rngcifuestrc 20611, and the "natural forgetful functor" from the category of extensible structures into the category of sets, see funcestrcsetc 18106. (Contributed by AV, 26-Mar-2020.)

Hypotheses

Ref	Expression
funcrngcsetc.r	⊢ 𝑅 = (RngCat‘𝑈)
funcrngcsetc.s	⊢ 𝑆 = (SetCat‘𝑈)
funcrngcsetc.b	⊢ 𝐵 = (Base‘𝑅)
funcrngcsetc.u	⊢ (𝜑 → 𝑈 ∈ WUni)
funcrngcsetc.f	⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)))
funcrngcsetc.g	⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))))

Assertion

Ref	Expression
funcrngcsetc	⊢ (𝜑 → 𝐹(𝑅 Func 𝑆)𝐺)

Distinct variable groups:   𝑥,𝐵,𝑦   𝑥,𝑅,𝑦   𝑥,𝑆   𝑥,𝑈,𝑦   𝜑,𝑥,𝑦

Allowed substitution hints:   𝑆(𝑦)   𝐹(𝑥,𝑦)   𝐺(𝑥,𝑦)

Proof of Theorem funcrngcsetc

Dummy variables 𝑎 𝑏 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2739	. . . . . 6 ⊢ (ExtStrCat‘𝑈) = (ExtStrCat‘𝑈)
2		funcrngcsetc.s	. . . . . 6 ⊢ 𝑆 = (SetCat‘𝑈)
3		eqid 2739	. . . . . 6 ⊢ (Base‘(ExtStrCat‘𝑈)) = (Base‘(ExtStrCat‘𝑈))
4		eqid 2739	. . . . . 6 ⊢ (Base‘𝑆) = (Base‘𝑆)
5		funcrngcsetc.u	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ WUni)
6	1, 5	estrcbas 18082	. . . . . . 7 ⊢ (𝜑 → 𝑈 = (Base‘(ExtStrCat‘𝑈)))
7	6	mpteq1d 5162	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) = (𝑥 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ (Base‘𝑥)))
8		mpoeq12 7429	. . . . . . 7 ⊢ ((𝑈 = (Base‘(ExtStrCat‘𝑈)) ∧ 𝑈 = (Base‘(ExtStrCat‘𝑈))) → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) = (𝑥 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑦 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
9	6, 6, 8	syl2anc 590	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) = (𝑥 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑦 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
10	1, 2, 3, 4, 5, 7, 9	funcestrcsetc 18106	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥))((ExtStrCat‘𝑈) Func 𝑆)(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
11		df-br 5073	. . . . 5 ⊢ ((𝑥 ∈ 𝑈 ↦ (Base‘𝑥))((ExtStrCat‘𝑈) Func 𝑆)(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) ↔ ⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ∈ ((ExtStrCat‘𝑈) Func 𝑆))
12	10, 11	sylib 219	. . . 4 ⊢ (𝜑 → ⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ∈ ((ExtStrCat‘𝑈) Func 𝑆))
13		funcrngcsetc.r	. . . . . . 7 ⊢ 𝑅 = (RngCat‘𝑈)
14		eqid 2739	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
15	13, 14, 5	rngcbas 20593	. . . . . 6 ⊢ (𝜑 → (Base‘𝑅) = (𝑈 ∩ Rng))
16		incom 4138	. . . . . 6 ⊢ (𝑈 ∩ Rng) = (Rng ∩ 𝑈)
17	15, 16	eqtrdi 2790	. . . . 5 ⊢ (𝜑 → (Base‘𝑅) = (Rng ∩ 𝑈))
18		eqid 2739	. . . . . 6 ⊢ (Hom ‘𝑅) = (Hom ‘𝑅)
19	13, 14, 5, 18	rngchomfval 20594	. . . . 5 ⊢ (𝜑 → (Hom ‘𝑅) = ( RngHom ↾ ((Base‘𝑅) × (Base‘𝑅))))
20	1, 5, 17, 19	rnghmsubcsetc 20605	. . . 4 ⊢ (𝜑 → (Hom ‘𝑅) ∈ (Subcat‘(ExtStrCat‘𝑈)))
21	12, 20	funcres 17854	. . 3 ⊢ (𝜑 → (⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ↾f (Hom ‘𝑅)) ∈ (((ExtStrCat‘𝑈) ↾cat (Hom ‘𝑅)) Func 𝑆))
22		mptexg 7165	. . . . . 6 ⊢ (𝑈 ∈ WUni → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ∈ V)
23	5, 22	syl 17	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ∈ V)
24		fvex 6840	. . . . . 6 ⊢ (Hom ‘𝑅) ∈ V
25	24	a1i 11	. . . . 5 ⊢ (𝜑 → (Hom ‘𝑅) ∈ V)
26		mpoexga 8019	. . . . . 6 ⊢ ((𝑈 ∈ WUni ∧ 𝑈 ∈ WUni) → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) ∈ V)
27	5, 5, 26	syl2anc 590	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) ∈ V)
28	15, 19	rnghmresfn 20591	. . . . 5 ⊢ (𝜑 → (Hom ‘𝑅) Fn ((Base‘𝑅) × (Base‘𝑅)))
29	23, 25, 27, 28	resfval2 17851	. . . 4 ⊢ (𝜑 → (⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ↾f (Hom ‘𝑅)) = ⟨((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)), (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)))⟩)
30		inss1 4165	. . . . . . . 8 ⊢ (𝑈 ∩ Rng) ⊆ 𝑈
31	15, 30	eqsstrdi 3959	. . . . . . 7 ⊢ (𝜑 → (Base‘𝑅) ⊆ 𝑈)
32	31	resmptd 5992	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)) = (𝑥 ∈ (Base‘𝑅) ↦ (Base‘𝑥)))
33		funcrngcsetc.f	. . . . . . 7 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)))
34		funcrngcsetc.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑅)
35	34	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝑅))
36	35	mpteq1d 5162	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)) = (𝑥 ∈ (Base‘𝑅) ↦ (Base‘𝑥)))
37	33, 36	eqtr2d 2775	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝑅) ↦ (Base‘𝑥)) = 𝐹)
38	32, 37	eqtrd 2774	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)) = 𝐹)
39		funcrngcsetc.g	. . . . . 6 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))))
40		oveq1 7363	. . . . . . . . 9 ⊢ (𝑥 = 𝑎 → (𝑥 RngHom 𝑦) = (𝑎 RngHom 𝑦))
41	40	reseq2d 5931	. . . . . . . 8 ⊢ (𝑥 = 𝑎 → ( I ↾ (𝑥 RngHom 𝑦)) = ( I ↾ (𝑎 RngHom 𝑦)))
42		oveq2 7364	. . . . . . . . 9 ⊢ (𝑦 = 𝑏 → (𝑎 RngHom 𝑦) = (𝑎 RngHom 𝑏))
43	42	reseq2d 5931	. . . . . . . 8 ⊢ (𝑦 = 𝑏 → ( I ↾ (𝑎 RngHom 𝑦)) = ( I ↾ (𝑎 RngHom 𝑏)))
44	41, 43	cbvmpov 7451	. . . . . . 7 ⊢ (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))) = (𝑎 ∈ 𝐵, 𝑏 ∈ 𝐵 ↦ ( I ↾ (𝑎 RngHom 𝑏)))
45	44	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))) = (𝑎 ∈ 𝐵, 𝑏 ∈ 𝐵 ↦ ( I ↾ (𝑎 RngHom 𝑏))))
46	34	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → 𝐵 = (Base‘𝑅))
47		eqidd 2740	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) = (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
48		fveq2 6827	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑏 → (Base‘𝑦) = (Base‘𝑏))
49		fveq2 6827	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑎 → (Base‘𝑥) = (Base‘𝑎))
50	48, 49	oveqan12rd 7376	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((Base‘𝑦) ↑m (Base‘𝑥)) = ((Base‘𝑏) ↑m (Base‘𝑎)))
51	50	reseq2d 5931	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) = ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))))
52	51	adantl 482	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) = ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))))
53	34, 31	eqsstrid 3953	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ⊆ 𝑈)
54	53	sseld 3914	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑎 ∈ 𝐵 → 𝑎 ∈ 𝑈))
55	54	com12 32	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ 𝐵 → (𝜑 → 𝑎 ∈ 𝑈))
56	55	adantr 481	. . . . . . . . . . 11 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵) → (𝜑 → 𝑎 ∈ 𝑈))
57	56	impcom 408	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑎 ∈ 𝑈)
58	53	sseld 3914	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑏 ∈ 𝐵 → 𝑏 ∈ 𝑈))
59	58	adantld 491	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝑈))
60	59	imp 407	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑏 ∈ 𝑈)
61		ovexd 7391	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ((Base‘𝑏) ↑m (Base‘𝑎)) ∈ V)
62	61	resiexd 7160	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ∈ V)
63	47, 52, 57, 60, 62	ovmpod 7508	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) = ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))))
64	63	reseq1d 5930	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)) = (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎(Hom ‘𝑅)𝑏)))
65	5	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑈 ∈ WUni)
66		simprl 776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑎 ∈ 𝐵)
67		simprr 778	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑏 ∈ 𝐵)
68	13, 34, 65, 18, 66, 67	rngchom 20595	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑎(Hom ‘𝑅)𝑏) = (𝑎 RngHom 𝑏))
69	68	reseq2d 5931	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎(Hom ‘𝑅)𝑏)) = (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎 RngHom 𝑏)))
70		eqid 2739	. . . . . . . . . . . 12 ⊢ (Base‘𝑎) = (Base‘𝑎)
71		eqid 2739	. . . . . . . . . . . 12 ⊢ (Base‘𝑏) = (Base‘𝑏)
72	70, 71	rnghmf 20419	. . . . . . . . . . 11 ⊢ (𝑓 ∈ (𝑎 RngHom 𝑏) → 𝑓:(Base‘𝑎)⟶(Base‘𝑏))
73		fvex 6840	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑏) ∈ V
74		fvex 6840	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑎) ∈ V
75	73, 74	pm3.2i 471	. . . . . . . . . . . . 13 ⊢ ((Base‘𝑏) ∈ V ∧ (Base‘𝑎) ∈ V)
76	75	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ((Base‘𝑏) ∈ V ∧ (Base‘𝑎) ∈ V))
77		elmapg 8776	. . . . . . . . . . . 12 ⊢ (((Base‘𝑏) ∈ V ∧ (Base‘𝑎) ∈ V) → (𝑓 ∈ ((Base‘𝑏) ↑m (Base‘𝑎)) ↔ 𝑓:(Base‘𝑎)⟶(Base‘𝑏)))
78	76, 77	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑓 ∈ ((Base‘𝑏) ↑m (Base‘𝑎)) ↔ 𝑓:(Base‘𝑎)⟶(Base‘𝑏)))
79	72, 78	imbitrrid 247	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑓 ∈ (𝑎 RngHom 𝑏) → 𝑓 ∈ ((Base‘𝑏) ↑m (Base‘𝑎))))
80	79	ssrdv 3921	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑎 RngHom 𝑏) ⊆ ((Base‘𝑏) ↑m (Base‘𝑎)))
81	80	resabs1d 5960	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎 RngHom 𝑏)) = ( I ↾ (𝑎 RngHom 𝑏)))
82	64, 69, 81	3eqtrrd 2779	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ( I ↾ (𝑎 RngHom 𝑏)) = ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)))
83	35, 46, 82	mpoeq123dva 7430	. . . . . 6 ⊢ (𝜑 → (𝑎 ∈ 𝐵, 𝑏 ∈ 𝐵 ↦ ( I ↾ (𝑎 RngHom 𝑏))) = (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏))))
84	39, 45, 83	3eqtrrd 2779	. . . . 5 ⊢ (𝜑 → (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏))) = 𝐺)
85	38, 84	opeq12d 4812	. . . 4 ⊢ (𝜑 → ⟨((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)), (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)))⟩ = ⟨𝐹, 𝐺⟩)
86	29, 85	eqtr2d 2775	. . 3 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ = (⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ↾f (Hom ‘𝑅)))
87	13, 5, 15, 19	rngcval 20590	. . . 4 ⊢ (𝜑 → 𝑅 = ((ExtStrCat‘𝑈) ↾cat (Hom ‘𝑅)))
88	87	oveq1d 7371	. . 3 ⊢ (𝜑 → (𝑅 Func 𝑆) = (((ExtStrCat‘𝑈) ↾cat (Hom ‘𝑅)) Func 𝑆))
89	21, 86, 88	3eltr4d 2854	. 2 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
90		df-br 5073	. 2 ⊢ (𝐹(𝑅 Func 𝑆)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
91	89, 90	sylibr 235	1 ⊢ (𝜑 → 𝐹(𝑅 Func 𝑆)𝐺)

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  Vcvv 3431   ∩ cin 3882  ⟨cop 4561   class class class wbr 5072   ↦ cmpt 5153   I cid 5512   ↾ cres 5620  ⟶wf 6481  ‘cfv 6485  (class class class)co 7356   ∈ cmpo 7358   ↑_m cmap 8763  WUnicwun 10614  Basecbs 17170  Hom chom 17222   ↾_cat cresc 17766   Func cfunc 17812   ↾_f cresf 17815  SetCatcsetc 18033  ExtStrCatcestrc 18079  Rngcrng 20124   RngHom crnghm 20405  RngCatcrngc 20588

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-map 8765  df-pm 8766  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-wun 10616  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-7 12240  df-8 12241  df-9 12242  df-n0 12429  df-z 12516  df-dec 12636  df-uz 12780  df-fz 13453  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-hom 17235  df-cco 17236  df-0g 17395  df-cat 17625  df-cid 17626  df-homf 17627  df-ssc 17768  df-resc 17769  df-subc 17770  df-func 17816  df-resf 17819  df-setc 18034  df-estrc 18080  df-mgm 18599  df-mgmhm 18651  df-sgrp 18678  df-mnd 18694  df-mhm 18742  df-grp 18903  df-ghm 19179  df-abl 19749  df-mgp 20113  df-rng 20125  df-rnghm 20407  df-rngc 20589

This theorem is referenced by: (None)