Theorem psrbaglefi 22044

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 3424	. . 3 ⊢ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} = {𝑦 ∣ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹)}
2		psrbag.d	. . . . . . . 8 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
3	2	psrbagf 22036	. . . . . . 7 ⊢ (𝑦 ∈ 𝐷 → 𝑦:𝐼⟶ℕ0)
4	3	a1i 11	. . . . . 6 ⊢ (𝐹 ∈ 𝐷 → (𝑦 ∈ 𝐷 → 𝑦:𝐼⟶ℕ0))
5	4	adantrd 496	. . . . 5 ⊢ (𝐹 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) → 𝑦:𝐼⟶ℕ0))
6		ss2ixp 8907	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ⊆ ℕ0 → X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ⊆ X𝑥 ∈ 𝐼 ℕ0)
7		fz0ssnn0 13649	. . . . . . . . . 10 ⊢ (0...(𝐹‘𝑥)) ⊆ ℕ0
8	7	a1i 11	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐼 → (0...(𝐹‘𝑥)) ⊆ ℕ0)
9	6, 8	mprg 3091	. . . . . . . 8 ⊢ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ⊆ X𝑥 ∈ 𝐼 ℕ0
10	9	sseli 3941	. . . . . . 7 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) → 𝑦 ∈ X𝑥 ∈ 𝐼 ℕ0)
11		vex 3467	. . . . . . . 8 ⊢ 𝑦 ∈ V
12	11	elixpconst 8902	. . . . . . 7 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 ℕ0 ↔ 𝑦:𝐼⟶ℕ0)
13	10, 12	sylib 221	. . . . . 6 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) → 𝑦:𝐼⟶ℕ0)
14	13	a1i 11	. . . . 5 ⊢ (𝐹 ∈ 𝐷 → (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) → 𝑦:𝐼⟶ℕ0))
15		ffn 6706	. . . . . . . . 9 ⊢ (𝑦:𝐼⟶ℕ0 → 𝑦 Fn 𝐼)
16	15	adantl 486	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝑦 Fn 𝐼)
17	11	elixp 8901	. . . . . . . . 9 ⊢ (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ↔ (𝑦 Fn 𝐼 ∧ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥))))
18	17	baib 544	. . . . . . . 8 ⊢ (𝑦 Fn 𝐼 → (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥))))
19	16, 18	syl 18	. . . . . . 7 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥))))
20		ffvelcdm 7077	. . . . . . . . . . . 12 ⊢ ((𝑦:𝐼⟶ℕ0 ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) ∈ ℕ0)
21	20	adantll 726	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) ∈ ℕ0)
22		nn0uz 12899	. . . . . . . . . . 11 ⊢ ℕ0 = (ℤ≥‘0)
23	21, 22	eleqtrdi 2879	. . . . . . . . . 10 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) ∈ (ℤ≥‘0))
24	2	psrbagf 22036	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ 𝐷 → 𝐹:𝐼⟶ℕ0)
25	24	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝐹:𝐼⟶ℕ0)
26	25	ffvelcdmda 7080	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝐹‘𝑥) ∈ ℕ0)
27	26	nn0zd 12615	. . . . . . . . . 10 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝐹‘𝑥) ∈ ℤ)
28		elfz5 13543	. . . . . . . . . 10 ⊢ (((𝑦‘𝑥) ∈ (ℤ≥‘0) ∧ (𝐹‘𝑥) ∈ ℤ) → ((𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
29	23, 27, 28	syl2anc 595	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → ((𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
30	29	ralbidva 3192	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
31	24	ffnd 6707	. . . . . . . . . 10 ⊢ (𝐹 ∈ 𝐷 → 𝐹 Fn 𝐼)
32	31	adantr 485	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝐹 Fn 𝐼)
33	11	a1i 11	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝑦 ∈ V)
34		simpl 487	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → 𝐹 ∈ 𝐷)
35		inidm 4187	. . . . . . . . 9 ⊢ (𝐼 ∩ 𝐼) = 𝐼
36		eqidd 2770	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝑦‘𝑥) = (𝑦‘𝑥))
37		eqidd 2770	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) ∧ 𝑥 ∈ 𝐼) → (𝐹‘𝑥) = (𝐹‘𝑥))
38	16, 32, 33, 34, 35, 36, 37	ofrfvalg 7683	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∘r ≤ 𝐹 ↔ ∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ≤ (𝐹‘𝑥)))
39	30, 38	bitr4d 285	. . . . . . 7 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (∀𝑥 ∈ 𝐼 (𝑦‘𝑥) ∈ (0...(𝐹‘𝑥)) ↔ 𝑦 ∘r ≤ 𝐹))
40	2	psrbaglecl 22041	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0 ∧ 𝑦 ∘r ≤ 𝐹) → 𝑦 ∈ 𝐷)
41	40	3expia 1137	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∘r ≤ 𝐹 → 𝑦 ∈ 𝐷))
42	41	pm4.71rd 571	. . . . . . 7 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → (𝑦 ∘r ≤ 𝐹 ↔ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹)))
43	19, 39, 42	3bitrrd 309	. . . . . 6 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑦:𝐼⟶ℕ0) → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) ↔ 𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥))))
44	43	ex 417	. . . . 5 ⊢ (𝐹 ∈ 𝐷 → (𝑦:𝐼⟶ℕ0 → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) ↔ 𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)))))
45	5, 14, 44	pm5.21ndd 382	. . . 4 ⊢ (𝐹 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹) ↔ 𝑦 ∈ X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥))))
46	45	eqabcdv 2903	. . 3 ⊢ (𝐹 ∈ 𝐷 → {𝑦 ∣ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘r ≤ 𝐹)} = X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)))
47	1, 46	eqtrid 2816	. 2 ⊢ (𝐹 ∈ 𝐷 → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} = X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)))
48		cnveq 5860	. . . . . . 7 ⊢ (𝑓 = 𝐹 → ◡𝑓 = ◡𝐹)
49	48	imaeq1d 6062	. . . . . 6 ⊢ (𝑓 = 𝐹 → (◡𝑓 “ ℕ) = (◡𝐹 “ ℕ))
50	49	eleq1d 2854	. . . . 5 ⊢ (𝑓 = 𝐹 → ((◡𝑓 “ ℕ) ∈ Fin ↔ (◡𝐹 “ ℕ) ∈ Fin))
51	50, 2	elrab2 3663	. . . 4 ⊢ (𝐹 ∈ 𝐷 ↔ (𝐹 ∈ (ℕ0 ↑m 𝐼) ∧ (◡𝐹 “ ℕ) ∈ Fin))
52	51	simprbi 502	. . 3 ⊢ (𝐹 ∈ 𝐷 → (◡𝐹 “ ℕ) ∈ Fin)
53		fzfid 14008	. . 3 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ 𝐼) → (0...(𝐹‘𝑥)) ∈ Fin)
54		fcdmnn0suppg 12562	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝐹:𝐼⟶ℕ0) → (𝐹 supp 0) = (◡𝐹 “ ℕ))
55	24, 54	mpdan 699	. . . . . . . 8 ⊢ (𝐹 ∈ 𝐷 → (𝐹 supp 0) = (◡𝐹 “ ℕ))
56		eqimss 4003	. . . . . . . 8 ⊢ ((𝐹 supp 0) = (◡𝐹 “ ℕ) → (𝐹 supp 0) ⊆ (◡𝐹 “ ℕ))
57	55, 56	syl 18	. . . . . . 7 ⊢ (𝐹 ∈ 𝐷 → (𝐹 supp 0) ⊆ (◡𝐹 “ ℕ))
58		id 23	. . . . . . 7 ⊢ (𝐹 ∈ 𝐷 → 𝐹 ∈ 𝐷)
59		c0ex 11199	. . . . . . . 8 ⊢ 0 ∈ V
60	59	a1i 11	. . . . . . 7 ⊢ (𝐹 ∈ 𝐷 → 0 ∈ V)
61	24, 57, 58, 60	suppssrg 8191	. . . . . 6 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (𝐹‘𝑥) = 0)
62	61	oveq2d 7427	. . . . 5 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (0...(𝐹‘𝑥)) = (0...0))
63		fz0sn 13654	. . . . 5 ⊢ (0...0) = {0}
64	62, 63	eqtrdi 2820	. . . 4 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (0...(𝐹‘𝑥)) = {0})
65		eqimss 4003	. . . 4 ⊢ ((0...(𝐹‘𝑥)) = {0} → (0...(𝐹‘𝑥)) ⊆ {0})
66	64, 65	syl 18	. . 3 ⊢ ((𝐹 ∈ 𝐷 ∧ 𝑥 ∈ (𝐼 ∖ (◡𝐹 “ ℕ))) → (0...(𝐹‘𝑥)) ⊆ {0})
67	52, 53, 66	ixpfi2 9306	. 2 ⊢ (𝐹 ∈ 𝐷 → X𝑥 ∈ 𝐼 (0...(𝐹‘𝑥)) ∈ Fin)
68	47, 67	eqeltrd 2869	1 ⊢ (𝐹 ∈ 𝐷 → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝐹} ∈ Fin)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149  {cab 2747  ∀wral 3085  {crab 3423  Vcvv 3463   ∖ cdif 3910   ⊆ wss 3913  {csn 4594   class class class wbr 5113  ^◡ccnv 5661   “ cima 5665   Fn wfn 6532  ⟶wf 6533  ‘cfv 6537  (class class class)co 7411   ∘_r cofr 7674   supp csupp 8155   ↑_m cmap 8823  Xcixp 8894  Fincfn 8942  0cc0 11099   ≤ cle 11243  ℕcn 12232  ℕ₀cn0 12503  ℤcz 12590  ℤ_≥cuz 12861  ...cfz 13534

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-ofr 7676  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8156  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-er 8693  df-map 8825  df-pm 8826  df-ixp 8895  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-nn 12233  df-n0 12504  df-z 12591  df-uz 12862  df-fz 13535

This theorem is referenced by:  gsumbagdiag  22050  psrass1lem  22051  rhmpsrlem1  22058  rhmpsrlem2  22059  psrass1  22081  psrdi  22082  psrdir  22083  psrass23l  22084  psrcom  22085  psrass23  22086  resspsrmul  22093  mplsubrglem  22121  mplmonmul  22155  psdmul  22297  psropprmul  22365  psrmonmul  33884