Theorem fsuppres 9418

Description: The restriction of a finitely supported function is finitely supported. (Contributed by AV, 14-Jul-2019.)

Hypotheses

Ref	Expression
fsuppres.s	⊢ (𝜑 → 𝐹 finSupp 𝑍)
fsuppres.z	⊢ (𝜑 → 𝑍 ∈ 𝑉)

Assertion

Ref	Expression
fsuppres	⊢ (𝜑 → (𝐹 ↾ 𝑋) finSupp 𝑍)

Proof of Theorem fsuppres

Step	Hyp	Ref	Expression
1		fsuppres.s	. . 3 ⊢ (𝜑 → 𝐹 finSupp 𝑍)
2		fsuppimp 9394	. . . 4 ⊢ (𝐹 finSupp 𝑍 → (Fun 𝐹 ∧ (𝐹 supp 𝑍) ∈ Fin))
3		relprcnfsupp 9390	. . . . . . . . . . . 12 ⊢ (¬ 𝐹 ∈ V → ¬ 𝐹 finSupp 𝑍)
4	3	con4i 114	. . . . . . . . . . 11 ⊢ (𝐹 finSupp 𝑍 → 𝐹 ∈ V)
5	1, 4	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ V)
6		fsuppres.z	. . . . . . . . . 10 ⊢ (𝜑 → 𝑍 ∈ 𝑉)
7	5, 6	jca 510	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 ∈ V ∧ 𝑍 ∈ 𝑉))
8	7	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ Fun 𝐹) → (𝐹 ∈ V ∧ 𝑍 ∈ 𝑉))
9		ressuppss 8188	. . . . . . . 8 ⊢ ((𝐹 ∈ V ∧ 𝑍 ∈ 𝑉) → ((𝐹 ↾ 𝑋) supp 𝑍) ⊆ (𝐹 supp 𝑍))
10		ssfi 9198	. . . . . . . . 9 ⊢ (((𝐹 supp 𝑍) ∈ Fin ∧ ((𝐹 ↾ 𝑋) supp 𝑍) ⊆ (𝐹 supp 𝑍)) → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin)
11	10	expcom 412	. . . . . . . 8 ⊢ (((𝐹 ↾ 𝑋) supp 𝑍) ⊆ (𝐹 supp 𝑍) → ((𝐹 supp 𝑍) ∈ Fin → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin))
12	8, 9, 11	3syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ Fun 𝐹) → ((𝐹 supp 𝑍) ∈ Fin → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin))
13	12	expcom 412	. . . . . 6 ⊢ (Fun 𝐹 → (𝜑 → ((𝐹 supp 𝑍) ∈ Fin → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin)))
14	13	com23 86	. . . . 5 ⊢ (Fun 𝐹 → ((𝐹 supp 𝑍) ∈ Fin → (𝜑 → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin)))
15	14	imp 405	. . . 4 ⊢ ((Fun 𝐹 ∧ (𝐹 supp 𝑍) ∈ Fin) → (𝜑 → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin))
16	2, 15	syl 17	. . 3 ⊢ (𝐹 finSupp 𝑍 → (𝜑 → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin))
17	1, 16	mpcom 38	. 2 ⊢ (𝜑 → ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin)
18		funres 6596	. . . . 5 ⊢ (Fun 𝐹 → Fun (𝐹 ↾ 𝑋))
19	18	adantr 479	. . . 4 ⊢ ((Fun 𝐹 ∧ (𝐹 supp 𝑍) ∈ Fin) → Fun (𝐹 ↾ 𝑋))
20	1, 2, 19	3syl 18	. . 3 ⊢ (𝜑 → Fun (𝐹 ↾ 𝑋))
21		resexg 6032	. . . 4 ⊢ (𝐹 ∈ V → (𝐹 ↾ 𝑋) ∈ V)
22	1, 4, 21	3syl 18	. . 3 ⊢ (𝜑 → (𝐹 ↾ 𝑋) ∈ V)
23		funisfsupp 9393	. . 3 ⊢ ((Fun (𝐹 ↾ 𝑋) ∧ (𝐹 ↾ 𝑋) ∈ V ∧ 𝑍 ∈ 𝑉) → ((𝐹 ↾ 𝑋) finSupp 𝑍 ↔ ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin))
24	20, 22, 6, 23	syl3anc 1368	. 2 ⊢ (𝜑 → ((𝐹 ↾ 𝑋) finSupp 𝑍 ↔ ((𝐹 ↾ 𝑋) supp 𝑍) ∈ Fin))
25	17, 24	mpbird 256	1 ⊢ (𝜑 → (𝐹 ↾ 𝑋) finSupp 𝑍)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 394   ∈ wcel 2098  Vcvv 3461   ⊆ wss 3944   class class class wbr 5149   ↾ cres 5680  Fun wfun 6543  (class class class)co 7419   supp csupp 8165  Fincfn 8964   finSupp cfsupp 9387

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-sep 5300  ax-nul 5307  ax-pr 5429  ax-un 7741

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2930  df-ral 3051  df-rex 3060  df-reu 3364  df-rab 3419  df-v 3463  df-sbc 3774  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3964  df-nul 4323  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-uni 4910  df-br 5150  df-opab 5212  df-tr 5267  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-ord 6374  df-on 6375  df-lim 6376  df-suc 6377  df-iota 6501  df-fun 6551  df-fn 6552  df-f 6553  df-f1 6554  df-fo 6555  df-f1o 6556  df-fv 6557  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7872  df-supp 8166  df-1o 8487  df-en 8965  df-fin 8968  df-fsupp 9388

This theorem is referenced by:  fmptssfisupp  9419  dprdfadd  19989  frlmsplit2  21724  gsumle  32894  elrspunsn  33241  rprmdvdsprod  33346  zarcmplem  33610  psrbagres  41911  evlselv  41952  fsuppssind  41958  cantnf2  42893  lindslinindimp2lem3  47711  lindslinindsimp2lem5  47713