Theorem tfrlem11 8317

Description: Lemma for transfinite recursion. Compute the value of 𝐶. (Contributed by NM, 18-Aug-1994.) (Revised by Mario Carneiro, 9-May-2015.)

Hypotheses

Ref	Expression
tfrlem.1	⊢ 𝐴 = {𝑓 ∣ ∃𝑥 ∈ On (𝑓 Fn 𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ 𝑦)))}
tfrlem.3	⊢ 𝐶 = (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})

Assertion

Ref	Expression
tfrlem11	⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ suc dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))

Distinct variable groups:   𝑥,𝑓,𝑦,𝐵   𝐶,𝑓,𝑥,𝑦   𝑓,𝐹,𝑥,𝑦

Allowed substitution hints:   𝐴(𝑥,𝑦,𝑓)

Proof of Theorem tfrlem11

Step	Hyp	Ref	Expression
1		elsuci 6384	. 2 ⊢ (𝐵 ∈ suc dom recs(𝐹) → (𝐵 ∈ dom recs(𝐹) ∨ 𝐵 = dom recs(𝐹)))
2		tfrlem.1	. . . . . . . . 9 ⊢ 𝐴 = {𝑓 ∣ ∃𝑥 ∈ On (𝑓 Fn 𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ 𝑦)))}
3		tfrlem.3	. . . . . . . . 9 ⊢ 𝐶 = (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
4	2, 3	tfrlem10 8316	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → 𝐶 Fn suc dom recs(𝐹))
5		fnfun 6590	. . . . . . . 8 ⊢ (𝐶 Fn suc dom recs(𝐹) → Fun 𝐶)
6	4, 5	syl 17	. . . . . . 7 ⊢ (dom recs(𝐹) ∈ On → Fun 𝐶)
7		ssun1 4128	. . . . . . . . 9 ⊢ recs(𝐹) ⊆ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
8	7, 3	sseqtrri 3981	. . . . . . . 8 ⊢ recs(𝐹) ⊆ 𝐶
9	2	tfrlem9 8314	. . . . . . . . 9 ⊢ (𝐵 ∈ dom recs(𝐹) → (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
10		funssfv 6853	. . . . . . . . . . . 12 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ∈ dom recs(𝐹)) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
11	10	3expa 1118	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ∈ dom recs(𝐹)) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
12	11	adantrl 716	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
13		onelss 6357	. . . . . . . . . . . 12 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹)))
14	13	imp 406	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹)) → 𝐵 ⊆ dom recs(𝐹))
15		fun2ssres 6535	. . . . . . . . . . . . 13 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
16	15	3expa 1118	. . . . . . . . . . . 12 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
17	16	fveq2d 6836	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
18	14, 17	sylan2 593	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
19	12, 18	eqeq12d 2750	. . . . . . . . 9 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵))))
20	9, 19	imbitrrid 246	. . . . . . . 8 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
21	8, 20	mpanl2 701	. . . . . . 7 ⊢ ((Fun 𝐶 ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
22	6, 21	sylan 580	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
23	22	exp32 420	. . . . 5 ⊢ (dom recs(𝐹) ∈ On → (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))))
24	23	pm2.43i 52	. . . 4 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)))))
25	24	pm2.43d 53	. . 3 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
26		opex 5410	. . . . . . . . 9 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ V
27	26	snid 4617	. . . . . . . 8 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩}
28		opeq1 4827	. . . . . . . . . . 11 ⊢ (𝐵 = dom recs(𝐹) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
29	28	adantl 481	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
30		eqimss 3990	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹))
31	8, 15	mp3an2 1451	. . . . . . . . . . . . . 14 ⊢ ((Fun 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
32	6, 30, 31	syl2an 596	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
33		reseq2 5931	. . . . . . . . . . . . . . 15 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = (recs(𝐹) ↾ dom recs(𝐹)))
34	2	tfrlem6 8311	. . . . . . . . . . . . . . . 16 ⊢ Rel recs(𝐹)
35		resdm 5983	. . . . . . . . . . . . . . . 16 ⊢ (Rel recs(𝐹) → (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹))
36	34, 35	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹)
37	33, 36	eqtrdi 2785	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
38	37	adantl 481	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
39	32, 38	eqtrd 2769	. . . . . . . . . . . 12 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = recs(𝐹))
40	39	fveq2d 6836	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘recs(𝐹)))
41	40	opeq2d 4834	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
42	29, 41	eqtrd 2769	. . . . . . . . 9 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
43	42	sneqd 4590	. . . . . . . 8 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩} = {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
44	27, 43	eleqtrid 2840	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
45		elun2 4133	. . . . . . 7 ⊢ (⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩} → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩}))
46	44, 45	syl 17	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩}))
47	46, 3	eleqtrrdi 2845	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶)
48		simpr 484	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 = dom recs(𝐹))
49		sucidg 6398	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → dom recs(𝐹) ∈ suc dom recs(𝐹))
50	49	adantr 480	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → dom recs(𝐹) ∈ suc dom recs(𝐹))
51	48, 50	eqeltrd 2834	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 ∈ suc dom recs(𝐹))
52		fnopfvb 6883	. . . . . 6 ⊢ ((𝐶 Fn suc dom recs(𝐹) ∧ 𝐵 ∈ suc dom recs(𝐹)) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶))
53	4, 51, 52	syl2an2r 685	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶))
54	47, 53	mpbird 257	. . . 4 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)))
55	54	ex 412	. . 3 ⊢ (dom recs(𝐹) ∈ On → (𝐵 = dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
56	25, 55	jaod 859	. 2 ⊢ (dom recs(𝐹) ∈ On → ((𝐵 ∈ dom recs(𝐹) ∨ 𝐵 = dom recs(𝐹)) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
57	1, 56	syl5 34	1 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ suc dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1541   ∈ wcel 2113  {cab 2712  ∀wral 3049  ∃wrex 3058   ∪ cun 3897   ⊆ wss 3899  {csn 4578  ⟨cop 4584  dom cdm 5622   ↾ cres 5624  Rel wrel 5627  Oncon0 6315  suc csuc 6317  Fun wfun 6484   Fn wfn 6485  ‘cfv 6490  recscrecs 8300

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-sep 5239  ax-nul 5249  ax-pr 5375  ax-un 7678

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-fo 6496  df-fv 6498  df-ov 7359  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301

This theorem is referenced by:  tfrlem12  8318