Metamath Proof Explorer


Theorem fsuppmapnn0fiublem

Description: Lemma for fsuppmapnn0fiub and fsuppmapnn0fiubex . (Contributed by AV, 2-Oct-2019)

Ref Expression
Hypotheses fsuppmapnn0fiub.u U=fMsuppZf
fsuppmapnn0fiub.s S=supU<
Assertion fsuppmapnn0fiublem MR0MFinZVfMfinSuppZfUS0

Proof

Step Hyp Ref Expression
1 fsuppmapnn0fiub.u U=fMsuppZf
2 fsuppmapnn0fiub.s S=supU<
3 nfv fMR0MFinZV
4 nfra1 ffMfinSuppZf
5 nfv fU
6 4 5 nfan ffMfinSuppZfU
7 3 6 nfan fMR0MFinZVfMfinSuppZfU
8 suppssdm fsuppZdomf
9 ssel2 MR0fMfR0
10 elmapfn fR0fFn0
11 fndm fFn0domf=0
12 eqimss domf=0domf0
13 11 12 syl fFn0domf0
14 9 10 13 3syl MR0fMdomf0
15 14 ex MR0fMdomf0
16 15 3ad2ant1 MR0MFinZVfMdomf0
17 16 adantr MR0MFinZVfMfinSuppZfUfMdomf0
18 17 imp MR0MFinZVfMfinSuppZfUfMdomf0
19 8 18 sstrid MR0MFinZVfMfinSuppZfUfMfsuppZ0
20 19 ex MR0MFinZVfMfinSuppZfUfMfsuppZ0
21 7 20 ralrimi MR0MFinZVfMfinSuppZfUfMfsuppZ0
22 iunss fMsuppZf0fMfsuppZ0
23 21 22 sylibr MR0MFinZVfMfinSuppZfUfMsuppZf0
24 1 23 eqsstrid MR0MFinZVfMfinSuppZfUU0
25 ltso <Or
26 25 a1i MR0MFinZVfMfinSuppZfU<Or
27 simp2 MR0MFinZVMFin
28 id finSuppZffinSuppZf
29 28 fsuppimpd finSuppZffsuppZFin
30 29 ralimi fMfinSuppZffMfsuppZFin
31 30 adantr fMfinSuppZfUfMfsuppZFin
32 iunfi MFinfMfsuppZFinfMsuppZfFin
33 27 31 32 syl2an MR0MFinZVfMfinSuppZfUfMsuppZfFin
34 1 33 eqeltrid MR0MFinZVfMfinSuppZfUUFin
35 simprr MR0MFinZVfMfinSuppZfUU
36 9 10 11 3syl MR0fMdomf=0
37 36 ex MR0fMdomf=0
38 37 3ad2ant1 MR0MFinZVfMdomf=0
39 38 adantr MR0MFinZVfMfinSuppZfUfMdomf=0
40 39 imp MR0MFinZVfMfinSuppZfUfMdomf=0
41 nn0ssre 0
42 40 41 eqsstrdi MR0MFinZVfMfinSuppZfUfMdomf
43 8 42 sstrid MR0MFinZVfMfinSuppZfUfMfsuppZ
44 43 ex MR0MFinZVfMfinSuppZfUfMfsuppZ
45 7 44 ralrimi MR0MFinZVfMfinSuppZfUfMfsuppZ
46 1 sseq1i UfMsuppZf
47 iunss fMsuppZffMfsuppZ
48 46 47 bitri UfMfsuppZ
49 45 48 sylibr MR0MFinZVfMfinSuppZfUU
50 fisupcl <OrUFinUUsupU<U
51 2 50 eqeltrid <OrUFinUUSU
52 26 34 35 49 51 syl13anc MR0MFinZVfMfinSuppZfUSU
53 24 52 sseldd MR0MFinZVfMfinSuppZfUS0
54 53 ex MR0MFinZVfMfinSuppZfUS0