Theorem funcrngcsetcALT 20556

Description: Alternate proof of funcrngcsetc 20555, using cofuval2 17855 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 20554, and the "natural forgetful functor" from the category of extensible structures into the category of sets, see funcestrcsetc 18116. Surprisingly, this proof is longer than the direct proof given in funcrngcsetc 20555. (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 6860	. . . . . . . 8 ⊢ (𝑥 = 𝑢 → (Base‘𝑥) = (Base‘𝑢))
3	2	cbvmptv 5213	. . . . . . 7 ⊢ (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)) = (𝑢 ∈ 𝐵 ↦ (Base‘𝑢))
4	1, 3	eqtrdi 2781	. . . . . 6 ⊢ (𝜑 → 𝐹 = (𝑢 ∈ 𝐵 ↦ (Base‘𝑢)))
5		coires1 6239	. . . . . . 7 ⊢ ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)) = ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ↾ 𝐵)
6		funcrngcsetcALT.r	. . . . . . . . . . . 12 ⊢ 𝑅 = (RngCat‘𝑈)
7		funcrngcsetcALT.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝑅)
8		funcrngcsetcALT.u	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 ∈ WUni)
9	6, 7, 8	rngcbas 20536	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 = (𝑈 ∩ Rng))
10	9	eleq2d 2815	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↔ 𝑥 ∈ (𝑈 ∩ Rng)))
11		elin 3932	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝑈 ∩ Rng) ↔ (𝑥 ∈ 𝑈 ∧ 𝑥 ∈ Rng))
12	11	simplbi 497	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝑈 ∩ Rng) → 𝑥 ∈ 𝑈)
13	10, 12	biimtrdi 253	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ 𝐵 → 𝑥 ∈ 𝑈))
14	13	ssrdv 3954	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ⊆ 𝑈)
15	14	resmptd 6013	. . . . . . 7 ⊢ (𝜑 → ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ↾ 𝐵) = (𝑢 ∈ 𝐵 ↦ (Base‘𝑢)))
16	5, 15	eqtr2id 2778	. . . . . 6 ⊢ (𝜑 → (𝑢 ∈ 𝐵 ↦ (Base‘𝑢)) = ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)))
17	4, 16	eqtrd 2765	. . . . 5 ⊢ (𝜑 → 𝐹 = ((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)))
18		funcrngcsetcALT.g	. . . . . . 7 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))))
19		coires1 6239	. . . . . . . . 9 ⊢ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦))) = (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ↾ (𝑥 RngHom 𝑦))
20		eqid 2730	. . . . . . . . . . . . 13 ⊢ (Base‘𝑥) = (Base‘𝑥)
21		eqid 2730	. . . . . . . . . . . . 13 ⊢ (Base‘𝑦) = (Base‘𝑦)
22	20, 21	rnghmf 20363	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ (𝑥 RngHom 𝑦) → 𝑧:(Base‘𝑥)⟶(Base‘𝑦))
23		fvex 6873	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑦) ∈ V
24		fvex 6873	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑥) ∈ V
25	23, 24	pm3.2i 470	. . . . . . . . . . . . 13 ⊢ ((Base‘𝑦) ∈ V ∧ (Base‘𝑥) ∈ V)
26		elmapg 8814	. . . . . . . . . . . . 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 3954	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 RngHom 𝑦) ⊆ ((Base‘𝑦) ↑m (Base‘𝑥)))
30	29	resabs1d 5981	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ↾ (𝑥 RngHom 𝑦)) = ( I ↾ (𝑥 RngHom 𝑦)))
31	19, 30	eqtr2id 2778	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → ( I ↾ (𝑥 RngHom 𝑦)) = (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦))))
32	31	mpoeq3dva 7468	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ (𝑥 RngHom 𝑦))) = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦)))))
33	18, 32	eqtrd 2765	. . . . . 6 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦)))))
34	7	a1i 11	. . . . . . 7 ⊢ (𝜑 → 𝐵 = (Base‘𝑅))
35	7	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐵 = (Base‘𝑅))
36		fvresi 7149	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐵 → (( I ↾ 𝐵)‘𝑥) = 𝑥)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (( I ↾ 𝐵)‘𝑥) = 𝑥)
38	37	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( I ↾ 𝐵)‘𝑥) = 𝑥)
39		fvresi 7149	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝐵 → (( I ↾ 𝐵)‘𝑦) = 𝑦)
40	39	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (( I ↾ 𝐵)‘𝑦) = 𝑦)
41	40	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( I ↾ 𝐵)‘𝑦) = 𝑦)
42	38, 41	oveq12d 7407	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) = (𝑥(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))𝑦))
43		eqidd 2731	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))))
44		simprr 772	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → 𝑧 = 𝑦)
45	44	fveq2d 6864	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → (Base‘𝑧) = (Base‘𝑦))
46		simprl 770	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → 𝑤 = 𝑥)
47	46	fveq2d 6864	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → (Base‘𝑤) = (Base‘𝑥))
48	45, 47	oveq12d 7407	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)) → ((Base‘𝑧) ↑m (Base‘𝑤)) = ((Base‘𝑦) ↑m (Base‘𝑥)))
49	48	reseq2d 5952	. . . . . . . . . 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 2815	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ (𝑈 ∩ Rng)))
54		elin 3932	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (𝑈 ∩ Rng) ↔ (𝑦 ∈ 𝑈 ∧ 𝑦 ∈ Rng))
55	54	simplbi 497	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (𝑈 ∩ Rng) → 𝑦 ∈ 𝑈)
56	53, 55	biimtrdi 253	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑦 ∈ 𝐵 → 𝑦 ∈ 𝑈))
57	56	a1d 25	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ 𝐵 → (𝑦 ∈ 𝐵 → 𝑦 ∈ 𝑈)))
58	57	imp32 418	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝑈)
59		ovex 7422	. . . . . . . . . . . 12 ⊢ ((Base‘𝑦) ↑m (Base‘𝑥)) ∈ V
60	59	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((Base‘𝑦) ↑m (Base‘𝑥)) ∈ V)
61	60	resiexd 7192	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∈ V)
62	43, 49, 52, 58, 61	ovmpod 7543	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))𝑦) = ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))))
63	42, 62	eqtr2d 2766	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) = ((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)))
64		eqidd 2731	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))))
65		oveq12 7398	. . . . . . . . . . . 12 ⊢ ((𝑓 = 𝑥 ∧ 𝑔 = 𝑦) → (𝑓 RngHom 𝑔) = (𝑥 RngHom 𝑦))
66	65	reseq2d 5952	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝑥 ∧ 𝑔 = 𝑦) → ( I ↾ (𝑓 RngHom 𝑔)) = ( I ↾ (𝑥 RngHom 𝑦)))
67	66	adantl 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑓 = 𝑥 ∧ 𝑔 = 𝑦)) → ( I ↾ (𝑓 RngHom 𝑔)) = ( I ↾ (𝑥 RngHom 𝑦)))
68		simprl 770	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ 𝐵)
69		simprr 772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝐵)
70		ovex 7422	. . . . . . . . . . . 12 ⊢ (𝑥 RngHom 𝑦) ∈ V
71	70	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥 RngHom 𝑦) ∈ V)
72	71	resiexd 7192	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ (𝑥 RngHom 𝑦)) ∈ V)
73	64, 67, 68, 69, 72	ovmpod 7543	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦) = ( I ↾ (𝑥 RngHom 𝑦)))
74	73	eqcomd 2736	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( I ↾ (𝑥 RngHom 𝑦)) = (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦))
75	63, 74	coeq12d 5830	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦))) = (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦)))
76	34, 35, 75	mpoeq123dva 7465	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (( I ↾ ((Base‘𝑦) ↑m (Base‘𝑥))) ∘ ( I ↾ (𝑥 RngHom 𝑦)))) = (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦))))
77	33, 76	eqtrd 2765	. . . . 5 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦))))
78	17, 77	opeq12d 4847	. . . 4 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ = ⟨((𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) ∘ ( I ↾ 𝐵)), (𝑥 ∈ (Base‘𝑅), 𝑦 ∈ (Base‘𝑅) ↦ (((( I ↾ 𝐵)‘𝑥)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))(( I ↾ 𝐵)‘𝑦)) ∘ (𝑥(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))𝑦)))⟩)
79		eqid 2730	. . . . 5 ⊢ (Base‘𝑅) = (Base‘𝑅)
80		eqid 2730	. . . . . 6 ⊢ (ExtStrCat‘𝑈) = (ExtStrCat‘𝑈)
81		eqidd 2731	. . . . . 6 ⊢ (𝜑 → ( I ↾ 𝐵) = ( I ↾ 𝐵))
82		eqidd 2731	. . . . . 6 ⊢ (𝜑 → (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))) = (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))))
83	6, 80, 7, 8, 81, 82	rngcifuestrc 20554	. . . . 5 ⊢ (𝜑 → ( I ↾ 𝐵)(𝑅 Func (ExtStrCat‘𝑈))(𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔))))
84		funcrngcsetcALT.s	. . . . . 6 ⊢ 𝑆 = (SetCat‘𝑈)
85		eqid 2730	. . . . . 6 ⊢ (Base‘(ExtStrCat‘𝑈)) = (Base‘(ExtStrCat‘𝑈))
86		eqid 2730	. . . . . 6 ⊢ (Base‘𝑆) = (Base‘𝑆)
87	80, 8	estrcbas 18092	. . . . . . 7 ⊢ (𝜑 → 𝑈 = (Base‘(ExtStrCat‘𝑈)))
88	87	mpteq1d 5199	. . . . . 6 ⊢ (𝜑 → (𝑢 ∈ 𝑈 ↦ (Base‘𝑢)) = (𝑢 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ (Base‘𝑢)))
89		fveq2 6860	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑢 → (Base‘𝑤) = (Base‘𝑢))
90	89	oveq2d 7405	. . . . . . . . . 10 ⊢ (𝑤 = 𝑢 → ((Base‘𝑧) ↑m (Base‘𝑤)) = ((Base‘𝑧) ↑m (Base‘𝑢)))
91	90	reseq2d 5952	. . . . . . . . 9 ⊢ (𝑤 = 𝑢 → ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))) = ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑢))))
92		fveq2 6860	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑣 → (Base‘𝑧) = (Base‘𝑣))
93	92	oveq1d 7404	. . . . . . . . . 10 ⊢ (𝑧 = 𝑣 → ((Base‘𝑧) ↑m (Base‘𝑢)) = ((Base‘𝑣) ↑m (Base‘𝑢)))
94	93	reseq2d 5952	. . . . . . . . 9 ⊢ (𝑧 = 𝑣 → ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑢))) = ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))))
95	91, 94	cbvmpov 7486	. . . . . . . 8 ⊢ (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑢 ∈ 𝑈, 𝑣 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))))
96	95	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑢 ∈ 𝑈, 𝑣 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))))
97		eqidd 2731	. . . . . . . 8 ⊢ (𝜑 → ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))) = ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢))))
98	87, 87, 97	mpoeq123dv 7466	. . . . . . 7 ⊢ (𝜑 → (𝑢 ∈ 𝑈, 𝑣 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))) = (𝑢 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑣 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))))
99	96, 98	eqtrd 2765	. . . . . 6 ⊢ (𝜑 → (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))) = (𝑢 ∈ (Base‘(ExtStrCat‘𝑈)), 𝑣 ∈ (Base‘(ExtStrCat‘𝑈)) ↦ ( I ↾ ((Base‘𝑣) ↑m (Base‘𝑢)))))
100	80, 84, 85, 86, 8, 88, 99	funcestrcsetc 18116	. . . . 5 ⊢ (𝜑 → (𝑢 ∈ 𝑈 ↦ (Base‘𝑢))((ExtStrCat‘𝑈) Func 𝑆)(𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤)))))
101	79, 83, 100	cofuval2 17855	. . . 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 2768	. . 3 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ = (⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∘func ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩))
103		df-br 5110	. . . . 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 5110	. . . . 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 17856	. . 3 ⊢ (𝜑 → (⟨(𝑢 ∈ 𝑈 ↦ (Base‘𝑢)), (𝑤 ∈ 𝑈, 𝑧 ∈ 𝑈 ↦ ( I ↾ ((Base‘𝑧) ↑m (Base‘𝑤))))⟩ ∘func ⟨( I ↾ 𝐵), (𝑓 ∈ 𝐵, 𝑔 ∈ 𝐵 ↦ ( I ↾ (𝑓 RngHom 𝑔)))⟩) ∈ (𝑅 Func 𝑆))
108	102, 107	eqeltrd 2829	. 2 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
109		df-br 5110	. 2 ⊢ (𝐹(𝑅 Func 𝑆)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝑅 Func 𝑆))
110	108, 109	sylibr 234	1 ⊢ (𝜑 → 𝐹(𝑅 Func 𝑆)𝐺)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  Vcvv 3450   ∩ cin 3915  ⟨cop 4597   class class class wbr 5109   ↦ cmpt 5190   I cid 5534   ↾ cres 5642   ∘ ccom 5644  ⟶wf 6509  ‘cfv 6513  (class class class)co 7389   ∈ cmpo 7391   ↑_m cmap 8801  WUnicwun 10659  Basecbs 17185   Func cfunc 17822   ∘_func ccofu 17824  SetCatcsetc 18043  ExtStrCatcestrc 18089  Rngcrng 20067   RngHom crnghm 20349  RngCatcrngc 20531

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5236  ax-sep 5253  ax-nul 5263  ax-pow 5322  ax-pr 5389  ax-un 7713  ax-cnex 11130  ax-resscn 11131  ax-1cn 11132  ax-icn 11133  ax-addcl 11134  ax-addrcl 11135  ax-mulcl 11136  ax-mulrcl 11137  ax-mulcom 11138  ax-addass 11139  ax-mulass 11140  ax-distr 11141  ax-i2m1 11142  ax-1ne0 11143  ax-1rid 11144  ax-rnegex 11145  ax-rrecex 11146  ax-cnre 11147  ax-pre-lttri 11148  ax-pre-lttrn 11149  ax-pre-ltadd 11150  ax-pre-mulgt0 11151

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3756  df-csb 3865  df-dif 3919  df-un 3921  df-in 3923  df-ss 3933  df-pss 3936  df-nul 4299  df-if 4491  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4874  df-iun 4959  df-br 5110  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6276  df-ord 6337  df-on 6338  df-lim 6339  df-suc 6340  df-iota 6466  df-fun 6515  df-fn 6516  df-f 6517  df-f1 6518  df-fo 6519  df-f1o 6520  df-fv 6521  df-riota 7346  df-ov 7392  df-oprab 7393  df-mpo 7394  df-om 7845  df-1st 7970  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8380  df-1o 8436  df-er 8673  df-map 8803  df-pm 8804  df-ixp 8873  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-wun 10661  df-pnf 11216  df-mnf 11217  df-xr 11218  df-ltxr 11219  df-le 11220  df-sub 11413  df-neg 11414  df-nn 12188  df-2 12250  df-3 12251  df-4 12252  df-5 12253  df-6 12254  df-7 12255  df-8 12256  df-9 12257  df-n0 12449  df-z 12536  df-dec 12656  df-uz 12800  df-fz 13475  df-struct 17123  df-sets 17140  df-slot 17158  df-ndx 17170  df-base 17186  df-ress 17207  df-plusg 17239  df-hom 17250  df-cco 17251  df-0g 17410  df-cat 17635  df-cid 17636  df-homf 17637  df-ssc 17778  df-resc 17779  df-subc 17780  df-func 17826  df-idfu 17827  df-cofu 17828  df-full 17874  df-fth 17875  df-setc 18044  df-estrc 18090  df-mgm 18573  df-mgmhm 18625  df-sgrp 18652  df-mnd 18668  df-mhm 18716  df-grp 18874  df-ghm 19151  df-abl 19719  df-mgp 20056  df-rng 20068  df-rnghm 20351  df-rngc 20532

This theorem is referenced by: (None)