Theorem tfrlem11 8356

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 6401	. 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 8355	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → 𝐶 Fn suc dom recs(𝐹))
5		fnfun 6618	. . . . . . . 8 ⊢ (𝐶 Fn suc dom recs(𝐹) → Fun 𝐶)
6	4, 5	syl 17	. . . . . . 7 ⊢ (dom recs(𝐹) ∈ On → Fun 𝐶)
7		ssun1 4141	. . . . . . . . 9 ⊢ recs(𝐹) ⊆ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
8	7, 3	sseqtrri 3996	. . . . . . . 8 ⊢ recs(𝐹) ⊆ 𝐶
9	2	tfrlem9 8353	. . . . . . . . 9 ⊢ (𝐵 ∈ dom recs(𝐹) → (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
10		funssfv 6879	. . . . . . . . . . . 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 6374	. . . . . . . . . . . 12 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹)))
14	13	imp 406	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹)) → 𝐵 ⊆ dom recs(𝐹))
15		fun2ssres 6561	. . . . . . . . . . . . 13 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
16	15	3expa 1118	. . . . . . . . . . . 12 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
17	16	fveq2d 6862	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
18	14, 17	sylan2 593	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
19	12, 18	eqeq12d 2745	. . . . . . . . 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 5424	. . . . . . . . 9 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ V
27	26	snid 4626	. . . . . . . 8 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩}
28		opeq1 4837	. . . . . . . . . . 11 ⊢ (𝐵 = dom recs(𝐹) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
29	28	adantl 481	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
30		eqimss 4005	. . . . . . . . . . . . . 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 5945	. . . . . . . . . . . . . . 15 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = (recs(𝐹) ↾ dom recs(𝐹)))
34	2	tfrlem6 8350	. . . . . . . . . . . . . . . 16 ⊢ Rel recs(𝐹)
35		resdm 5997	. . . . . . . . . . . . . . . 16 ⊢ (Rel recs(𝐹) → (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹))
36	34, 35	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹)
37	33, 36	eqtrdi 2780	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
38	37	adantl 481	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
39	32, 38	eqtrd 2764	. . . . . . . . . . . 12 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = recs(𝐹))
40	39	fveq2d 6862	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘recs(𝐹)))
41	40	opeq2d 4844	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
42	29, 41	eqtrd 2764	. . . . . . . . 9 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
43	42	sneqd 4601	. . . . . . . 8 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩} = {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
44	27, 43	eleqtrid 2834	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
45		elun2 4146	. . . . . . 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 2839	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶)
48		simpr 484	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 = dom recs(𝐹))
49		sucidg 6415	. . . . . . . 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 2828	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 ∈ suc dom recs(𝐹))
52		fnopfvb 6912	. . . . . 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 1540   ∈ wcel 2109  {cab 2707  ∀wral 3044  ∃wrex 3053   ∪ cun 3912   ⊆ wss 3914  {csn 4589  ⟨cop 4595  dom cdm 5638   ↾ cres 5640  Rel wrel 5643  Oncon0 6332  suc csuc 6334  Fun wfun 6505   Fn wfn 6506  ‘cfv 6511  recscrecs 8339

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 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5251  ax-nul 5261  ax-pr 5387  ax-un 7711

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-fo 6517  df-fv 6519  df-ov 7390  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340

This theorem is referenced by:  tfrlem12  8357