Theorem psrbaglefi 22126

Description: There are finitely many bags dominated by a given bag. (Contributed by Mario Carneiro, 29-Dec-2014.) (Revised by Mario Carneiro, 25-Jan-2015.) Remove a sethood antecedent. (Revised by SN, 5-Aug-2024.)

Hypothesis

Ref	Expression
psrbag.d	⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}

Assertion

Ref	Expression
psrbaglefi	⊢ (𝐹 ∈ 𝐷 → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} ∈ Fin)

Distinct variable groups:   𝑓,𝐹   𝑓,𝐼   𝑦,𝐷   𝑦,𝐹,𝑓   𝑦,𝐼

Allowed substitution hint:   𝐷(𝑓)

Proof of Theorem psrbaglefi

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-rab 3419	. . 3 ⊢ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} = {𝑦 ∣ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹)}
2		psrbag.d	. . . . . . . 8 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
3	2	psrbagf 22118	. . . . . . 7 ⊢ (𝑦 ∈ 𝐷 → 𝑦:𝐼⟶ℕ0)
4	3	a1i 11	. . . . . 6 ⊢ (𝐹 ∈ 𝐷 → (𝑦 ∈ 𝐷 → 𝑦:𝐼⟶ℕ0))
5	4	adantrd 497	. . . . 5 ⊢ (𝐹 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) → 𝑦:𝐼⟶ℕ0))
6		ss2ixp 8914	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ⊆ ℕ0 → X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ⊆ X𝑥 ∈ 𝐼 ℕ0)
7		fz0ssnn0 13667	. . . . . . . . . 10 ⊢ (0...(𝐹‘𝑥)) ⊆ ℕ0
8	7	a1i 11	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐼 → (0...(𝐹‘𝑥)) ⊆ ℕ0)
9	6, 8	mprg 3087	. . . . . . . 8 ⊢ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ⊆ X𝑥 ∈ 𝐼 ℕ0
10	9	sseli 3934	. . . . . . 7 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) → 𝑦 ∈ X𝑥 ∈ 𝐼 ℕ0)
11		vex 3461	. . . . . . . 8 ⊢ 𝑦 ∈ V
12	11	elixpconst 8909	. . . . . . 7 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 ℕ0 ↔ 𝑦:𝐼⟶ℕ0)
13	10, 12	sylib 221	. . . . . 6 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) → 𝑦:𝐼⟶ℕ0)
14	13	a1i 11	. . . . 5 ⊢ (𝐹 ∈ 𝐷 → (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) → 𝑦:𝐼⟶ℕ0))
15		ffn 6709	. . . . . . . . 9 ⊢ (𝑦:𝐼⟶ℕ0 → 𝑦 Fn 𝐼)
16	15	adantl 487	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝑦 Fn 𝐼)
17	11	elixp 8908	. . . . . . . . 9 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ↔ (𝑦 Fn 𝐼 ∧ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥))))
18	17	baib 545	. . . . . . . 8 ⊢ (𝑦 Fn 𝐼 → (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥))))
19	16, 18	syl 18	. . . . . . 7 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥))))
20		ffvelcdm 7080	. . . . . . . . . . . 12 ⊢ ((𝑦:𝐼⟶ℕ0 ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) ∈ ℕ0)
21	20	adantll 727	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) ∈ ℕ0)
22		nn0uz 12916	. . . . . . . . . . 11 ⊢ ℕ0 = (ℤ≥‘0)
23	21, 22	eleqtrdi 2875	. . . . . . . . . 10 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) ∈ (ℤ≥‘0))
24	2	psrbagf 22118	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ 𝐷 → 𝐹:𝐼⟶ℕ0)
25	24	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝐹:𝐼⟶ℕ0)
26	25	ffvelcdmda 7083	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝐹‘𝑥) ∈ ℕ0)
27	26	nn0zd 12631	. . . . . . . . . 10 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝐹‘𝑥) ∈ ℤ)
28		elfz5 13560	. . . . . . . . . 10 ⊢ (((𝑦‘𝑥) ∈ (ℤ≥‘0) ∧ (𝐹‘𝑥) ∈ ℤ) → ((𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
29	23, 27, 28	syl2anc 596	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → ((𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
30	29	ralbidva 3188	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
31	24	ffnd 6710	. . . . . . . . . 10 ⊢ (𝐹 ∈ 𝐷 → 𝐹 Fn 𝐼)
32	31	adantr 486	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝐹 Fn 𝐼)
33	11	a1i 11	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝑦 ∈ V)
34		simpl 488	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝐹 ∈ 𝐷)
35		inidm 4179	. . . . . . . . 9 ⊢ (𝐼 ∩ 𝐼) = 𝐼
36		eqidd 2766	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) = (𝑦‘𝑥))
37		eqidd 2766	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝐹‘𝑥) = (𝐹‘𝑥))
38	16, 32, 33, 34, 35, 36, 37	ofrfvalg 7692	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∘r ≤ 𝐹 ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
39	30, 38	bitr4d 285	. . . . . . 7 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ 𝑦 ∘r ≤ 𝐹))
40	2	psrbaglecl 22123	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0 ∧ 𝑦 ∘r ≤ 𝐹) → 𝑦 ∈ 𝐷)
41	40	3expia 1139	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∘r ≤ 𝐹 → 𝑦 ∈ 𝐷))
42	41	pm4.71rd 572	. . . . . . 7 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∘r ≤ 𝐹 ↔ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹)))
43	19, 39, 42	3bitrrd 309	. . . . . 6 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) ↔ 𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥))))
44	43	ex 418	. . . . 5 ⊢ (𝐹 ∈ 𝐷 → (𝑦:𝐼⟶ℕ0 → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) ↔ 𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)))))
45	5, 14, 44	pm5.21ndd 382	. . . 4 ⊢ (𝐹 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) ↔ 𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥))))
46	45	eqabcdv 2899	. . 3 ⊢ (𝐹 ∈ 𝐷 → {𝑦 ∣ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹)} = X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)))
47	1, 46	eqtrid 2812	. 2 ⊢ (𝐹 ∈ 𝐷 → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} = X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)))
48		cnveq 5861	. . . . . . 7 ⊢ (𝑓 = 𝐹 → ◡𝑓 = ◡𝐹)
49	48	imaeq1d 6063	. . . . . 6 ⊢ (𝑓 = 𝐹 → (◡𝑓 “ ℕ) = (◡𝐹 “ ℕ))
50	49	eleq1d 2850	. . . . 5 ⊢ (𝑓 = 𝐹 → ((◡𝑓 “ ℕ) ∈ Fin ↔ (◡𝐹 “ ℕ) ∈ Fin))
51	50, 2	elrab2 3656	. . . 4 ⊢ (𝐹 ∈ 𝐷 ↔ (𝐹 ∈ (ℕ0 ↑m 𝐼) ∧ (◡𝐹 “ ℕ) ∈ Fin))
52	51	simprbi 503	. . 3 ⊢ (𝐹 ∈ 𝐷 → (◡𝐹 “ ℕ) ∈ Fin)
53		fzfid 14027	. . 3 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ 𝐼) → (0...(𝐹‘𝑥)) ∈ Fin)
54		fcdmnn0suppg 12578	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝐹:𝐼⟶ℕ0) → (𝐹 supp 0) = (◡𝐹 “ ℕ))
55	24, 54	mpdan 700	. . . . . . . 8 ⊢ (𝐹 ∈ 𝐷 → (𝐹 supp 0) = (◡𝐹 “ ℕ))
56		eqimss 3996	. . . . . . . 8 ⊢ ((𝐹 supp 0) = (◡𝐹 “ ℕ) → (𝐹 supp 0) ⊆ (◡𝐹 “ ℕ))
57	55, 56	syl 18	. . . . . . 7 ⊢ (𝐹 ∈ 𝐷 → (𝐹 supp 0) ⊆ (◡𝐹 “ ℕ))
58		id 23	. . . . . . 7 ⊢ (𝐹 ∈ 𝐷 → 𝐹 ∈ 𝐷)
59		c0ex 11215	. . . . . . . 8 ⊢ 0 ∈ V
60	59	a1i 11	. . . . . . 7 ⊢ (𝐹 ∈ 𝐷 → 0 ∈ V)
61	24, 57, 58, 60	suppssrg 8198	. . . . . 6 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (𝐹‘𝑥) = 0)
62	61	oveq2d 7435	. . . . 5 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (0...(𝐹‘𝑥)) = (0...0))
63		fz0sn 13672	. . . . 5 ⊢ (0...0) = {0}
64	62, 63	eqtrdi 2816	. . . 4 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (0...(𝐹‘𝑥)) = {0})
65		eqimss 3996	. . . 4 ⊢ ((0...(𝐹‘𝑥)) = {0} → (0...(𝐹‘𝑥)) ⊆ {0})
66	64, 65	syl 18	. . 3 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (0...(𝐹‘𝑥)) ⊆ {0})
67	52, 53, 66	ixpfi2 9314	. 2 ⊢ (𝐹 ∈ 𝐷 → X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ∈ Fin)
68	47, 67	eqeltrd 2865	1 ⊢ (𝐹 ∈ 𝐷 → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} ∈ Fin)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  {cab 2743  ∀wral 3081  {crab 3418  Vcvv 3457   ∖ cdif 3903   ⊆ wss 3906  {csn 4591   class class class wbr 5111  ^◡ccnv 5662   “ cima 5666   Fn wfn 6535  ⟶wf 6536  ‘cfv 6540  (class class class)co 7419   ∘_r cofr 7683   supp csupp 8162   ↑_m cmap 8830  Xcixp 8901  Fincfn 8949  0cc0 11115   ≤ cle 11259  ℕcn 12248  ℕ₀cn0 12519  ℤcz 12606  ℤ_≥cuz 12878  ...cfz 13551

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 2737  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192

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 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-ofr 7685  df-om 7869  df-1st 7992  df-2nd 7993  df-supp 8163  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-map 8832  df-pm 8833  df-ixp 8902  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-nn 12249  df-n0 12520  df-z 12607  df-uz 12879  df-fz 13552

This theorem is used by:  gsumbagdiag  22132  psrass1lem  22133  rhmpsrlem1  22140  rhmpsrlem2  22141  psrass1  22163  psrdi  22164  psrdir  22165  psrass23l  22166  psrcom  22167  psrass23  22168  resspsrmul  22175  mplsubrglem  22203  mplmonmul  22237  psdmul  22379  psropprmul  22447  psrmonmul  34004