MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  tz7.44-2 Structured version   Visualization version   GIF version

Theorem tz7.44-2 7707
Description: The value of 𝐹 at a successor ordinal. Part 2 of Theorem 7.44 of [TakeutiZaring] p. 49. (Unnecessary distinct variable restrictions were removed by David Abernethy, 19-Jun-2012.) (Contributed by NM, 23-Apr-1995.) (Revised by Mario Carneiro, 14-Nov-2014.)
Hypotheses
Ref Expression
tz7.44.1 𝐺 = (𝑥 ∈ V ↦ if(𝑥 = ∅, 𝐴, if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥)))))
tz7.44.2 (𝑦𝑋 → (𝐹𝑦) = (𝐺‘(𝐹𝑦)))
tz7.44.3 (𝑦𝑋 → (𝐹𝑦) ∈ V)
tz7.44.4 𝐹 Fn 𝑋
tz7.44.5 Ord 𝑋
Assertion
Ref Expression
tz7.44-2 (suc 𝐵𝑋 → (𝐹‘suc 𝐵) = (𝐻‘(𝐹𝐵)))
Distinct variable groups:   𝑥,𝐴   𝑥,𝑦,𝐵   𝑥,𝐹,𝑦   𝑦,𝐺   𝑥,𝐻   𝑦,𝑋
Allowed substitution hints:   𝐴(𝑦)   𝐺(𝑥)   𝐻(𝑦)   𝑋(𝑥)

