Theorem tfrlem11 8374

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 6431	. 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 8373	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → 𝐶 Fn suc dom recs(𝐹))
5		fnfun 6636	. . . . . . . 8 ⊢ (𝐶 Fn suc dom recs(𝐹) → Fun 𝐶)
6	4, 5	syl 18	. . . . . . 7 ⊢ (dom recs(𝐹) ∈ On → Fun 𝐶)
7		ssun1 4139	. . . . . . . . 9 ⊢ recs(𝐹) ⊆ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
8	7, 3	sseqtrri 3994	. . . . . . . 8 ⊢ recs(𝐹) ⊆ 𝐶
9	2	tfrlem9 8371	. . . . . . . . 9 ⊢ (𝐵 ∈ dom recs(𝐹) → (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
10		funssfv 6903	. . . . . . . . . . . 12 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ∈ dom recs(𝐹)) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
11	10	3expa 1134	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ∈ dom recs(𝐹)) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
12	11	adantrl 728	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐶‘𝐵) = (recs(𝐹)‘𝐵))
13		onelss 6404	. . . . . . . . . . . 12 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹)))
14	13	imp 411	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹)) → 𝐵 ⊆ dom recs(𝐹))
15		fun2ssres 6582	. . . . . . . . . . . . 13 ⊢ ((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
16	15	3expa 1134	. . . . . . . . . . . 12 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
17	16	fveq2d 6886	. . . . . . . . . . 11 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
18	14, 17	sylan2 604	. . . . . . . . . 10 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘(recs(𝐹) ↾ 𝐵)))
19	12, 18	eqeq12d 2785	. . . . . . . . 9 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ (recs(𝐹)‘𝐵) = (𝐹‘(recs(𝐹) ↾ 𝐵))))
20	9, 19	imbitrrid 249	. . . . . . . 8 ⊢ (((Fun 𝐶 ∧ recs(𝐹) ⊆ 𝐶) ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
21	8, 20	mpanl2 713	. . . . . . 7 ⊢ ((Fun 𝐶 ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
22	6, 21	sylan 591	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ (dom recs(𝐹) ∈ On ∧ 𝐵 ∈ dom recs(𝐹))) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
23	22	exp32 425	. . . . 5 ⊢ (dom recs(𝐹) ∈ On → (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))))
24	23	pm2.43i 53	. . . 4 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)))))
25	24	pm2.43d 54	. . 3 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
26		opex 5446	. . . . . . . . 9 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ V
27	26	snid 4633	. . . . . . . 8 ⊢ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩}
28		opeq1 4842	. . . . . . . . . . 11 ⊢ (𝐵 = dom recs(𝐹) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
29	28	adantl 486	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩)
30		eqimss 4003	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → 𝐵 ⊆ dom recs(𝐹))
31	8, 15	mp3an2 1475	. . . . . . . . . . . . . 14 ⊢ ((Fun 𝐶 ∧ 𝐵 ⊆ dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
32	6, 30, 31	syl2an 607	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = (recs(𝐹) ↾ 𝐵))
33		reseq2 5974	. . . . . . . . . . . . . . 15 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = (recs(𝐹) ↾ dom recs(𝐹)))
34	2	tfrlem6 8367	. . . . . . . . . . . . . . . 16 ⊢ Rel recs(𝐹)
35		resdm 6026	. . . . . . . . . . . . . . . 16 ⊢ (Rel recs(𝐹) → (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹))
36	34, 35	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (recs(𝐹) ↾ dom recs(𝐹)) = recs(𝐹)
37	33, 36	eqtrdi 2820	. . . . . . . . . . . . . 14 ⊢ (𝐵 = dom recs(𝐹) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
38	37	adantl 486	. . . . . . . . . . . . 13 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (recs(𝐹) ↾ 𝐵) = recs(𝐹))
39	32, 38	eqtrd 2804	. . . . . . . . . . . 12 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶 ↾ 𝐵) = recs(𝐹))
40	39	fveq2d 6886	. . . . . . . . . . 11 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐹‘(𝐶 ↾ 𝐵)) = (𝐹‘recs(𝐹)))
41	40	opeq2d 4849	. . . . . . . . . 10 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨dom recs(𝐹), (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
42	29, 41	eqtrd 2804	. . . . . . . . 9 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ = ⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩)
43	42	sneqd 4606	. . . . . . . 8 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → {⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩} = {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
44	27, 43	eleqtrid 2875	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩})
45		elun2 4144	. . . . . . 7 ⊢ (⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩} → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩}))
46	44, 45	syl 18	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ (recs(𝐹) ∪ {⟨dom recs(𝐹), (𝐹‘recs(𝐹))⟩}))
47	46, 3	eleqtrrdi 2880	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶)
48		simpr 489	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 = dom recs(𝐹))
49		sucidg 6445	. . . . . . . 8 ⊢ (dom recs(𝐹) ∈ On → dom recs(𝐹) ∈ suc dom recs(𝐹))
50	49	adantr 485	. . . . . . 7 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → dom recs(𝐹) ∈ suc dom recs(𝐹))
51	48, 50	eqeltrd 2869	. . . . . 6 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → 𝐵 ∈ suc dom recs(𝐹))
52		fnopfvb 6933	. . . . . 6 ⊢ ((𝐶 Fn suc dom recs(𝐹) ∧ 𝐵 ∈ suc dom recs(𝐹)) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶))
53	4, 51, 52	syl2an2r 697	. . . . 5 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → ((𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)) ↔ ⟨𝐵, (𝐹‘(𝐶 ↾ 𝐵))⟩ ∈ 𝐶))
54	47, 53	mpbird 260	. . . 4 ⊢ ((dom recs(𝐹) ∈ On ∧ 𝐵 = dom recs(𝐹)) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵)))
55	54	ex 417	. . 3 ⊢ (dom recs(𝐹) ∈ On → (𝐵 = dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
56	25, 55	jaod 872	. 2 ⊢ (dom recs(𝐹) ∈ On → ((𝐵 ∈ dom recs(𝐹) ∨ 𝐵 = dom recs(𝐹)) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))
57	1, 56	syl5 35	1 ⊢ (dom recs(𝐹) ∈ On → (𝐵 ∈ suc dom recs(𝐹) → (𝐶‘𝐵) = (𝐹‘(𝐶 ↾ 𝐵))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∨ wo 860   = wceq 1567   ∈ wcel 2149  {cab 2747  ∀wral 3085  ∃wrex 3095   ∪ cun 3911   ⊆ wss 3913  {csn 4594  ⟨cop 4600  dom cdm 5662   ↾ cres 5664  Rel wrel 5667  Oncon0 6361  suc csuc 6363  Fun wfun 6531   Fn wfn 6532  ‘cfv 6537  recscrecs 8356

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-fo 6543  df-fv 6545  df-ov 7414  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357

This theorem is referenced by:  tfrlem12  8375