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 8354
Description: The value of 𝐹 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.)
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 6843 . . . 4 (𝑦 = suc 𝐵 → (𝐹𝑦) = (𝐹‘suc 𝐵))
2 reseq2 5933 . . . . 5 (𝑦 = suc 𝐵 → (𝐹𝑦) = (𝐹 ↾ suc 𝐵))
32fveq2d 6847 . . . 4 (𝑦 = suc 𝐵 → (𝐺‘(𝐹𝑦)) = (𝐺‘(𝐹 ↾ suc 𝐵)))
41, 3eqeq12d 2753 . . 3 (𝑦 = suc 𝐵 → ((𝐹𝑦) = (𝐺‘(𝐹𝑦)) ↔ (𝐹‘suc 𝐵) = (𝐺‘(𝐹 ↾ suc 𝐵))))
5 tz7.44.2 . . 3 (𝑦𝑋 → (𝐹𝑦) = (𝐺‘(𝐹𝑦)))
64, 5vtoclga 3535 . 2 (suc 𝐵𝑋 → (𝐹‘suc 𝐵) = (𝐺‘(𝐹 ↾ suc 𝐵)))
7 tz7.44.1 . . 3 𝐺 = (𝑥 ∈ V ↦ if(𝑥 = ∅, 𝐴, if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥)))))
8 eqeq1 2741 . . . 4 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝑥 = ∅ ↔ (𝐹 ↾ suc 𝐵) = ∅))
9 dmeq 5860 . . . . . 6 (𝑥 = (𝐹 ↾ suc 𝐵) → dom 𝑥 = dom (𝐹 ↾ suc 𝐵))
10 limeq 6330 . . . . . 6 (dom 𝑥 = dom (𝐹 ↾ suc 𝐵) → (Lim dom 𝑥 ↔ Lim dom (𝐹 ↾ suc 𝐵)))
119, 10syl 17 . . . . 5 (𝑥 = (𝐹 ↾ suc 𝐵) → (Lim dom 𝑥 ↔ Lim dom (𝐹 ↾ suc 𝐵)))
12 rneq 5892 . . . . . 6 (𝑥 = (𝐹 ↾ suc 𝐵) → ran 𝑥 = ran (𝐹 ↾ suc 𝐵))
1312unieqd 4880 . . . . 5 (𝑥 = (𝐹 ↾ suc 𝐵) → ran 𝑥 = ran (𝐹 ↾ suc 𝐵))
14 fveq1 6842 . . . . . . 7 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝑥 dom 𝑥) = ((𝐹 ↾ suc 𝐵)‘ dom 𝑥))
159unieqd 4880 . . . . . . . 8 (𝑥 = (𝐹 ↾ suc 𝐵) → dom 𝑥 = dom (𝐹 ↾ suc 𝐵))
1615fveq2d 6847 . . . . . . 7 (𝑥 = (𝐹 ↾ suc 𝐵) → ((𝐹 ↾ suc 𝐵)‘ dom 𝑥) = ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))
1714, 16eqtrd 2777 . . . . . 6 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝑥 dom 𝑥) = ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))
1817fveq2d 6847 . . . . 5 (𝑥 = (𝐹 ↾ suc 𝐵) → (𝐻‘(𝑥 dom 𝑥)) = (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))
1911, 13, 18ifbieq12d 4515 . . . 4 (𝑥 = (𝐹 ↾ suc 𝐵) → if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥))) = if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))))
208, 19ifbieq2d 4513 . . 3 (𝑥 = (𝐹 ↾ suc 𝐵) → if(𝑥 = ∅, 𝐴, if(Lim dom 𝑥, ran 𝑥, (𝐻‘(𝑥 dom 𝑥)))) = if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))))
212eleq1d 2823 . . . 4 (𝑦 = suc 𝐵 → ((𝐹𝑦) ∈ V ↔ (𝐹 ↾ suc 𝐵) ∈ V))
22 tz7.44.3 . . . 4 (𝑦𝑋 → (𝐹𝑦) ∈ V)
2321, 22vtoclga 3535 . . 3 (suc 𝐵𝑋 → (𝐹 ↾ suc 𝐵) ∈ V)
24 noel 4291 . . . . . . 7 ¬ 𝐵 ∈ ∅
25 dmeq 5860 . . . . . . . . 9 ((𝐹 ↾ suc 𝐵) = ∅ → dom (𝐹 ↾ suc 𝐵) = dom ∅)
26 dm0 5877 . . . . . . . . 9 dom ∅ = ∅
2725, 26eqtrdi 2793 . . . . . . . 8 ((𝐹 ↾ suc 𝐵) = ∅ → dom (𝐹 ↾ suc 𝐵) = ∅)
28 tz7.44.5 . . . . . . . . . . . . 13 Ord 𝑋
29 ordsson 7718 . . . . . . . . . . . . 13 (Ord 𝑋𝑋 ⊆ On)
3028, 29ax-mp 5 . . . . . . . . . . . 12 𝑋 ⊆ On
31 ordtr 6332 . . . . . . . . . . . . . 14 (Ord 𝑋 → Tr 𝑋)
3228, 31ax-mp 5 . . . . . . . . . . . . 13 Tr 𝑋
33 trsuc 6405 . . . . . . . . . . . . 13 ((Tr 𝑋 ∧ suc 𝐵𝑋) → 𝐵𝑋)
3432, 33mpan 689 . . . . . . . . . . . 12 (suc 𝐵𝑋𝐵𝑋)
3530, 34sselid 3943 . . . . . . . . . . 11 (suc 𝐵𝑋𝐵 ∈ On)
36 sucidg 6399 . . . . . . . . . . 11 (𝐵 ∈ On → 𝐵 ∈ suc 𝐵)
3735, 36syl 17 . . . . . . . . . 10 (suc 𝐵𝑋𝐵 ∈ suc 𝐵)
38 dmres 5960 . . . . . . . . . . 11 dom (𝐹 ↾ suc 𝐵) = (suc 𝐵 ∩ dom 𝐹)
39 ordelss 6334 . . . . . . . . . . . . . 14 ((Ord 𝑋 ∧ suc 𝐵𝑋) → suc 𝐵𝑋)
4028, 39mpan 689 . . . . . . . . . . . . 13 (suc 𝐵𝑋 → suc 𝐵𝑋)
41 tz7.44.4 . . . . . . . . . . . . . 14 𝐹 Fn 𝑋
4241fndmi 6607 . . . . . . . . . . . . 13 dom 𝐹 = 𝑋
4340, 42sseqtrrdi 3996 . . . . . . . . . . . 12 (suc 𝐵𝑋 → suc 𝐵 ⊆ dom 𝐹)
44 df-ss 3928 . . . . . . . . . . . 12 (suc 𝐵 ⊆ dom 𝐹 ↔ (suc 𝐵 ∩ dom 𝐹) = suc 𝐵)
4543, 44sylib 217 . . . . . . . . . . 11 (suc 𝐵𝑋 → (suc 𝐵 ∩ dom 𝐹) = suc 𝐵)
4638, 45eqtrid 2789 . . . . . . . . . 10 (suc 𝐵𝑋 → dom (𝐹 ↾ suc 𝐵) = suc 𝐵)
4737, 46eleqtrrd 2841 . . . . . . . . 9 (suc 𝐵𝑋𝐵 ∈ dom (𝐹 ↾ suc 𝐵))
48 eleq2 2827 . . . . . . . . 9 (dom (𝐹 ↾ suc 𝐵) = ∅ → (𝐵 ∈ dom (𝐹 ↾ suc 𝐵) ↔ 𝐵 ∈ ∅))
4947, 48syl5ibcom 244 . . . . . . . 8 (suc 𝐵𝑋 → (dom (𝐹 ↾ suc 𝐵) = ∅ → 𝐵 ∈ ∅))
5027, 49syl5 34 . . . . . . 7 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵) = ∅ → 𝐵 ∈ ∅))
5124, 50mtoi 198 . . . . . 6 (suc 𝐵𝑋 → ¬ (𝐹 ↾ suc 𝐵) = ∅)
5251iffalsed 4498 . . . . 5 (suc 𝐵𝑋 → if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) = if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))))
53 nlimsucg 7779 . . . . . . . 8 (𝐵 ∈ On → ¬ Lim suc 𝐵)
5435, 53syl 17 . . . . . . 7 (suc 𝐵𝑋 → ¬ Lim suc 𝐵)
55 limeq 6330 . . . . . . . 8 (dom (𝐹 ↾ suc 𝐵) = suc 𝐵 → (Lim dom (𝐹 ↾ suc 𝐵) ↔ Lim suc 𝐵))
5646, 55syl 17 . . . . . . 7 (suc 𝐵𝑋 → (Lim dom (𝐹 ↾ suc 𝐵) ↔ Lim suc 𝐵))
5754, 56mtbird 325 . . . . . 6 (suc 𝐵𝑋 → ¬ Lim dom (𝐹 ↾ suc 𝐵))
5857iffalsed 4498 . . . . 5 (suc 𝐵𝑋 → if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)))) = (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))
5946unieqd 4880 . . . . . . . . 9 (suc 𝐵𝑋 dom (𝐹 ↾ suc 𝐵) = suc 𝐵)
60 eloni 6328 . . . . . . . . . 10 (𝐵 ∈ On → Ord 𝐵)
61 ordunisuc 7768 . . . . . . . . . 10 (Ord 𝐵 suc 𝐵 = 𝐵)
6235, 60, 613syl 18 . . . . . . . . 9 (suc 𝐵𝑋 suc 𝐵 = 𝐵)
6359, 62eqtrd 2777 . . . . . . . 8 (suc 𝐵𝑋 dom (𝐹 ↾ suc 𝐵) = 𝐵)
6463fveq2d 6847 . . . . . . 7 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)) = ((𝐹 ↾ suc 𝐵)‘𝐵))
6537fvresd 6863 . . . . . . 7 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵)‘𝐵) = (𝐹𝐵))
6664, 65eqtrd 2777 . . . . . 6 (suc 𝐵𝑋 → ((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵)) = (𝐹𝐵))
6766fveq2d 6847 . . . . 5 (suc 𝐵𝑋 → (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))) = (𝐻‘(𝐹𝐵)))
6852, 58, 673eqtrd 2781 . . . 4 (suc 𝐵𝑋 → if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) = (𝐻‘(𝐹𝐵)))
69 fvex 6856 . . . 4 (𝐻‘(𝐹𝐵)) ∈ V
7068, 69eqeltrdi 2846 . . 3 (suc 𝐵𝑋 → if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))) ∈ V)
717, 20, 23, 70fvmptd3 6972 . 2 (suc 𝐵𝑋 → (𝐺‘(𝐹 ↾ suc 𝐵)) = if((𝐹 ↾ suc 𝐵) = ∅, 𝐴, if(Lim dom (𝐹 ↾ suc 𝐵), ran (𝐹 ↾ suc 𝐵), (𝐻‘((𝐹 ↾ suc 𝐵)‘ dom (𝐹 ↾ suc 𝐵))))))
726, 71, 683eqtrd 2781 1 (suc 𝐵𝑋 → (𝐹‘suc 𝐵) = (𝐻‘(𝐹𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205   = wceq 1542  wcel 2107  Vcvv 3446  cin 3910  wss 3911  c0 4283  ifcif 4487   cuni 4866  cmpt 5189  Tr wtr 5223  dom cdm 5634  ran crn 5635  cres 5636  Ord word 6317  Oncon0 6318  Lim wlim 6319  suc csuc 6320   Fn wfn 6492  cfv 6497
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-sep 5257  ax-nul 5264  ax-pr 5385  ax-un 7673
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-ral 3066  df-rex 3075  df-rab 3409  df-v 3448  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3930  df-nul 4284  df-if 4488  df-pw 4563  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4867  df-br 5107  df-opab 5169  df-mpt 5190  df-tr 5224  df-id 5532  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5589  df-we 5591  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6499  df-fn 6500  df-fv 6505
This theorem is referenced by:  rdgsucg  8370
  Copyright terms: Public domain W3C validator