Proof of Theorem tz7.44-2
StepHypRef Expression
1 fveq2 6375 . . . 4 (𝑦 = suc 𝐵 → (𝐹𝑦) = (𝐹‘suc 𝐵))
2 reseq2 5560 . . . . 5 (𝑦 = suc 𝐵 → (𝐹𝑦) = (𝐹 ↾ suc 𝐵))
32fveq2d 6379 . . . 4 (𝑦 = suc 𝐵 → (𝐺‘(𝐹𝑦)) = (𝐺‘(𝐹 ↾ suc 𝐵)))
41, 3eqeq12d 2780 . . 3 (𝑦 = suc 𝐵 → ((𝐹𝑦) = (𝐺‘(𝐹𝑦)) ↔ (𝐹‘suc 𝐵) = (𝐺‘(𝐹 ↾ suc 𝐵))))
5 tz7.44.2 . . 3 (𝑦𝑋 → (𝐹𝑦) = (𝐺‘(𝐹𝑦)))
64, 5vtoclga 3424 . 2 (suc 𝐵𝑋 → (𝐹‘suc 𝐵) = (𝐺‘(𝐹 ↾ suc 𝐵)))
72eleq1d 2829 . . . 4 (𝑦 = suc 𝐵 → ((𝐹𝑦) ∈ V ↔ (𝐹 ↾ suc 𝐵) ∈ V))
8 tz7.44.3 . . . 4 (𝑦𝑋 → (𝐹𝑦) ∈ V)
97, 8vtoclga 3424 . . 3 (suc 𝐵𝑋 → (𝐹 ↾ suc 𝐵) ∈ V)
10 noel 4083 . . . . . . 7 ¬ 𝐵 ∈ ∅
11 dmeq 5492 . . . . . . . . 9 ((𝐹 ↾ suc 𝐵) = ∅ → dom (𝐹 ↾ suc 𝐵) = dom ∅)
12 dm0 5507 . . . . . . . . 9 dom ∅ = ∅
1311, 12syl6eq 2815 . . . . . . . 8 ((𝐹 ↾ suc 𝐵) = ∅ → dom (𝐹 ↾ suc 𝐵) = ∅)
14 tz7.44.5 . . . . . . . . . . . . 13 Ord 𝑋
15 ordsson 7187 . . . . . . . . . . . . 13 (Ord 𝑋𝑋 ⊆ On)
1614, 15ax-mp 5 . . . . . . . . . . . 12 𝑋 ⊆ On
17 ordtr 5922 . . . . . . . . . . . . . 14 (Ord 𝑋 → Tr 𝑋)
1814, 17ax-mp 5 . . . . . . . . . . . . 13 Tr 𝑋
19 trsuc 5992 . . . . . . . . . . . . 13 ((Tr 𝑋 ∧ suc 𝐵𝑋) → 𝐵𝑋)
2018, 19mpan 681 . . . . . . . . . . . 12 (suc 𝐵𝑋𝐵𝑋)
2116, 20sseldi 3759 . . . . . . . . . . 11 (suc 𝐵𝑋𝐵 ∈ On)
22 sucidg 5986 . . . . . . . . . . 11 (𝐵 ∈ On → 𝐵 ∈ suc 𝐵)
2321, 22syl 17 . . . . . . . . . 10 (suc 𝐵𝑋𝐵 ∈ suc 𝐵)
24 dmres 5594 . . . . . . . . . . 11 dom (𝐹 ↾ suc 𝐵) = (suc 𝐵 ∩ dom 𝐹)
25 ordelss 5924 . . . . . . . . . . . . . 14 ((Ord 𝑋 ∧ suc 𝐵𝑋) → suc 𝐵𝑋)
2614, 25mpan 681 . . . . . . . . . . . . 13 (suc 𝐵𝑋 → suc 𝐵𝑋)
27 tz7.44.4 . . . . . . . . . . . . . 14 𝐹 Fn 𝑋
28 fndm 6168 . . . . . . . . . . . . . 14 (𝐹 Fn 𝑋 → dom 𝐹 = 𝑋)
2927, 28ax-mp 5 . . . . . . . . . . . . 13 dom 𝐹 = 𝑋
3026, 29syl6sseqr 3812 . . . . . . . . . . . 12 (suc 𝐵𝑋 → suc 𝐵 ⊆ dom 𝐹)
31 df-ss 3746 . . . . . . . . . . . 12 (suc 𝐵 ⊆ dom 𝐹 ↔ (suc 𝐵 ∩ dom 𝐹) = suc 𝐵)
3230, 31sylib 209 . . . . . . . . . . 11 (suc 𝐵𝑋 → (suc 𝐵 ∩ dom 𝐹) = suc 𝐵)
3324, 32syl5eq 2811 . . . . . . . . . 10 (suc 𝐵𝑋 → dom (𝐹 ↾ suc 𝐵) = suc 𝐵)
3423, 33eleqtrrd 2847 . . . . . . . . 9 (suc 𝐵𝑋𝐵 ∈ dom (𝐹 ↾ suc 𝐵))
35 eleq2 2833 . . . . . . . . 9 (dom (𝐹 ↾ suc 𝐵) = ∅ → (𝐵 ∈ dom (𝐹 ↾ suc 𝐵) ↔ 𝐵 ∈ ∅))
3634, 35syl5ibcom 236 . . . . . . . 8 (suc 𝐵𝑋 → (dom (𝐹 ↾ suc 𝐵) = ∅ → 𝐵 ∈ ∅))
3713, 36syl5 34 . . . . . . 7 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵) = ∅ → 𝐵 ∈ ∅))
3810, 37mtoi 190 . . . . . 6 (suc 𝐵𝑋 → ¬ (𝐹 ↾ suc 𝐵) = ∅)
3938iffalsed 4254 . . . . 5 (suc 𝐵𝑋 → if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) = if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))))
40 nlimsucg 7240 . . . . . . . 8 (𝐵 ∈ On → ¬ Lim suc 𝐵)
4121, 40syl 17 . . . . . . 7 (suc 𝐵𝑋 → ¬ Lim suc 𝐵)
42 limeq 5920 . . . . . . . 8 (dom (𝐹 ↾ suc 𝐵) = suc 𝐵 → (Lim dom (𝐹 ↾ suc 𝐵) ↔ Lim suc 𝐵))
4333, 42syl 17 . . . . . . 7 (suc 𝐵𝑋 → (Lim dom (𝐹 ↾ suc 𝐵) ↔ Lim suc 𝐵))
4441, 43mtbird 316 . . . . . 6 (suc 𝐵𝑋 → ¬ Lim dom (𝐹 ↾ suc 𝐵))
4544iffalsed 4254 . . . . 5 (suc 𝐵𝑋 → if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))) = (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))
4633unieqd 4604 . . . . . . . . 9 (suc 𝐵𝑋 dom (𝐹 ↾ suc 𝐵) = suc 𝐵)
47 eloni 5918 . . . . . . . . . . 11 (𝐵 ∈ On → Ord 𝐵)
48 ordunisuc 7230 . . . . . . . . . . 11 (Ord 𝐵 suc 𝐵 = 𝐵)
4947, 48syl 17 . . . . . . . . . 10 (𝐵 ∈ On → suc 𝐵 = 𝐵)
5021, 49syl 17 . . . . . . . . 9 (suc 𝐵𝑋 suc 𝐵 = 𝐵)
5146, 50eqtrd 2799 . . . . . . . 8 (suc 𝐵𝑋 dom (𝐹 ↾ suc 𝐵) = 𝐵)
5251fveq2d 6379 . . . . . . 7 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)) = ((𝐹 ↾ suc 𝐵)‘𝐵))
53 fvres 6394 . . . . . . . 8 (𝐵 ∈ suc 𝐵 → ((𝐹 ↾ suc 𝐵)‘𝐵) = (𝐹𝐵))
5423, 53syl 17 . . . . . . 7 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵)‘𝐵) = (𝐹𝐵))
5552, 54eqtrd 2799 . . . . . 6 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)) = (𝐹𝐵))
5655fveq2d 6379 . . . . 5 (suc 𝐵𝑋 → (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))) = (𝐻‘(𝐹𝐵)))
5739, 45, 563eqtrd 2803 . . . 4 (suc 𝐵𝑋 → if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) = (𝐻‘(𝐹𝐵)))
58 fvex 6388 . . . 4 (𝐻‘(𝐹𝐵)) ∈ V
5957, 58syl6eqel 2852 . . 3 (suc 𝐵𝑋 → if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) ∈ V)
60 eqeq1 2769 . . . . 5 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝑥 = ∅ ↔ (𝐹 ↾ suc 𝐵) = ∅))
61 dmeq 5492 . . . . . . 7 (𝑥 = (𝐹 ↾ suc 𝐵) → dom 𝑥 = dom (𝐹 ↾ suc 𝐵))
62 limeq 5920 . . . . . . 7 (dom 𝑥 = dom (𝐹 ↾ suc 𝐵) → (Lim dom 𝑥 ↔ Lim dom (𝐹 ↾ suc 𝐵)))
6361, 62syl 17 . . . . . 6 (𝑥 = (𝐹 ↾ suc 𝐵) → (Lim dom 𝑥 ↔ Lim dom (𝐹 ↾ suc 𝐵)))
64 rneq 5519 . . . . . . 7 (𝑥 = (𝐹 ↾ suc 𝐵) → ran 𝑥 = ran (𝐹 ↾ suc 𝐵))
6564unieqd 4604 . . . . . 6 (𝑥 = (𝐹 ↾ suc 𝐵) → ran 𝑥 = ran (𝐹 ↾ suc 𝐵))
66 fveq1 6374 . . . . . . . 8 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝑥 dom 𝑥) = ((𝐹 ↾ suc 𝐵)‘ dom 𝑥))
6761unieqd 4604 . . . . . . . . 9 (𝑥 = (𝐹 ↾ suc 𝐵) → dom 𝑥 = dom (𝐹 ↾ suc 𝐵))
6867fveq2d 6379 . . . . . . . 8 (𝑥 = (𝐹 ↾ suc 𝐵) → ((𝐹 ↾ suc 𝐵)‘ dom 𝑥) = ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))
6966, 68eqtrd 2799 . . . . . . 7 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝑥 dom 𝑥) = ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))
7069fveq2d 6379 . . . . . 6 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝐻‘(𝑥 dom 𝑥)) = (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))
7163, 65, 70ifbieq12d 4270 . . . . 5 (𝑥 = (𝐹 ↾ suc 𝐵) → if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥))) = if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))))
7260, 71ifbieq2d 4268 . . . 4 (𝑥 = (𝐹 ↾ suc 𝐵) → if(𝑥 = ∅, 𝐴, if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥)))) = if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))))
73 tz7.44.1 . . . 4 𝐺 = (𝑥 ∈ V ↦ if(𝑥 = ∅, 𝐴, if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥)))))
7472, 73fvmptg 6469 . . 3 (((𝐹 ↾ suc 𝐵) ∈ V ∧ if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) ∈ V) → (𝐺‘(𝐹 ↾ suc 𝐵)) = if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))))
759, 59, 74syl2anc 579 . 2 (suc 𝐵𝑋 → (𝐺‘(𝐹 ↾ suc 𝐵)) = if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))))
766, 75, 573eqtrd 2803 1 (suc 𝐵𝑋 → (𝐹‘suc 𝐵) = (𝐻‘(𝐹𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197   = wceq 1652  wcel 2155  Vcvv 3350  cin 3731  wss 3732  c0 4079  ifcif 4243   cuni 4594  cmpt 4888  Tr wtr 4911  dom cdm 5277  ran crn 5278  cres 5279  Ord word 5907  Oncon0 5908  Lim wlim 5909  suc csuc 5910   Fn wfn 6063  cfv 6068
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-sep 4941  ax-nul 4949  ax-pr 5062  ax-un 7147
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-ral 3060  df-rex 3061  df-rab 3064  df-v 3352  df-sbc 3597  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-fv 6076
This theorem is referenced by:  rdgsucg  7723
  Copyright terms: Public domain W3C validator