Theorem funcrngcsetc 20677

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 20678, using cofuval2 17911 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 20676, and the "natural forgetful functor" from the category of extensible structures into the category of sets, see funcestrcsetc 18172. (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 2761	. . . . . 6 ⊢ (ExtStrCat‘𝑈) = (ExtStrCat‘𝑈)
2		funcrngcsetc.s	. . . . . 6 ⊢ 𝑆 = (SetCat‘𝑈)
3		eqid 2761	. . . . . 6 ⊢ (Base‘(ExtStrCat‘𝑈)) = (Base‘(ExtStrCat‘𝑈))
4		eqid 2761	. . . . . 6 ⊢ (Base‘𝑆) = (Base‘𝑆)
5		funcrngcsetc.u	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ WUni)
6	1, 5	estrcbas 18148	. . . . . . 7 ⊢ (𝜑 → 𝑈 = (Base‘(ExtStrCat‘𝑈)))
7	6	mpteq1d 5187	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) = (𝑥 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ (Base‘𝑥)))
8		mpoeq12 7464	. . . . . . 7 ⊢ ((𝑈 = (Base‘(ExtStrCat‘𝑈)) ∧ 𝑈 = (Base‘(ExtStrCat‘𝑈))) → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) = (𝑥 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑦 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
9	6, 6, 8	syl2anc 593	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) = (𝑥 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑦 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
10	1, 2, 3, 4, 5, 7, 9	funcestrcsetc 18172	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥))((ExtStrCat‘𝑈) Func 𝑆)(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
11		df-br 5098	. . . . 5 ⊢ ((𝑥 ∈ 𝑈 ↦ (Base‘𝑥))((ExtStrCat‘𝑈) Func 𝑆)(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) ↔ ⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ∈ ((ExtStrCat‘𝑈) Func 𝑆))
12	10, 11	sylib 220	. . . 4 ⊢ (𝜑 → ⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ∈ ((ExtStrCat‘𝑈) Func 𝑆))
13		funcrngcsetc.r	. . . . . . 7 ⊢ 𝑅 = (RngCat‘𝑈)
14		eqid 2761	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
15	13, 14, 5	rngcbas 20658	. . . . . 6 ⊢ (𝜑 → (Base‘𝑅) = (𝑈 ∩ Rng))
16		incom 4159	. . . . . 6 ⊢ (𝑈 ∩ Rng) = (Rng ∩ 𝑈)
17	15, 16	eqtrdi 2812	. . . . 5 ⊢ (𝜑 → (Base‘𝑅) = (Rng ∩ 𝑈))
18		eqid 2761	. . . . . 6 ⊢ (Hom ‘𝑅) = (Hom ‘𝑅)
19	13, 14, 5, 18	rngchomfval 20659	. . . . 5 ⊢ (𝜑 → (Hom ‘𝑅) = ( RngHom ↾ ((Base‘𝑅) × (Base‘𝑅))))
20	1, 5, 17, 19	rnghmsubcsetc 20670	. . . 4 ⊢ (𝜑 → (Hom ‘𝑅) ∈ (Subcat‘(ExtStrCat‘𝑈)))
21	12, 20	funcres 17920	. . 3 ⊢ (𝜑 → (⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ↾f (Hom ‘𝑅)) ∈ (((ExtStrCat‘𝑈) ↾cat (Hom ‘𝑅)) Func 𝑆))
22		mptexg 7200	. . . . . 6 ⊢ (𝑈 ∈ WUni → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ∈ V)
23	5, 22	syl 17	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ∈ V)
24		fvex 6875	. . . . . 6 ⊢ (Hom ‘𝑅) ∈ V
25	24	a1i 11	. . . . 5 ⊢ (𝜑 → (Hom ‘𝑅) ∈ V)
26		mpoexga 8053	. . . . . 6 ⊢ ((𝑈 ∈ WUni ∧ 𝑈 ∈ WUni) → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) ∈ V)
27	5, 5, 26	syl2anc 593	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) ∈ V)
28	15, 19	rnghmresfn 20656	. . . . 5 ⊢ (𝜑 → (Hom ‘𝑅) Fn ((Base‘𝑅) × (Base‘𝑅)))
29	23, 25, 27, 28	resfval2 17917	. . . 4 ⊢ (𝜑 → (⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ↾f (Hom ‘𝑅)) = ⟨((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)), (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)))⟩)
30		inss1 4186	. . . . . . . 8 ⊢ (𝑈 ∩ Rng) ⊆ 𝑈
31	15, 30	eqsstrdi 3978	. . . . . . 7 ⊢ (𝜑 → (Base‘𝑅) ⊆ 𝑈)
32	31	resmptd 6025	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)) = (𝑥 ∈ (Base‘𝑅) ↦ (Base‘𝑥)))
33		funcrngcsetc.f	. . . . . . 7 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)))
34		funcrngcsetc.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑅)
35	34	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝑅))
36	35	mpteq1d 5187	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)) = (𝑥 ∈ (Base‘𝑅) ↦ (Base‘𝑥)))
37	33, 36	eqtr2d 2797	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝑅) ↦ (Base‘𝑥)) = 𝐹)
38	32, 37	eqtrd 2796	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)) = 𝐹)
39		funcrngcsetc.g	. . . . . 6 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))))
40		oveq1 7398	. . . . . . . . 9 ⊢ (𝑥 = 𝑎 → (𝑥 RngHom 𝑦) = (𝑎 RngHom 𝑦))
41	40	reseq2d 5961	. . . . . . . 8 ⊢ (𝑥 = 𝑎 → ( I ↾ (𝑥 RngHom 𝑦)) = ( I ↾ (𝑎 RngHom 𝑦)))
42		oveq2 7399	. . . . . . . . 9 ⊢ (𝑦 = 𝑏 → (𝑎 RngHom 𝑦) = (𝑎 RngHom 𝑏))
43	42	reseq2d 5961	. . . . . . . 8 ⊢ (𝑦 = 𝑏 → ( I ↾ (𝑎 RngHom 𝑦)) = ( I ↾ (𝑎 RngHom 𝑏)))
44	41, 43	cbvmpov 7486	. . . . . . 7 ⊢ (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))) = (𝑎 ∈ 𝐵, 𝑏 ∈ 𝐵 ↦ ( I ↾ (𝑎 RngHom 𝑏)))
45	44	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))) = (𝑎 ∈ 𝐵, 𝑏 ∈ 𝐵 ↦ ( I ↾ (𝑎 RngHom 𝑏))))
46	34	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → 𝐵 = (Base‘𝑅))
47		eqidd 2762	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))) = (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥)))))
48		fveq2 6862	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑏 → (Base‘𝑦) = (Base‘𝑏))
49		fveq2 6862	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑎 → (Base‘𝑥) = (Base‘𝑎))
50	48, 49	oveqan12rd 7411	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((Base‘𝑦) ↑m (Base‘𝑥)) = ((Base‘𝑏) ↑m (Base‘𝑎)))
51	50	reseq2d 5961	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) = ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))))
52	51	adantl 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) = ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))))
53	34, 31	eqsstrid 3972	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ⊆ 𝑈)
54	53	sseld 3933	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑎 ∈ 𝐵 → 𝑎 ∈ 𝑈))
55	54	com12 32	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ 𝐵 → (𝜑 → 𝑎 ∈ 𝑈))
56	55	adantr 484	. . . . . . . . . . 11 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵) → (𝜑 → 𝑎 ∈ 𝑈))
57	56	impcom 411	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑎 ∈ 𝑈)
58	53	sseld 3933	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑏 ∈ 𝐵 → 𝑏 ∈ 𝑈))
59	58	adantld 494	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝑈))
60	59	imp 410	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑏 ∈ 𝑈)
61		ovexd 7426	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ((Base‘𝑏) ↑m (Base‘𝑎)) ∈ V)
62	61	resiexd 7195	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ∈ V)
63	47, 52, 57, 60, 62	ovmpod 7543	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) = ( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))))
64	63	reseq1d 5960	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)) = (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎(Hom ‘𝑅)𝑏)))
65	5	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑈 ∈ WUni)
66		simprl 780	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑎 ∈ 𝐵)
67		simprr 782	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → 𝑏 ∈ 𝐵)
68	13, 34, 65, 18, 66, 67	rngchom 20660	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑎(Hom ‘𝑅)𝑏) = (𝑎 RngHom 𝑏))
69	68	reseq2d 5961	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎(Hom ‘𝑅)𝑏)) = (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎 RngHom 𝑏)))
70		eqid 2761	. . . . . . . . . . . 12 ⊢ (Base‘𝑎) = (Base‘𝑎)
71		eqid 2761	. . . . . . . . . . . 12 ⊢ (Base‘𝑏) = (Base‘𝑏)
72	70, 71	rnghmf 20484	. . . . . . . . . . 11 ⊢ (𝑓 ∈ (𝑎 RngHom 𝑏) → 𝑓:(Base‘𝑎)⟶(Base‘𝑏))
73		fvex 6875	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑏) ∈ V
74		fvex 6875	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑎) ∈ V
75	73, 74	pm3.2i 474	. . . . . . . . . . . . 13 ⊢ ((Base‘𝑏) ∈ V ∧ (Base‘𝑎) ∈ V)
76	75	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ((Base‘𝑏) ∈ V ∧ (Base‘𝑎) ∈ V))
77		elmapg 8814	. . . . . . . . . . . 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 248	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑓 ∈ (𝑎 RngHom 𝑏) → 𝑓 ∈ ((Base‘𝑏) ↑m (Base‘𝑎))))
80	79	ssrdv 3940	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (𝑎 RngHom 𝑏) ⊆ ((Base‘𝑏) ↑m (Base‘𝑎)))
81	80	resabs1d 5990	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (( I ↾ ((Base‘𝑏) ↑m (Base‘𝑎))) ↾ (𝑎 RngHom 𝑏)) = ( I ↾ (𝑎 RngHom 𝑏)))
82	64, 69, 81	3eqtrrd 2801	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → ( I ↾ (𝑎 RngHom 𝑏)) = ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)))
83	35, 46, 82	mpoeq123dva 7465	. . . . . 6 ⊢ (𝜑 → (𝑎 ∈ 𝐵, 𝑏 ∈ 𝐵 ↦ ( I ↾ (𝑎 RngHom 𝑏))) = (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏))))
84	39, 45, 83	3eqtrrd 2801	. . . . 5 ⊢ (𝜑 → (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏))) = 𝐺)
85	38, 84	opeq12d 4836	. . . 4 ⊢ (𝜑 → ⟨((𝑥 ∈ 𝑈 ↦ (Base‘𝑥)) ↾ (Base‘𝑅)), (𝑎 ∈ (Base‘𝑅), 𝑏 ∈ (Base‘𝑅) ↦ ((𝑎(𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))𝑏) ↾ (𝑎(Hom ‘𝑅)𝑏)))⟩ = ⟨𝐹, 𝐺⟩)
86	29, 85	eqtr2d 2797	. . 3 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ = (⟨(𝑥 ∈ 𝑈 ↦ (Base‘𝑥)), (𝑥 ∈ 𝑈, 𝑦 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))⟩ ↾f (Hom ‘𝑅)))
87	13, 5, 15, 19	rngcval 20655	. . . 4 ⊢ (𝜑 → 𝑅 = ((ExtStrCat‘𝑈) ↾cat (Hom ‘𝑅)))
88	87	oveq1d 7406	. . 3 ⊢ (𝜑 → (𝑅 Func 𝑆) = (((ExtStrCat‘𝑈) ↾cat (Hom ‘𝑅)) Func 𝑆))
89	21, 86, 88	3eltr4d 2876	. 2 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
90		df-br 5098	. 2 ⊢ (𝐹(𝑅 Func 𝑆)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
91	89, 90	sylibr 236	1 ⊢ (𝜑 → 𝐹(𝑅 Func 𝑆)𝐺)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1559   ∈ wcel 2141  Vcvv 3453   ∩ cin 3901  ⟨cop 4585   class class class wbr 5097   ↦ cmpt 5178   I cid 5537   ↾ cres 5645  ⟶wf 6512  ‘cfv 6516  (class class class)co 7391   ∈ cmpo 7393   ↑_m cmap 8802  WUnicwun 10652  Basecbs 17236  Hom chom 17288   ↾_cat cresc 17832   Func cfunc 17878   ↾_f cresf 17881  SetCatcsetc 18099  ExtStrCatcestrc 18145  Rngcrng 20189   RngHom crnghm 20470  RngCatcrngc 20653

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713  ax-cnex 11123  ax-resscn 11124  ax-1cn 11125  ax-icn 11126  ax-addcl 11127  ax-addrcl 11128  ax-mulcl 11129  ax-mulrcl 11130  ax-mulcom 11131  ax-addass 11132  ax-mulass 11133  ax-distr 11134  ax-i2m1 11135  ax-1ne0 11136  ax-1rid 11137  ax-rnegex 11138  ax-rrecex 11139  ax-cnre 11140  ax-pre-lttri 11141  ax-pre-lttrn 11142  ax-pre-ltadd 11143  ax-pre-mulgt0 11144

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6283  df-ord 6344  df-on 6345  df-lim 6346  df-suc 6347  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7348  df-ov 7394  df-oprab 7395  df-mpo 7396  df-om 7842  df-1st 7965  df-2nd 7966  df-frecs 8256  df-wrecs 8287  df-recs 8336  df-rdg 8375  df-1o 8431  df-er 8672  df-map 8804  df-pm 8805  df-ixp 8874  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-wun 10654  df-pnf 11212  df-mnf 11213  df-xr 11214  df-ltxr 11215  df-le 11216  df-sub 11410  df-neg 11411  df-nn 12205  df-2 12274  df-3 12275  df-4 12276  df-5 12277  df-6 12278  df-7 12279  df-8 12280  df-9 12281  df-n0 12476  df-z 12563  df-dec 12683  df-uz 12834  df-fz 13507  df-struct 17174  df-sets 17191  df-slot 17209  df-ndx 17221  df-base 17237  df-ress 17258  df-plusg 17290  df-hom 17301  df-cco 17302  df-0g 17461  df-cat 17691  df-cid 17692  df-homf 17693  df-ssc 17834  df-resc 17835  df-subc 17836  df-func 17882  df-resf 17885  df-setc 18100  df-estrc 18146  df-mgm 18665  df-mgmhm 18717  df-sgrp 18744  df-mnd 18760  df-mhm 18808  df-grp 18969  df-ghm 19245  df-abl 19814  df-mgp 20178  df-rng 20190  df-rnghm 20472  df-rngc 20654

This theorem is referenced by: (None)