Theorem funcsetcestrclem7 18242

Description: Lemma 7 for funcsetcestrc 18245. (Contributed by AV, 27-Mar-2020.)

Hypotheses

Ref	Expression
funcsetcestrc.s	⊢ 𝑆 = (SetCat‘𝑈)
funcsetcestrc.c	⊢ 𝐶 = (Base‘𝑆)
funcsetcestrc.f	⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐶 ↦ {⟨(Base‘ndx), 𝑥⟩}))
funcsetcestrc.u	⊢ (𝜑 → 𝑈 ∈ WUni)
funcsetcestrc.o	⊢ (𝜑 → ω ∈ 𝑈)
funcsetcestrc.g	⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐶, 𝑦 ∈ 𝐶 ↦ ( I ↾ (𝑦 ↑m 𝑥))))
funcsetcestrc.e	⊢ 𝐸 = (ExtStrCat‘𝑈)

Assertion

Ref	Expression
funcsetcestrclem7	⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑋𝐺𝑋)‘((Id‘𝑆)‘𝑋)) = ((Id‘𝐸)‘(𝐹‘𝑋)))

Distinct variable groups:   𝑥,𝐶   𝑥,𝑋   𝜑,𝑥   𝑦,𝐶,𝑥   𝑦,𝑋   𝜑,𝑦

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

Proof of Theorem funcsetcestrclem7

