Theorem tfrlem11 8007

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 6225	. 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 8006	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → 𝐶 Fn suc dom recs(𝐹))
5		fnfun 6423	. . . . . . . 8 ⊢ (𝐶 Fn suc dom recs(𝐹) → Fun 𝐶)
6	4, 5	syl 17	. . . . . . 7 ⊢ (dom recs(𝐹) ∈ On → Fun 𝐶)
7		ssun1 4099	. . . . . . . . 9 ⊢ recs(𝐹) ⊆ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
8	7, 3	sseqtrri 3952	. . . . . . . 8 ⊢ recs(𝐹) ⊆ 𝐶
9	2	tfrlem9 8004	. . . . . . . . 9 ⊢ (𝐵 ∈ dom recs(𝐹) → (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
10		funssfv 6666	. . . . . . . . . . . 12 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ∈ dom recs(𝐹)) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
11	10	3expa 1115	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ∈ dom recs(𝐹)) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
12	11	adantrl 715	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
13		onelss 6201	. . . . . . . . . . . 12 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹)))
14	13	imp 410	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹)) → 𝐵 ⊆ dom recs(𝐹))
15		fun2ssres 6369	. . . . . . . . . . . . 13 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
16	15	3expa 1115	. . . . . . . . . . . 12 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
17	16	fveq2d 6649	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
18	14, 17	sylan2 595	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
19	12, 18	eqeq12d 2814	. . . . . . . . 9 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵))))
20	9, 19	syl5ibr 249	. . . . . . . 8 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
21	8, 20	mpanl2 700	. . . . . . 7 ⊢ ((Fun 𝐶 ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
22	6, 21	sylan 583	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
23	22	exp32 424	. . . . 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 5321	. . . . . . . . 9 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ V
27	26	snid 4561	. . . . . . . 8 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩}
28		opeq1 4763	. . . . . . . . . . 11 ⊢ (𝐵 = dom recs(𝐹) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
29	28	adantl 485	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
30		eqimss 3971	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹))
31	8, 15	mp3an2 1446	. . . . . . . . . . . . . 14 ⊢ ((Fun 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
32	6, 30, 31	syl2an 598	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
33		reseq2 5813	. . . . . . . . . . . . . . 15 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = (recs(𝐹) ↾ dom recs(𝐹)))
34	2	tfrlem6 8001	. . . . . . . . . . . . . . . 16 ⊢ Rel recs(𝐹)
35		resdm 5863	. . . . . . . . . . . . . . . 16 ⊢ (Rel recs(𝐹) → (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹))
36	34, 35	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹)
37	33, 36	eqtrdi 2849	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
38	37	adantl 485	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
39	32, 38	eqtrd 2833	. . . . . . . . . . . 12 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = recs(𝐹))
40	39	fveq2d 6649	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘recs(𝐹)))
41	40	opeq2d 4772	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
42	29, 41	eqtrd 2833	. . . . . . . . 9 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
43	42	sneqd 4537	. . . . . . . 8 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩} = {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
44	27, 43	eleqtrid 2896	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
45		elun2 4104	. . . . . . 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 2901	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶)
48		simpr 488	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 = dom recs(𝐹))
49		sucidg 6237	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → dom recs(𝐹) ∈ suc dom recs(𝐹))
50	49	adantr 484	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → dom recs(𝐹) ∈ suc dom recs(𝐹))
51	48, 50	eqeltrd 2890	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 ∈ suc dom recs(𝐹))
52		fnopfvb 6694	. . . . . 6 ⊢ ((𝐶 Fn suc dom recs(𝐹) ∧ 𝐵 ∈ suc dom recs(𝐹)) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶))
53	4, 51, 52	syl2an2r 684	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶))
54	47, 53	mpbird 260	. . . 4 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)))
55	54	ex 416	. . 3 ⊢ (dom recs(𝐹) ∈ On → (𝐵 = dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
56	25, 55	jaod 856	. 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 209   ∧ wa 399   ∨ wo 844   = wceq 1538   ∈ wcel 2111  {cab 2776  ∀wral 3106  ∃wrex 3107   ∪ cun 3879   ⊆ wss 3881  {csn 4525  ⟨cop 4531  dom cdm 5519   ↾ cres 5521  Rel wrel 5524  Oncon0 6159  suc csuc 6161  Fun wfun 6318   Fn wfn 6319  ‘cfv 6324  recscrecs 7990

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-fv 6332  df-wrecs 7930  df-recs 7991

This theorem is referenced by:  tfrlem12  8008