Metamath Proof Explorer


Theorem funisfsupp

Description: The property of a function to be finitely supported (in relation to a given zero). (Contributed by AV, 23-May-2019)

Ref Expression
Assertion funisfsupp ( ( Fun 𝑅𝑅𝑉𝑍𝑊 ) → ( 𝑅 finSupp 𝑍 ↔ ( 𝑅 supp 𝑍 ) ∈ Fin ) )

Proof

Step Hyp Ref Expression
1 isfsupp ( ( 𝑅𝑉𝑍𝑊 ) → ( 𝑅 finSupp 𝑍 ↔ ( Fun 𝑅 ∧ ( 𝑅 supp 𝑍 ) ∈ Fin ) ) )
2 1 3adant1 ( ( Fun 𝑅𝑅𝑉𝑍𝑊 ) → ( 𝑅 finSupp 𝑍 ↔ ( Fun 𝑅 ∧ ( 𝑅 supp 𝑍 ) ∈ Fin ) ) )
3 ibar ( Fun 𝑅 → ( ( 𝑅 supp 𝑍 ) ∈ Fin ↔ ( Fun 𝑅 ∧ ( 𝑅 supp 𝑍 ) ∈ Fin ) ) )
4 3 bicomd ( Fun 𝑅 → ( ( Fun 𝑅 ∧ ( 𝑅 supp 𝑍 ) ∈ Fin ) ↔ ( 𝑅 supp 𝑍 ) ∈ Fin ) )
5 4 3ad2ant1 ( ( Fun 𝑅𝑅𝑉𝑍𝑊 ) → ( ( Fun 𝑅 ∧ ( 𝑅 supp 𝑍 ) ∈ Fin ) ↔ ( 𝑅 supp 𝑍 ) ∈ Fin ) )
6 2 5 bitrd ( ( Fun 𝑅𝑅𝑉𝑍𝑊 ) → ( 𝑅 finSupp 𝑍 ↔ ( 𝑅 supp 𝑍 ) ∈ Fin ) )