Step	Hyp	Ref	Expression
1		funcsetcestrc.s	. . . . 5 ⊢ 𝑆 = (SetCat‘𝑈)
2		funcsetcestrc.c	. . . . 5 ⊢ 𝐶 = (Base‘𝑆)
3		funcsetcestrc.f	. . . . 5 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐶 ↦ {⟨(Base‘ndx), 𝑥⟩}))
4		funcsetcestrc.u	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ WUni)
5		funcsetcestrc.o	. . . . 5 ⊢ (𝜑 → ω ∈ 𝑈)
6		funcsetcestrc.g	. . . . 5 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐶, 𝑦 ∈ 𝐶 ↦ ( I ↾ (𝑦 ↑m 𝑥))))
7	1, 2, 3, 4, 5, 6	funcsetcestrclem5 18240	. . . 4 ⊢ ((𝜑 ∧ (𝑋 ∈ 𝐶 ∧ 𝑋 ∈ 𝐶)) → (𝑋𝐺𝑋) = ( I ↾ (𝑋 ↑m 𝑋)))
8	7	anabsan2 687	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑋𝐺𝑋) = ( I ↾ (𝑋 ↑m 𝑋)))
9		eqid 2766	. . . 4 ⊢ (Id‘𝑆) = (Id‘𝑆)
10	4	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑈 ∈ WUni)
11	1, 4	setcbas 18160	. . . . . . 7 ⊢ (𝜑 → 𝑈 = (Base‘𝑆))
12	2, 11	eqtr4id 2820	. . . . . 6 ⊢ (𝜑 → 𝐶 = 𝑈)
13	12	eleq2d 2852	. . . . 5 ⊢ (𝜑 → (𝑋 ∈ 𝐶 ↔ 𝑋 ∈ 𝑈))
14	13	biimpa 482	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝑈)
15	1, 9, 10, 14	setcid 18168	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((Id‘𝑆)‘𝑋) = ( I ↾ 𝑋))
16	8, 15	fveq12d 6895	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑋𝐺𝑋)‘((Id‘𝑆)‘𝑋)) = (( I ↾ (𝑋 ↑m 𝑋))‘( I ↾ 𝑋)))
17		f1oi 6866	. . . . . 6 ⊢ ( I ↾ 𝑋):𝑋–1-1-onto→𝑋
18		f1of 6827	. . . . . 6 ⊢ (( I ↾ 𝑋):𝑋–1-1-onto→𝑋 → ( I ↾ 𝑋):𝑋⟶𝑋)
19	17, 18	ax-mp 5	. . . . 5 ⊢ ( I ↾ 𝑋):𝑋⟶𝑋
20		simpr 490	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐶)
21	20, 20	elmapd 8846	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (( I ↾ 𝑋) ∈ (𝑋 ↑m 𝑋) ↔ ( I ↾ 𝑋):𝑋⟶𝑋))
22	19, 21	mpbiri 261	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ( I ↾ 𝑋) ∈ (𝑋 ↑m 𝑋))
23		fvresi 7178	. . . 4 ⊢ (( I ↾ 𝑋) ∈ (𝑋 ↑m 𝑋) → (( I ↾ (𝑋 ↑m 𝑋))‘( I ↾ 𝑋)) = ( I ↾ 𝑋))
24	22, 23	syl 18	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (( I ↾ (𝑋 ↑m 𝑋))‘( I ↾ 𝑋)) = ( I ↾ 𝑋))
25		eqid 2766	. . . . . 6 ⊢ {⟨(Base‘ndx), 𝑋⟩} = {⟨(Base‘ndx), 𝑋⟩}
26	25	1strbas 17309	. . . . 5 ⊢ (𝑋 ∈ 𝐶 → 𝑋 = (Base‘{⟨(Base‘ndx), 𝑋⟩}))
27	20, 26	syl 18	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 = (Base‘{⟨(Base‘ndx), 𝑋⟩}))
28	27	reseq2d 5983	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ( I ↾ 𝑋) = ( I ↾ (Base‘{⟨(Base‘ndx), 𝑋⟩})))
29	24, 28	eqtrd 2801	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (( I ↾ (𝑋 ↑m 𝑋))‘( I ↾ 𝑋)) = ( I ↾ (Base‘{⟨(Base‘ndx), 𝑋⟩})))
30	1, 2, 3	funcsetcestrclem1 18235	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐹‘𝑋) = {⟨(Base‘ndx), 𝑋⟩})
31	30	fveq2d 6892	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((Id‘𝐸)‘(𝐹‘𝑋)) = ((Id‘𝐸)‘{⟨(Base‘ndx), 𝑋⟩}))
32		funcsetcestrc.e	. . . 4 ⊢ 𝐸 = (ExtStrCat‘𝑈)
33		eqid 2766	. . . 4 ⊢ (Id‘𝐸) = (Id‘𝐸)
34	1, 2, 4, 5	setc1strwun 18234	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → {⟨(Base‘ndx), 𝑋⟩} ∈ 𝑈)
35	32, 33, 10, 34	estrcid 18215	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((Id‘𝐸)‘{⟨(Base‘ndx), 𝑋⟩}) = ( I ↾ (Base‘{⟨(Base‘ndx), 𝑋⟩})))
36	31, 35	eqtr2d 2802	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ( I ↾ (Base‘{⟨(Base‘ndx), 𝑋⟩})) = ((Id‘𝐸)‘(𝐹‘𝑋)))
37	16, 29, 36	3eqtrd 2805	1 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑋𝐺𝑋)‘((Id‘𝑆)‘𝑋)) = ((Id‘𝐸)‘(𝐹‘𝑋)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  {csn 4594  ⟨cop 4600   ↦ cmpt 5197   I cid 5560   ↾ cres 5668  ⟶wf 6539  –1-1-onto→wf1o 6542  ‘cfv 6543  (class class class)co 7423   ∈ cmpo 7425  ωcom 7871   ↑_m cmap 8833  WUnicwun 10703  ndxcnx 17278  Basecbs 17294  Idccid 17746  SetCatcsetc 18157  ExtStrCatcestrc 18203

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-inf2 9620  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4878  df-int 4918  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-oadd 8466  df-omul 8467  df-er 8703  df-ec 8705  df-qs 8709  df-map 8835  df-pm 8836  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-wun 10705  df-ni 10875  df-pli 10876  df-mi 10877  df-lti 10878  df-plpq 10911  df-mpq 10912  df-ltpq 10913  df-enq 10914  df-nq 10915  df-erq 10916  df-plq 10917  df-mq 10918  df-1nq 10919  df-rq 10920  df-ltnq 10921  df-np 10984  df-plp 10986  df-ltp 10988  df-enr 11058  df-nr 11059  df-c 11124  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-nn 12252  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12523  df-z 12610  df-dec 12730  df-uz 12881  df-fz 13554  df-struct 17232  df-slot 17267  df-ndx 17279  df-base 17295  df-hom 17359  df-cco 17360  df-cat 17749  df-cid 17750  df-setc 18158  df-estrc 18204

This theorem is used by:  funcsetcestrc  18245