Metamath Proof Explorer


Theorem eldioph2lem2

Description: Lemma for eldioph2 . Construct necessary renaming function for one direction. (Contributed by Stefan O'Rear, 8-Oct-2014)

Ref Expression
Assertion eldioph2lem2 N0¬SFin1NSANcc:1A1-1Sc1N=I1N

Proof

Step Hyp Ref Expression
1 simplr N0¬SFin1NSAN¬SFin
2 fzfi 1NFin
3 difinf ¬SFin1NFin¬S1NFin
4 1 2 3 sylancl N0¬SFin1NSAN¬S1NFin
5 fzfi 1AFin
6 diffi 1AFin1A1NFin
7 5 6 ax-mp 1A1NFin
8 isinffi ¬S1NFin1A1NFinaa:1A1N1-1S1N
9 4 7 8 sylancl N0¬SFin1NSANaa:1A1N1-1S1N
10 f1f1orn a:1A1N1-1S1Na:1A1N1-1 ontorana
11 10 adantl N0¬SFin1NSANa:1A1N1-1S1Na:1A1N1-1 ontorana
12 f1oi I1N:1N1-1 onto1N
13 12 a1i N0¬SFin1NSANa:1A1N1-1S1NI1N:1N1-1 onto1N
14 disjdifr 1A1N1N=
15 14 a1i N0¬SFin1NSANa:1A1N1-1S1N1A1N1N=
16 f1f a:1A1N1-1S1Na:1A1NS1N
17 16 frnd a:1A1N1-1S1NranaS1N
18 17 adantl N0¬SFin1NSANa:1A1N1-1S1NranaS1N
19 18 ssrind N0¬SFin1NSANa:1A1N1-1S1Nrana1NS1N1N
20 disjdifr S1N1N=
21 19 20 sseqtrdi N0¬SFin1NSANa:1A1N1-1S1Nrana1N
22 ss0 rana1Nrana1N=
23 21 22 syl N0¬SFin1NSANa:1A1N1-1S1Nrana1N=
24 f1oun a:1A1N1-1 ontoranaI1N:1N1-1 onto1N1A1N1N=rana1N=aI1N:1A1N1N1-1 ontorana1N
25 11 13 15 23 24 syl22anc N0¬SFin1NSANa:1A1N1-1S1NaI1N:1A1N1N1-1 ontorana1N
26 f1of1 aI1N:1A1N1N1-1 ontorana1NaI1N:1A1N1N1-1rana1N
27 25 26 syl N0¬SFin1NSANa:1A1N1-1S1NaI1N:1A1N1N1-1rana1N
28 uncom 1A1N1N=1N1A1N
29 simplrr N0¬SFin1NSANa:1A1N1-1S1NAN
30 fzss2 AN1N1A
31 29 30 syl N0¬SFin1NSANa:1A1N1-1S1N1N1A
32 undif 1N1A1N1A1N=1A
33 31 32 sylib N0¬SFin1NSANa:1A1N1-1S1N1N1A1N=1A
34 28 33 eqtrid N0¬SFin1NSANa:1A1N1-1S1N1A1N1N=1A
35 f1eq2 1A1N1N=1AaI1N:1A1N1N1-1rana1NaI1N:1A1-1rana1N
36 34 35 syl N0¬SFin1NSANa:1A1N1-1S1NaI1N:1A1N1N1-1rana1NaI1N:1A1-1rana1N
37 27 36 mpbid N0¬SFin1NSANa:1A1N1-1S1NaI1N:1A1-1rana1N
38 17 difss2d a:1A1N1-1S1NranaS
39 38 adantl N0¬SFin1NSANa:1A1N1-1S1NranaS
40 simplrl N0¬SFin1NSANa:1A1N1-1S1N1NS
41 39 40 unssd N0¬SFin1NSANa:1A1N1-1S1Nrana1NS
42 f1ss aI1N:1A1-1rana1Nrana1NSaI1N:1A1-1S
43 37 41 42 syl2anc N0¬SFin1NSANa:1A1N1-1S1NaI1N:1A1-1S
44 resundir aI1N1N=a1NI1N1N
45 dmres doma1N=1Ndoma
46 incom 1Ndoma=doma1N
47 f1dm a:1A1N1-1S1Ndoma=1A1N
48 47 adantl N0¬SFin1NSANa:1A1N1-1S1Ndoma=1A1N
49 48 ineq1d N0¬SFin1NSANa:1A1N1-1S1Ndoma1N=1A1N1N
50 49 14 eqtrdi N0¬SFin1NSANa:1A1N1-1S1Ndoma1N=
51 46 50 eqtrid N0¬SFin1NSANa:1A1N1-1S1N1Ndoma=
52 45 51 eqtrid N0¬SFin1NSANa:1A1N1-1S1Ndoma1N=
53 relres Rela1N
54 reldm0 Rela1Na1N=doma1N=
55 53 54 ax-mp a1N=doma1N=
56 52 55 sylibr N0¬SFin1NSANa:1A1N1-1S1Na1N=
57 residm I1N1N=I1N
58 57 a1i N0¬SFin1NSANa:1A1N1-1S1NI1N1N=I1N
59 56 58 uneq12d N0¬SFin1NSANa:1A1N1-1S1Na1NI1N1N=I1N
60 uncom I1N=I1N
61 un0 I1N=I1N
62 60 61 eqtri I1N=I1N
63 59 62 eqtrdi N0¬SFin1NSANa:1A1N1-1S1Na1NI1N1N=I1N
64 44 63 eqtrid N0¬SFin1NSANa:1A1N1-1S1NaI1N1N=I1N
65 vex aV
66 ovex 1NV
67 resiexg 1NVI1NV
68 66 67 ax-mp I1NV
69 65 68 unex aI1NV
70 f1eq1 c=aI1Nc:1A1-1SaI1N:1A1-1S
71 reseq1 c=aI1Nc1N=aI1N1N
72 71 eqeq1d c=aI1Nc1N=I1NaI1N1N=I1N
73 70 72 anbi12d c=aI1Nc:1A1-1Sc1N=I1NaI1N:1A1-1SaI1N1N=I1N
74 69 73 spcev aI1N:1A1-1SaI1N1N=I1Ncc:1A1-1Sc1N=I1N
75 43 64 74 syl2anc N0¬SFin1NSANa:1A1N1-1S1Ncc:1A1-1Sc1N=I1N
76 9 75 exlimddv N0¬SFin1NSANcc:1A1-1Sc1N=I1N