Theorem funcrngcsetcALT 20612

Description: Alternate proof of funcrngcsetc 20611, using cofuval2 17848 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 20610, and the "natural forgetful functor" from the category of extensible structures into the category of sets, see funcestrcsetc 18109. Surprisingly, this proof is longer than the direct proof given in funcrngcsetc 20611. (Contributed by AV, 30-Mar-2020.) (Proof modification is discouraged.) (New usage is discouraged.)

Hypotheses

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

Assertion

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

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

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

Proof of Theorem funcrngcsetcALT

Dummy variables 𝑓 𝑔 𝑢 𝑤 𝑧 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		funcrngcsetcALT.f	. . . . . . 7 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)))
2		fveq2 6835	. . . . . . . 8 ⊢ (𝑥 = 𝑢 → (Base‘𝑥) = (Base‘𝑢))
3	2	cbvmptv 5190	. . . . . . 7 ⊢ (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)) = (𝑢 ∈ 𝐵 ↦ (Base‘𝑢))
4	1, 3	eqtrdi 2788	. . . . . 6 ⊢ (𝜑 → 𝐹 = (𝑢 ∈ 𝐵 ↦ (Base‘𝑢)))
5		coires1 6224	. . . . . . 7 ⊢ ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)) = ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ↾ 𝐵)
6		funcrngcsetcALT.r	. . . . . . . . . . . 12 ⊢ 𝑅 = (RngCat‘𝑈)
7		funcrngcsetcALT.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝑅)
8		funcrngcsetcALT.u	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 ∈ WUni)
9	6, 7, 8	rngcbas 20592	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 = (𝑈 ∩ Rng))
10	9	eleq2d 2823	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↔ 𝑥 ∈ (𝑈 ∩ Rng)))
11		elin 3906	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝑈 ∩ Rng) ↔ (𝑥 ∈ 𝑈 ∧ 𝑥 ∈ Rng))
12	11	simplbi 496	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝑈 ∩ Rng) → 𝑥 ∈ 𝑈)
13	10, 12	biimtrdi 253	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ 𝐵 → 𝑥 ∈ 𝑈))
14	13	ssrdv 3928	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ⊆ 𝑈)
15	14	resmptd 6000	. . . . . . 7 ⊢ (𝜑 → ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ↾ 𝐵) = (𝑢 ∈ 𝐵 ↦ (Base‘𝑢)))
16	5, 15	eqtr2id 2785	. . . . . 6 ⊢ (𝜑 → (𝑢 ∈ 𝐵 ↦ (Base‘𝑢)) = ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)))
17	4, 16	eqtrd 2772	. . . . 5 ⊢ (𝜑 → 𝐹 = ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)))
18		funcrngcsetcALT.g	. . . . . . 7 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))))
19		coires1 6224	. . . . . . . . 9 ⊢ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦))) = (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ↾ (𝑥 RngHom 𝑦))
20		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Base‘𝑥) = (Base‘𝑥)
21		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Base‘𝑦) = (Base‘𝑦)
22	20, 21	rnghmf 20422	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ (𝑥 RngHom 𝑦) → 𝑧:(Base‘𝑥)⟶(Base‘𝑦))
23		fvex 6848	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑦) ∈ V
24		fvex 6848	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑥) ∈ V
25	23, 24	pm3.2i 470	. . . . . . . . . . . . 13 ⊢ ((Base‘𝑦) ∈ V ∧ (Base‘𝑥) ∈ V)
26		elmapg 8780	. . . . . . . . . . . . 13 ⊢ (((Base‘𝑦) ∈ V ∧ (Base‘𝑥) ∈ V) → (𝑧 ∈ ((Base‘𝑦) ↑m (Base‘𝑥)) ↔ 𝑧:(Base‘𝑥)⟶(Base‘𝑦)))
27	25, 26	mp1i 13	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑧 ∈ ((Base‘𝑦) ↑m (Base‘𝑥)) ↔ 𝑧:(Base‘𝑥)⟶(Base‘𝑦)))
28	22, 27	imbitrrid 246	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑧 ∈ (𝑥 RngHom 𝑦) → 𝑧 ∈ ((Base‘𝑦) ↑m (Base‘𝑥))))
29	28	ssrdv 3928	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 RngHom 𝑦) ⊆ ((Base‘𝑦) ↑m (Base‘𝑥)))
30	29	resabs1d 5968	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ↾ (𝑥 RngHom 𝑦)) = ( I ↾ (𝑥 RngHom 𝑦)))
31	19, 30	eqtr2id 2785	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → ( I ↾ (𝑥 RngHom 𝑦)) = (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦))))
32	31	mpoeq3dva 7438	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))) = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦)))))
33	18, 32	eqtrd 2772	. . . . . 6 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦)))))
34	7	a1i 11	. . . . . . 7 ⊢ (𝜑 → 𝐵 = (Base‘𝑅))
35	7	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐵 = (Base‘𝑅))
36		fvresi 7122	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵 → (( I ↾ 𝐵)‘𝑥) = 𝑥)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (( I ↾ 𝐵)‘𝑥) = 𝑥)
38	37	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( I ↾ 𝐵)‘𝑥) = 𝑥)
39		fvresi 7122	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝐵 → (( I ↾ 𝐵)‘𝑦) = 𝑦)
40	39	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (( I ↾ 𝐵)‘𝑦) = 𝑦)
41	40	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( I ↾ 𝐵)‘𝑦) = 𝑦)
42	38, 41	oveq12d 7379	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) = (𝑥(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))𝑦))
43		eqidd 2738	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))))
44		simprr 773	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → 𝑧 = 𝑦)
45	44	fveq2d 6839	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → (Base‘𝑧) = (Base‘𝑦))
46		simprl 771	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → 𝑤 = 𝑥)
47	46	fveq2d 6839	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → (Base‘𝑤) = (Base‘𝑥))
48	45, 47	oveq12d 7379	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → ((Base‘𝑧) ↑m (Base‘𝑤)) = ((Base‘𝑦) ↑m (Base‘𝑥)))
49	48	reseq2d 5939	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))) = ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))
50	13	com12 32	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵 → (𝜑 → 𝑥 ∈ 𝑈))
51	50	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝜑 → 𝑥 ∈ 𝑈))
52	51	impcom 407	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ 𝑈)
53	9	eleq2d 2823	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ (𝑈 ∩ Rng)))
54		elin 3906	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (𝑈 ∩ Rng) ↔ (𝑦 ∈ 𝑈 ∧ 𝑦 ∈ Rng))
55	54	simplbi 496	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (𝑈 ∩ Rng) → 𝑦 ∈ 𝑈)
56	53, 55	biimtrdi 253	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑦 ∈ 𝐵 → 𝑦 ∈ 𝑈))
57	56	a1d 25	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ 𝐵 → (𝑦 ∈ 𝐵 → 𝑦 ∈ 𝑈)))
58	57	imp32 418	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝑈)
59		ovex 7394	. . . . . . . . . . . 12 ⊢ ((Base‘𝑦) ↑m (Base‘𝑥)) ∈ V
60	59	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((Base‘𝑦) ↑m (Base‘𝑥)) ∈ V)
61	60	resiexd 7165	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∈ V)
62	43, 49, 52, 58, 61	ovmpod 7513	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))𝑦) = ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))
63	42, 62	eqtr2d 2773	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) = ((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)))
64		eqidd 2738	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))))
65		oveq12 7370	. . . . . . . . . . . 12 ⊢ ((𝑓 = 𝑥 ∧ 𝑔 = 𝑦) → (𝑓 RngHom 𝑔) = (𝑥 RngHom 𝑦))
66	65	reseq2d 5939	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝑥 ∧ 𝑔 = 𝑦) → ( I ↾ (𝑓 RngHom 𝑔)) = ( I ↾ (𝑥 RngHom 𝑦)))
67	66	adantl 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑓 = 𝑥 ∧ 𝑔 = 𝑦)) → ( I ↾ (𝑓 RngHom 𝑔)) = ( I ↾ (𝑥 RngHom 𝑦)))
68		simprl 771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ 𝐵)
69		simprr 773	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝐵)
70		ovex 7394	. . . . . . . . . . . 12 ⊢ (𝑥 RngHom 𝑦) ∈ V
71	70	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥 RngHom 𝑦) ∈ V)
72	71	resiexd 7165	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ (𝑥 RngHom 𝑦)) ∈ V)
73	64, 67, 68, 69, 72	ovmpod 7513	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦) = ( I ↾ (𝑥 RngHom 𝑦)))
74	73	eqcomd 2743	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ (𝑥 RngHom 𝑦)) = (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦))
75	63, 74	coeq12d 5814	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦))) = (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦)))
76	34, 35, 75	mpoeq123dva 7435	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦)))) = (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦))))
77	33, 76	eqtrd 2772	. . . . 5 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦))))
78	17, 77	opeq12d 4825	. . . 4 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ = ⟨((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)), (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦)))⟩)
79		eqid 2737	. . . . 5 ⊢ (Base‘𝑅) = (Base‘𝑅)
80		eqid 2737	. . . . . 6 ⊢ (ExtStrCat‘𝑈) = (ExtStrCat‘𝑈)
81		eqidd 2738	. . . . . 6 ⊢ (𝜑 → ( I ↾ 𝐵) = ( I ↾ 𝐵))
82		eqidd 2738	. . . . . 6 ⊢ (𝜑 → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))))
83	6, 80, 7, 8, 81, 82	rngcifuestrc 20610	. . . . 5 ⊢ (𝜑 → ( I ↾ 𝐵)(𝑅 Func (ExtStrCat‘𝑈))(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))))
84		funcrngcsetcALT.s	. . . . . 6 ⊢ 𝑆 = (SetCat‘𝑈)
85		eqid 2737	. . . . . 6 ⊢ (Base‘(ExtStrCat‘𝑈)) = (Base‘(ExtStrCat‘𝑈))
86		eqid 2737	. . . . . 6 ⊢ (Base‘𝑆) = (Base‘𝑆)
87	80, 8	estrcbas 18085	. . . . . . 7 ⊢ (𝜑 → 𝑈 = (Base‘(ExtStrCat‘𝑈)))
88	87	mpteq1d 5176	. . . . . 6 ⊢ (𝜑 → (𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) = (𝑢 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ (Base‘𝑢)))
89		fveq2 6835	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑢 → (Base‘𝑤) = (Base‘𝑢))
90	89	oveq2d 7377	. . . . . . . . . 10 ⊢ (𝑤 = 𝑢 → ((Base‘𝑧) ↑m (Base‘𝑤)) = ((Base‘𝑧) ↑m (Base‘𝑢)))
91	90	reseq2d 5939	. . . . . . . . 9 ⊢ (𝑤 = 𝑢 → ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))) = ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑢))))
92		fveq2 6835	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑣 → (Base‘𝑧) = (Base‘𝑣))
93	92	oveq1d 7376	. . . . . . . . . 10 ⊢ (𝑧 = 𝑣 → ((Base‘𝑧) ↑m (Base‘𝑢)) = ((Base‘𝑣) ↑m (Base‘𝑢)))
94	93	reseq2d 5939	. . . . . . . . 9 ⊢ (𝑧 = 𝑣 → ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑢))) = ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))))
95	91, 94	cbvmpov 7456	. . . . . . . 8 ⊢ (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑢 ∈ 𝑈, 𝑣 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))))
96	95	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑢 ∈ 𝑈, 𝑣 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))))
97		eqidd 2738	. . . . . . . 8 ⊢ (𝜑 → ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))) = ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))))
98	87, 87, 97	mpoeq123dv 7436	. . . . . . 7 ⊢ (𝜑 → (𝑢 ∈ 𝑈, 𝑣 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))) = (𝑢 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑣 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))))
99	96, 98	eqtrd 2772	. . . . . 6 ⊢ (𝜑 → (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑢 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑣 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))))
100	80, 84, 85, 86, 8, 88, 99	funcestrcsetc 18109	. . . . 5 ⊢ (𝜑 → (𝑢 ∈ 𝑈 ↦ (Base‘𝑢))((ExtStrCat‘𝑈) Func 𝑆)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))))
101	79, 83, 100	cofuval2 17848	. . . 4 ⊢ (𝜑 → (⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∘func ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩) = ⟨((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)), (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦)))⟩)
102	78, 101	eqtr4d 2775	. . 3 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ = (⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∘func ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩))
103		df-br 5087	. . . . 5 ⊢ (( I ↾ 𝐵)(𝑅 Func (ExtStrCat‘𝑈))(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))) ↔ ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩ ∈ (𝑅 Func (ExtStrCat‘𝑈)))
104	83, 103	sylib 218	. . . 4 ⊢ (𝜑 → ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩ ∈ (𝑅 Func (ExtStrCat‘𝑈)))
105		df-br 5087	. . . . 5 ⊢ ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢))((ExtStrCat‘𝑈) Func 𝑆)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) ↔ ⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∈ ((ExtStrCat‘𝑈) Func 𝑆))
106	100, 105	sylib 218	. . . 4 ⊢ (𝜑 → ⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∈ ((ExtStrCat‘𝑈) Func 𝑆))
107	104, 106	cofucl 17849	. . 3 ⊢ (𝜑 → (⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∘func ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩) ∈ (𝑅 Func 𝑆))
108	102, 107	eqeltrd 2837	. 2 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
109		df-br 5087	. 2 ⊢ (𝐹(𝑅 Func 𝑆)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
110	108, 109	sylibr 234	1 ⊢ (𝜑 → 𝐹(𝑅 Func 𝑆)𝐺)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  Vcvv 3430   ∩ cin 3889  ⟨cop 4574   class class class wbr 5086   ↦ cmpt 5167   I cid 5519   ↾ cres 5627   ∘ ccom 5629  ⟶wf 6489  ‘cfv 6493  (class class class)co 7361   ∈ cmpo 7363   ↑_m cmap 8767  WUnicwun 10617  Basecbs 17173   Func cfunc 17815   ∘_func ccofu 17817  SetCatcsetc 18036  ExtStrCatcestrc 18082  Rngcrng 20127   RngHom crnghm 20408  RngCatcrngc 20587

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683  ax-cnex 11088  ax-resscn 11089  ax-1cn 11090  ax-icn 11091  ax-addcl 11092  ax-addrcl 11093  ax-mulcl 11094  ax-mulrcl 11095  ax-mulcom 11096  ax-addass 11097  ax-mulass 11098  ax-distr 11099  ax-i2m1 11100  ax-1ne0 11101  ax-1rid 11102  ax-rnegex 11103  ax-rrecex 11104  ax-cnre 11105  ax-pre-lttri 11106  ax-pre-lttrn 11107  ax-pre-ltadd 11108  ax-pre-mulgt0 11109

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-om 7812  df-1st 7936  df-2nd 7937  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-pm 8770  df-ixp 8840  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-wun 10619  df-pnf 11175  df-mnf 11176  df-xr 11177  df-ltxr 11178  df-le 11179  df-sub 11373  df-neg 11374  df-nn 12169  df-2 12238  df-3 12239  df-4 12240  df-5 12241  df-6 12242  df-7 12243  df-8 12244  df-9 12245  df-n0 12432  df-z 12519  df-dec 12639  df-uz 12783  df-fz 13456  df-struct 17111  df-sets 17128  df-slot 17146  df-ndx 17158  df-base 17174  df-ress 17195  df-plusg 17227  df-hom 17238  df-cco 17239  df-0g 17398  df-cat 17628  df-cid 17629  df-homf 17630  df-ssc 17771  df-resc 17772  df-subc 17773  df-func 17819  df-idfu 17820  df-cofu 17821  df-full 17867  df-fth 17868  df-setc 18037  df-estrc 18083  df-mgm 18602  df-mgmhm 18654  df-sgrp 18681  df-mnd 18697  df-mhm 18745  df-grp 18906  df-ghm 19182  df-abl 19752  df-mgp 20116  df-rng 20128  df-rnghm 20410  df-rngc 20588

This theorem is referenced by: (None)