MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  wfrlem14OLD Structured version   Visualization version   GIF version

Theorem wfrlem14OLD 8324
Description: Lemma for well-ordered recursion. Compute the value of 𝐶. Obsolete as of 18-Nov-2024. (New usage is discouraged.) (Proof modification is discouraged.) (Contributed by Scott Fenton, 21-Apr-2011.)
Hypotheses
Ref Expression
wfrlem13OLD.1 𝑅 We 𝐴
wfrlem13OLD.2 𝑅 Se 𝐴
wfrlem13OLD.3 𝐹 = wrecs(𝑅, 𝐴, 𝐺)
wfrlem13OLD.4 𝐶 = (𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩})
Assertion
Ref Expression
wfrlem14OLD (𝑧 ∈ (𝐴 ∖ dom 𝐹) → (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
Distinct variable groups:   𝑦,𝐴,𝑧   𝑦,𝐹,𝑧   𝑦,𝐺   𝑦,𝑅,𝑧   𝑦,𝐶
Allowed substitution hints:   𝐶(𝑧)   𝐺(𝑧)

Proof of Theorem wfrlem14OLD
StepHypRef Expression
1 wfrlem13OLD.1 . . 3 𝑅 We 𝐴
2 wfrlem13OLD.2 . . 3 𝑅 Se 𝐴
3 wfrlem13OLD.3 . . 3 𝐹 = wrecs(𝑅, 𝐴, 𝐺)
4 wfrlem13OLD.4 . . 3 𝐶 = (𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩})
51, 2, 3, 4wfrlem13OLD 8323 . 2 (𝑧 ∈ (𝐴 ∖ dom 𝐹) → 𝐶 Fn (dom 𝐹 ∪ {𝑧}))
6 elun 4147 . . . 4 (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) ↔ (𝑦 ∈ dom 𝐹𝑦 ∈ {𝑧}))
7 velsn 4643 . . . . 5 (𝑦 ∈ {𝑧} ↔ 𝑦 = 𝑧)
87orbi2i 909 . . . 4 ((𝑦 ∈ dom 𝐹𝑦 ∈ {𝑧}) ↔ (𝑦 ∈ dom 𝐹𝑦 = 𝑧))
96, 8bitri 274 . . 3 (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) ↔ (𝑦 ∈ dom 𝐹𝑦 = 𝑧))
101, 2, 3wfrlem12OLD 8322 . . . . . . 7 (𝑦 ∈ dom 𝐹 → (𝐹𝑦) = (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑦))))
11 fnfun 6648 . . . . . . . 8 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → Fun 𝐶)
12 ssun1 4171 . . . . . . . . . 10 𝐹 ⊆ (𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩})
1312, 4sseqtrri 4018 . . . . . . . . 9 𝐹𝐶
14 funssfv 6911 . . . . . . . . . 10 ((Fun 𝐶𝐹𝐶𝑦 ∈ dom 𝐹) → (𝐶𝑦) = (𝐹𝑦))
153wfrdmclOLD 8319 . . . . . . . . . . . 12 (𝑦 ∈ dom 𝐹 → Pred(𝑅, 𝐴, 𝑦) ⊆ dom 𝐹)
16 fun2ssres 6592 . . . . . . . . . . . 12 ((Fun 𝐶𝐹𝐶 ∧ Pred(𝑅, 𝐴, 𝑦) ⊆ dom 𝐹) → (𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝐹 ↾ Pred(𝑅, 𝐴, 𝑦)))
1715, 16syl3an3 1163 . . . . . . . . . . 11 ((Fun 𝐶𝐹𝐶𝑦 ∈ dom 𝐹) → (𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝐹 ↾ Pred(𝑅, 𝐴, 𝑦)))
1817fveq2d 6894 . . . . . . . . . 10 ((Fun 𝐶𝐹𝐶𝑦 ∈ dom 𝐹) → (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑦))))
1914, 18eqeq12d 2746 . . . . . . . . 9 ((Fun 𝐶𝐹𝐶𝑦 ∈ dom 𝐹) → ((𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝐹𝑦) = (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑦)))))
2013, 19mp3an2 1447 . . . . . . . 8 ((Fun 𝐶𝑦 ∈ dom 𝐹) → ((𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝐹𝑦) = (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑦)))))
2111, 20sylan 578 . . . . . . 7 ((𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ 𝑦 ∈ dom 𝐹) → ((𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝐹𝑦) = (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑦)))))
2210, 21imbitrrid 245 . . . . . 6 ((𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ 𝑦 ∈ dom 𝐹) → (𝑦 ∈ dom 𝐹 → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
2322ex 411 . . . . 5 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → (𝑦 ∈ dom 𝐹 → (𝑦 ∈ dom 𝐹 → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))))
2423pm2.43d 53 . . . 4 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → (𝑦 ∈ dom 𝐹 → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
25 vsnid 4664 . . . . . . 7 𝑧 ∈ {𝑧}
26 elun2 4176 . . . . . . 7 (𝑧 ∈ {𝑧} → 𝑧 ∈ (dom 𝐹 ∪ {𝑧}))
2725, 26ax-mp 5 . . . . . 6 𝑧 ∈ (dom 𝐹 ∪ {𝑧})
284reseq1i 5976 . . . . . . . . . . . . 13 (𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)) = ((𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩}) ↾ Pred(𝑅, 𝐴, 𝑧))
29 resundir 5995 . . . . . . . . . . . . 13 ((𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩}) ↾ Pred(𝑅, 𝐴, 𝑧)) = ((𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)) ∪ ({⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} ↾ Pred(𝑅, 𝐴, 𝑧)))
30 wefr 5665 . . . . . . . . . . . . . . . . 17 (𝑅 We 𝐴𝑅 Fr 𝐴)
311, 30ax-mp 5 . . . . . . . . . . . . . . . 16 𝑅 Fr 𝐴
32 predfrirr 6334 . . . . . . . . . . . . . . . 16 (𝑅 Fr 𝐴 → ¬ 𝑧 ∈ Pred(𝑅, 𝐴, 𝑧))
33 ressnop0 7152 . . . . . . . . . . . . . . . 16 𝑧 ∈ Pred(𝑅, 𝐴, 𝑧) → ({⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} ↾ Pred(𝑅, 𝐴, 𝑧)) = ∅)
3431, 32, 33mp2b 10 . . . . . . . . . . . . . . 15 ({⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} ↾ Pred(𝑅, 𝐴, 𝑧)) = ∅
3534uneq2i 4159 . . . . . . . . . . . . . 14 ((𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)) ∪ ({⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} ↾ Pred(𝑅, 𝐴, 𝑧))) = ((𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)) ∪ ∅)
36 un0 4389 . . . . . . . . . . . . . 14 ((𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)) ∪ ∅) = (𝐹 ↾ Pred(𝑅, 𝐴, 𝑧))
3735, 36eqtri 2758 . . . . . . . . . . . . 13 ((𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)) ∪ ({⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} ↾ Pred(𝑅, 𝐴, 𝑧))) = (𝐹 ↾ Pred(𝑅, 𝐴, 𝑧))
3828, 29, 373eqtri 2762 . . . . . . . . . . . 12 (𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)) = (𝐹 ↾ Pred(𝑅, 𝐴, 𝑧))
3938fveq2i 6893 . . . . . . . . . . 11 (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧))) = (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))
4039opeq2i 4876 . . . . . . . . . 10 𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ = ⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩
41 opex 5463 . . . . . . . . . . 11 𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ V
4241elsn 4642 . . . . . . . . . 10 (⟨𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} ↔ ⟨𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ = ⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩)
4340, 42mpbir 230 . . . . . . . . 9 𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩}
44 elun2 4176 . . . . . . . . 9 (⟨𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩} → ⟨𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ (𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩}))
4543, 44ax-mp 5 . . . . . . . 8 𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ (𝐹 ∪ {⟨𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩})
4645, 4eleqtrri 2830 . . . . . . 7 𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ 𝐶
47 fnopfvb 6944 . . . . . . 7 ((𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ 𝑧 ∈ (dom 𝐹 ∪ {𝑧})) → ((𝐶𝑧) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧))) ↔ ⟨𝑧, (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))⟩ ∈ 𝐶))
4846, 47mpbiri 257 . . . . . 6 ((𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ 𝑧 ∈ (dom 𝐹 ∪ {𝑧})) → (𝐶𝑧) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧))))
4927, 48mpan2 687 . . . . 5 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → (𝐶𝑧) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧))))
50 fveq2 6890 . . . . . 6 (𝑦 = 𝑧 → (𝐶𝑦) = (𝐶𝑧))
51 predeq3 6303 . . . . . . . 8 (𝑦 = 𝑧 → Pred(𝑅, 𝐴, 𝑦) = Pred(𝑅, 𝐴, 𝑧))
5251reseq2d 5980 . . . . . . 7 (𝑦 = 𝑧 → (𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))
5352fveq2d 6894 . . . . . 6 (𝑦 = 𝑧 → (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧))))
5450, 53eqeq12d 2746 . . . . 5 (𝑦 = 𝑧 → ((𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝐶𝑧) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑧)))))
5549, 54syl5ibrcom 246 . . . 4 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → (𝑦 = 𝑧 → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
5624, 55jaod 855 . . 3 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → ((𝑦 ∈ dom 𝐹𝑦 = 𝑧) → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
579, 56biimtrid 241 . 2 (𝐶 Fn (dom 𝐹 ∪ {𝑧}) → (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
585, 57syl 17 1 (𝑧 ∈ (𝐴 ∖ dom 𝐹) → (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) → (𝐶𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 394  wo 843  w3a 1085   = wceq 1539  wcel 2104  cdif 3944  cun 3945  wss 3947  c0 4321  {csn 4627  cop 4633   Fr wfr 5627   Se wse 5628   We wwe 5629  dom cdm 5675  cres 5677  Predcpred 6298  Fun wfun 6536   Fn wfn 6537  cfv 6542  wrecscwrecs 8298
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-sep 5298  ax-nul 5305  ax-pr 5426  ax-un 7727
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6299  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-fo 6548  df-fv 6550  df-ov 7414  df-2nd 7978  df-frecs 8268  df-wrecs 8299
This theorem is referenced by:  wfrlem15OLD  8325
  Copyright terms: Public domain W3C validator