Theorem fusgrfis 29589

Description: A finite simple graph is of finite size, i.e. has a finite number of edges. (Contributed by Alexander van der Vekens, 6-Jan-2018.) (Revised by AV, 8-Nov-2020.)

Assertion

Ref	Expression
fusgrfis	⊢ (𝐺 ∈ FinUSGraph → (Edg‘𝐺) ∈ Fin)

Proof of Theorem fusgrfis

Dummy variables 𝑒 𝑓 𝑛 𝑝 𝑞 𝑣 𝑦 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2765	. . 3 ⊢ (Vtx‘𝐺) = (Vtx‘𝐺)
2	1	isfusgr 29577	. 2 ⊢ (𝐺 ∈ FinUSGraph ↔ (𝐺 ∈ USGraph ∧ (Vtx‘𝐺) ∈ Fin))
3		usgrop 29422	. . . 4 ⊢ (𝐺 ∈ USGraph → ⟨(Vtx‘𝐺), (iEdg‘𝐺)⟩ ∈ USGraph)
4		fvex 6884	. . . . 5 ⊢ (iEdg‘𝐺) ∈ V
5		mptresid 6044	. . . . . 6 ⊢ ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) = (𝑞 ∈ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝} ↦ 𝑞)
6		fvex 6884	. . . . . . 7 ⊢ (Edg‘⟨𝑣, 𝑒⟩) ∈ V
7	6	mptrabex 7213	. . . . . 6 ⊢ (𝑞 ∈ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝} ↦ 𝑞) ∈ V
8	5, 7	eqeltri 2861	. . . . 5 ⊢ ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) ∈ V
9		eleq1 2853	. . . . . 6 ⊢ (𝑒 = (iEdg‘𝐺) → (𝑒 ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
10	9	adantl 486	. . . . 5 ⊢ ((𝑣 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → (𝑒 ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
11		eleq1 2853	. . . . . 6 ⊢ (𝑒 = 𝑓 → (𝑒 ∈ Fin ↔ 𝑓 ∈ Fin))
12	11	adantl 486	. . . . 5 ⊢ ((𝑣 = 𝑤 ∧ 𝑒 = 𝑓) → (𝑒 ∈ Fin ↔ 𝑓 ∈ Fin))
13		vex 3461	. . . . . . . 8 ⊢ 𝑣 ∈ V
14		vex 3461	. . . . . . . 8 ⊢ 𝑒 ∈ V
15	13, 14	opvtxfvi 29268	. . . . . . 7 ⊢ (Vtx‘⟨𝑣, 𝑒⟩) = 𝑣
16	15	eqcomi 2774	. . . . . 6 ⊢ 𝑣 = (Vtx‘⟨𝑣, 𝑒⟩)
17		eqid 2765	. . . . . 6 ⊢ (Edg‘⟨𝑣, 𝑒⟩) = (Edg‘⟨𝑣, 𝑒⟩)
18		eqid 2765	. . . . . 6 ⊢ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝} = {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}
19		eqid 2765	. . . . . 6 ⊢ ⟨(𝑣 ∖ {𝑛}), ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝})⟩ = ⟨(𝑣 ∖ {𝑛}), ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝})⟩
20	16, 17, 18, 19	usgrres1 29574	. . . . 5 ⊢ ((⟨𝑣, 𝑒⟩ ∈ USGraph ∧ 𝑛 ∈ 𝑣) → ⟨(𝑣 ∖ {𝑛}), ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝})⟩ ∈ USGraph)
21		eleq1 2853	. . . . . 6 ⊢ (𝑓 = ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) → (𝑓 ∈ Fin ↔ ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) ∈ Fin))
22	21	adantl 486	. . . . 5 ⊢ ((𝑤 = (𝑣 ∖ {𝑛}) ∧ 𝑓 = ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝})) → (𝑓 ∈ Fin ↔ ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) ∈ Fin))
23	13, 14	pm3.2i 475	. . . . . 6 ⊢ (𝑣 ∈ V ∧ 𝑒 ∈ V)
24		fusgrfisbase 29587	. . . . . 6 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = 0) → 𝑒 ∈ Fin)
25	23, 24	mp3an1 1472	. . . . 5 ⊢ ((⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = 0) → 𝑒 ∈ Fin)
26		simpl 487	. . . . . . . . 9 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → (𝑣 ∈ V ∧ 𝑒 ∈ V))
27		simprr1 1238	. . . . . . . . . 10 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → ⟨𝑣, 𝑒⟩ ∈ USGraph)
28		eleq1 2853	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑣) = (𝑦 + 1) → ((♯‘𝑣) ∈ ℕ0 ↔ (𝑦 + 1) ∈ ℕ0))
29		hashclb 14385	. . . . . . . . . . . . . . . . 17 ⊢ (𝑣 ∈ V → (𝑣 ∈ Fin ↔ (♯‘𝑣) ∈ ℕ0))
30	29	biimprd 251	. . . . . . . . . . . . . . . 16 ⊢ (𝑣 ∈ V → ((♯‘𝑣) ∈ ℕ0 → 𝑣 ∈ Fin))
31	30	adantr 485	. . . . . . . . . . . . . . 15 ⊢ ((𝑣 ∈ V ∧ 𝑒 ∈ V) → ((♯‘𝑣) ∈ ℕ0 → 𝑣 ∈ Fin))
32	31	com12 33	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑣) ∈ ℕ0 → ((𝑣 ∈ V ∧ 𝑒 ∈ V) → 𝑣 ∈ Fin))
33	28, 32	biimtrrdi 257	. . . . . . . . . . . . 13 ⊢ ((♯‘𝑣) = (𝑦 + 1) → ((𝑦 + 1) ∈ ℕ0 → ((𝑣 ∈ V ∧ 𝑒 ∈ V) → 𝑣 ∈ Fin)))
34	33	3ad2ant2 1150	. . . . . . . . . . . 12 ⊢ ((⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣) → ((𝑦 + 1) ∈ ℕ0 → ((𝑣 ∈ V ∧ 𝑒 ∈ V) → 𝑣 ∈ Fin)))
35	34	impcom 412	. . . . . . . . . . 11 ⊢ (((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣)) → ((𝑣 ∈ V ∧ 𝑒 ∈ V) → 𝑣 ∈ Fin))
36	35	impcom 412	. . . . . . . . . 10 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → 𝑣 ∈ Fin)
37		opfusgr 29582	. . . . . . . . . . 11 ⊢ ((𝑣 ∈ V ∧ 𝑒 ∈ V) → (⟨𝑣, 𝑒⟩ ∈ FinUSGraph ↔ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ 𝑣 ∈ Fin)))
38	37	adantr 485	. . . . . . . . . 10 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → (⟨𝑣, 𝑒⟩ ∈ FinUSGraph ↔ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ 𝑣 ∈ Fin)))
39	27, 36, 38	mpbir2and 725	. . . . . . . . 9 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → ⟨𝑣, 𝑒⟩ ∈ FinUSGraph)
40		simprr3 1240	. . . . . . . . 9 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → 𝑛 ∈ 𝑣)
41	26, 39, 40	3jca 1144	. . . . . . . 8 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣))) → ((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ⟨𝑣, 𝑒⟩ ∈ FinUSGraph ∧ 𝑛 ∈ 𝑣))
42	23, 41	mpan 702	. . . . . . 7 ⊢ (((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣)) → ((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ⟨𝑣, 𝑒⟩ ∈ FinUSGraph ∧ 𝑛 ∈ 𝑣))
43		fusgrfisstep 29588	. . . . . . 7 ⊢ (((𝑣 ∈ V ∧ 𝑒 ∈ V) ∧ ⟨𝑣, 𝑒⟩ ∈ FinUSGraph ∧ 𝑛 ∈ 𝑣) → (( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) ∈ Fin → 𝑒 ∈ Fin))
44	42, 43	syl 18	. . . . . 6 ⊢ (((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣)) → (( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) ∈ Fin → 𝑒 ∈ Fin))
45	44	imp 411	. . . . 5 ⊢ ((((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑣, 𝑒⟩ ∈ USGraph ∧ (♯‘𝑣) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑣)) ∧ ( I ↾ {𝑝 ∈ (Edg‘⟨𝑣, 𝑒⟩) ∣ 𝑛 ∉ 𝑝}) ∈ Fin) → 𝑒 ∈ Fin)
46	4, 8, 10, 12, 20, 22, 25, 45	opfi1ind 14539	. . . 4 ⊢ ((⟨(Vtx‘𝐺), (iEdg‘𝐺)⟩ ∈ USGraph ∧ (Vtx‘𝐺) ∈ Fin) → (iEdg‘𝐺) ∈ Fin)
47	3, 46	sylan 591	. . 3 ⊢ ((𝐺 ∈ USGraph ∧ (Vtx‘𝐺) ∈ Fin) → (iEdg‘𝐺) ∈ Fin)
48		eqid 2765	. . . . 5 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
49		eqid 2765	. . . . 5 ⊢ (Edg‘𝐺) = (Edg‘𝐺)
50	48, 49	usgredgffibi 29583	. . . 4 ⊢ (𝐺 ∈ USGraph → ((Edg‘𝐺) ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
51	50	adantr 485	. . 3 ⊢ ((𝐺 ∈ USGraph ∧ (Vtx‘𝐺) ∈ Fin) → ((Edg‘𝐺) ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
52	47, 51	mpbird 260	. 2 ⊢ ((𝐺 ∈ USGraph ∧ (Vtx‘𝐺) ∈ Fin) → (Edg‘𝐺) ∈ Fin)
53	2, 52	sylbi 220	1 ⊢ (𝐺 ∈ FinUSGraph → (Edg‘𝐺) ∈ Fin)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1563   ∈ wcel 2145   ∉ wnel 3064  {crab 3417  Vcvv 3457   ∖ cdif 3904  {csn 4585  ⟨cop 4591   ↦ cmpt 5186   I cid 5546   ↾ cres 5654  ‘cfv 6525  (class class class)co 7400  Fincfn 8931  0cc0 11088  1c1 11089   + caddc 11091  ℕ₀cn0 12495  ♯chash 14357  Vtxcvtx 29255  iEdgciedg 29256  Edgcedg 29306  USGraphcusgr 29408  FinUSGraphcfusgr 29575

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-rep 5232  ax-sep 5251  ax-nul 5261  ax-pow 5327  ax-pr 5395  ax-un 7722  ax-cnex 11144  ax-resscn 11145  ax-1cn 11146  ax-icn 11147  ax-addcl 11148  ax-addrcl 11149  ax-mulcl 11150  ax-mulrcl 11151  ax-mulcom 11152  ax-addass 11153  ax-mulass 11154  ax-distr 11155  ax-i2m1 11156  ax-1ne0 11157  ax-1rid 11158  ax-rnegex 11159  ax-rrecex 11160  ax-cnre 11161  ax-pre-lttri 11162  ax-pre-lttrn 11163  ax-pre-ltadd 11164  ax-pre-mulgt0 11165

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3370  df-reu 3371  df-rab 3418  df-v 3459  df-sbc 3748  df-csb 3856  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-pss 3927  df-nul 4289  df-if 4484  df-pw 4560  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4869  df-int 4909  df-iun 4954  df-br 5106  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5547  df-eprel 5552  df-po 5560  df-so 5561  df-fr 5605  df-we 5607  df-xp 5658  df-rel 5659  df-cnv 5660  df-co 5661  df-dm 5662  df-rn 5663  df-res 5664  df-ima 5665  df-pred 6292  df-ord 6353  df-on 6354  df-lim 6355  df-suc 6356  df-iota 6481  df-fun 6527  df-fn 6528  df-f 6529  df-f1 6530  df-fo 6531  df-f1o 6532  df-fv 6533  df-riota 7357  df-ov 7403  df-oprab 7404  df-mpo 7405  df-om 7851  df-1st 7974  df-2nd 7975  df-frecs 8266  df-wrecs 8297  df-recs 8346  df-rdg 8385  df-1o 8441  df-2o 8442  df-oadd 8445  df-er 8682  df-en 8932  df-dom 8933  df-sdom 8934  df-fin 8935  df-dju 9875  df-card 9913  df-pnf 11233  df-mnf 11234  df-xr 11235  df-ltxr 11236  df-le 11237  df-sub 11431  df-neg 11432  df-nn 12225  df-2 12294  df-n0 12496  df-xnn0 12569  df-z 12583  df-uz 12854  df-fz 13527  df-hash 14358  df-vtx 29257  df-iedg 29258  df-edg 29307  df-uhgr 29317  df-upgr 29341  df-umgr 29342  df-uspgr 29409  df-usgr 29410  df-fusgr 29576

This theorem is referenced by:  fusgrfupgrfs  29590  nbfiusgrfi  29634  cusgrsizeindslem  29710  cusgrsizeinds  29711  sizusglecusglem2  29721  vtxdgfusgrf  29756  numclwwlk1  30621  clnbfiusgrfi  48464