Metamath Proof Explorer


Theorem tz7.44-2

Description: The value of F at a successor ordinal. Part 2 of Theorem 7.44 of TakeutiZaring p. 49. (Contributed by NM, 23-Apr-1995) Remove unnecessary distinct variable conditions. (Revised by David Abernethy, 19-Jun-2012) (Revised by Mario Carneiro, 14-Nov-2014)

Ref Expression
Hypotheses tz7.44.1 G=xVifx=AifLimdomxranxHxdomx
tz7.44.2 yXFy=GFy
tz7.44.3 yXFyV
tz7.44.4 FFnX
tz7.44.5 OrdX
Assertion tz7.44-2 sucBXFsucB=HFB

Proof

Step Hyp Ref Expression
1 tz7.44.1 G=xVifx=AifLimdomxranxHxdomx
2 tz7.44.2 yXFy=GFy
3 tz7.44.3 yXFyV
4 tz7.44.4 FFnX
5 tz7.44.5 OrdX
6 fveq2 y=sucBFy=FsucB
7 reseq2 y=sucBFy=FsucB
8 7 fveq2d y=sucBGFy=GFsucB
9 6 8 eqeq12d y=sucBFy=GFyFsucB=GFsucB
10 9 2 vtoclga sucBXFsucB=GFsucB
11 eqeq1 x=FsucBx=FsucB=
12 dmeq x=FsucBdomx=domFsucB
13 limeq domx=domFsucBLimdomxLimdomFsucB
14 12 13 syl x=FsucBLimdomxLimdomFsucB
15 rneq x=FsucBranx=ranFsucB
16 15 unieqd x=FsucBranx=ranFsucB
17 fveq1 x=FsucBxdomx=FsucBdomx
18 12 unieqd x=FsucBdomx=domFsucB
19 18 fveq2d x=FsucBFsucBdomx=FsucBdomFsucB
20 17 19 eqtrd x=FsucBxdomx=FsucBdomFsucB
21 20 fveq2d x=FsucBHxdomx=HFsucBdomFsucB
22 14 16 21 ifbieq12d x=FsucBifLimdomxranxHxdomx=ifLimdomFsucBranFsucBHFsucBdomFsucB
23 11 22 ifbieq2d x=FsucBifx=AifLimdomxranxHxdomx=ifFsucB=AifLimdomFsucBranFsucBHFsucBdomFsucB
24 7 eleq1d y=sucBFyVFsucBV
25 24 3 vtoclga sucBXFsucBV
26 noel ¬B
27 dmeq FsucB=domFsucB=dom
28 dm0 dom=
29 27 28 eqtrdi FsucB=domFsucB=
30 ordsson OrdXXOn
31 5 30 ax-mp XOn
32 ordtr OrdXTrX
33 5 32 ax-mp TrX
34 trsuc TrXsucBXBX
35 33 34 mpan sucBXBX
36 31 35 sselid sucBXBOn
37 sucidg BOnBsucB
38 36 37 syl sucBXBsucB
39 dmres domFsucB=sucBdomF
40 ordelss OrdXsucBXsucBX
41 5 40 mpan sucBXsucBX
42 4 fndmi domF=X
43 41 42 sseqtrrdi sucBXsucBdomF
44 df-ss sucBdomFsucBdomF=sucB
45 43 44 sylib sucBXsucBdomF=sucB
46 39 45 eqtrid sucBXdomFsucB=sucB
47 38 46 eleqtrrd sucBXBdomFsucB
48 eleq2 domFsucB=BdomFsucBB
49 47 48 syl5ibcom sucBXdomFsucB=B
50 29 49 syl5 sucBXFsucB=B
51 26 50 mtoi sucBX¬FsucB=
52 51 iffalsed sucBXifFsucB=AifLimdomFsucBranFsucBHFsucBdomFsucB=ifLimdomFsucBranFsucBHFsucBdomFsucB
53 nlimsucg BOn¬LimsucB
54 36 53 syl sucBX¬LimsucB
55 limeq domFsucB=sucBLimdomFsucBLimsucB
56 46 55 syl sucBXLimdomFsucBLimsucB
57 54 56 mtbird sucBX¬LimdomFsucB
58 57 iffalsed sucBXifLimdomFsucBranFsucBHFsucBdomFsucB=HFsucBdomFsucB
59 46 unieqd sucBXdomFsucB=sucB
60 eloni BOnOrdB
61 ordunisuc OrdBsucB=B
62 36 60 61 3syl sucBXsucB=B
63 59 62 eqtrd sucBXdomFsucB=B
64 63 fveq2d sucBXFsucBdomFsucB=FsucBB
65 38 fvresd sucBXFsucBB=FB
66 64 65 eqtrd sucBXFsucBdomFsucB=FB
67 66 fveq2d sucBXHFsucBdomFsucB=HFB
68 52 58 67 3eqtrd sucBXifFsucB=AifLimdomFsucBranFsucBHFsucBdomFsucB=HFB
69 fvex HFBV
70 68 69 eqeltrdi sucBXifFsucB=AifLimdomFsucBranFsucBHFsucBdomFsucBV
71 1 23 25 70 fvmptd3 sucBXGFsucB=ifFsucB=AifLimdomFsucBranFsucBHFsucBdomFsucB
72 10 71 68 3eqtrd sucBXFsucB=HFB