Theorem seqomlem2 8453

Description: Lemma for seq_ω. (Contributed by Stefan O'Rear, 1-Nov-2014.) (Revised by Mario Carneiro, 23-Jun-2015.)

Hypothesis

Ref	Expression
seqomlem.a	⊢ 𝑄 = rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩)

Assertion

Ref	Expression
seqomlem2	⊢ (𝑄 “ ω) Fn ω

Distinct variable groups:   𝑄,𝑖,𝑣   𝑖,𝐹,𝑣

Allowed substitution hints:   𝐼(𝑣,𝑖)

Proof of Theorem seqomlem2

Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		frfnom 8437	. . . . . . 7 ⊢ (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω) Fn ω
2		seqomlem.a	. . . . . . . . 9 ⊢ 𝑄 = rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩)
3	2	reseq1i 5977	. . . . . . . 8 ⊢ (𝑄 ↾ ω) = (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω)
4	3	fneq1i 6646	. . . . . . 7 ⊢ ((𝑄 ↾ ω) Fn ω ↔ (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω) Fn ω)
5	1, 4	mpbir 230	. . . . . 6 ⊢ (𝑄 ↾ ω) Fn ω
6		fvres 6910	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) = (𝑄‘𝑏))
7	2	seqomlem1 8452	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → (𝑄‘𝑏) = ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩)
8	6, 7	eqtrd 2772	. . . . . . . 8 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) = ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩)
9		fvex 6904	. . . . . . . . 9 ⊢ (2nd ‘(𝑄‘𝑏)) ∈ V
10		opelxpi 5713	. . . . . . . . 9 ⊢ ((𝑏 ∈ ω ∧ (2nd ‘(𝑄‘𝑏)) ∈ V) → ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩ ∈ (ω × V))
11	9, 10	mpan2 689	. . . . . . . 8 ⊢ (𝑏 ∈ ω → ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩ ∈ (ω × V))
12	8, 11	eqeltrd 2833	. . . . . . 7 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V))
13	12	rgen 3063	. . . . . 6 ⊢ ∀𝑏 ∈ ω ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V)
14		ffnfv 7120	. . . . . 6 ⊢ ((𝑄 ↾ ω):ω⟶(ω × V) ↔ ((𝑄 ↾ ω) Fn ω ∧ ∀𝑏 ∈ ω ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V)))
15	5, 13, 14	mpbir2an 709	. . . . 5 ⊢ (𝑄 ↾ ω):ω⟶(ω × V)
16		frn 6724	. . . . 5 ⊢ ((𝑄 ↾ ω):ω⟶(ω × V) → ran (𝑄 ↾ ω) ⊆ (ω × V))
17	15, 16	ax-mp 5	. . . 4 ⊢ ran (𝑄 ↾ ω) ⊆ (ω × V)
18		df-br 5149	. . . . . . . . . 10 ⊢ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω))
19		fvelrnb 6952	. . . . . . . . . . 11 ⊢ ((𝑄 ↾ ω) Fn ω → (⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω) ↔ ∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩))
20	5, 19	ax-mp 5	. . . . . . . . . 10 ⊢ (⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω) ↔ ∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩)
21		fvres 6910	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ ω → ((𝑄 ↾ ω)‘𝑐) = (𝑄‘𝑐))
22	21	eqeq1d 2734	. . . . . . . . . . 11 ⊢ (𝑐 ∈ ω → (((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩))
23	22	rexbiia 3092	. . . . . . . . . 10 ⊢ (∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩)
24	18, 20, 23	3bitri 296	. . . . . . . . 9 ⊢ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩)
25	2	seqomlem1 8452	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ ω → (𝑄‘𝑐) = ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩)
26	25	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → (𝑄‘𝑐) = ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩)
27	26	eqeq1d 2734	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩ = ⟨𝑎, 𝑏⟩))
28		vex 3478	. . . . . . . . . . . . . . 15 ⊢ 𝑐 ∈ V
29		fvex 6904	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘(𝑄‘𝑐)) ∈ V
30	28, 29	opth1 5475	. . . . . . . . . . . . . 14 ⊢ (⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩ = ⟨𝑎, 𝑏⟩ → 𝑐 = 𝑎)
31	27, 30	syl6bi 252	. . . . . . . . . . . . 13 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑐 = 𝑎))
32		fveqeq2 6900	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
33	32	biimpd 228	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
34	31, 33	syli 39	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
35		fveq2 6891	. . . . . . . . . . . . 13 ⊢ ((𝑄‘𝑎) = ⟨𝑎, 𝑏⟩ → (2nd ‘(𝑄‘𝑎)) = (2nd ‘⟨𝑎, 𝑏⟩))
36		vex 3478	. . . . . . . . . . . . . 14 ⊢ 𝑎 ∈ V
37		vex 3478	. . . . . . . . . . . . . 14 ⊢ 𝑏 ∈ V
38	36, 37	op2nd 7986	. . . . . . . . . . . . 13 ⊢ (2nd ‘⟨𝑎, 𝑏⟩) = 𝑏
39	35, 38	eqtr2di 2789	. . . . . . . . . . . 12 ⊢ ((𝑄‘𝑎) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎)))
40	34, 39	syl6 35	. . . . . . . . . . 11 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎))))
41	40	rexlimdva 3155	. . . . . . . . . 10 ⊢ (𝑎 ∈ ω → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎))))
42	2	seqomlem1 8452	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ω → (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
43		fveqeq2 6900	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩ ↔ (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
44	43	rspcev 3612	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ω ∧ (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩) → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
45	42, 44	mpdan 685	. . . . . . . . . . 11 ⊢ (𝑎 ∈ ω → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
46		opeq2 4874	. . . . . . . . . . . . 13 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → ⟨𝑎, 𝑏⟩ = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
47	46	eqeq2d 2743	. . . . . . . . . . . 12 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
48	47	rexbidv 3178	. . . . . . . . . . 11 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
49	45, 48	syl5ibrcom 246	. . . . . . . . . 10 ⊢ (𝑎 ∈ ω → (𝑏 = (2nd ‘(𝑄‘𝑎)) → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩))
50	41, 49	impbid 211	. . . . . . . . 9 ⊢ (𝑎 ∈ ω → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
51	24, 50	bitrid 282	. . . . . . . 8 ⊢ (𝑎 ∈ ω → (𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
52	51	alrimiv 1930	. . . . . . 7 ⊢ (𝑎 ∈ ω → ∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
53		fvex 6904	. . . . . . . 8 ⊢ (2nd ‘(𝑄‘𝑎)) ∈ V
54		eqeq2 2744	. . . . . . . . . 10 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → (𝑏 = 𝑐 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
55	54	bibi2d 342	. . . . . . . . 9 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → ((𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐) ↔ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎)))))
56	55	albidv 1923	. . . . . . . 8 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → (∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐) ↔ ∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎)))))
57	53, 56	spcev 3596	. . . . . . 7 ⊢ (∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))) → ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
58	52, 57	syl 17	. . . . . 6 ⊢ (𝑎 ∈ ω → ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
59		eu6 2568	. . . . . 6 ⊢ (∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏 ↔ ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
60	58, 59	sylibr 233	. . . . 5 ⊢ (𝑎 ∈ ω → ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏)
61	60	rgen 3063	. . . 4 ⊢ ∀𝑎 ∈ ω ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏
62		dff3 7101	. . . 4 ⊢ (ran (𝑄 ↾ ω):ω⟶V ↔ (ran (𝑄 ↾ ω) ⊆ (ω × V) ∧ ∀𝑎 ∈ ω ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏))
63	17, 61, 62	mpbir2an 709	. . 3 ⊢ ran (𝑄 ↾ ω):ω⟶V
64		df-ima 5689	. . . 4 ⊢ (𝑄 “ ω) = ran (𝑄 ↾ ω)
65	64	feq1i 6708	. . 3 ⊢ ((𝑄 “ ω):ω⟶V ↔ ran (𝑄 ↾ ω):ω⟶V)
66	63, 65	mpbir 230	. 2 ⊢ (𝑄 “ ω):ω⟶V
67		dffn2 6719	. 2 ⊢ ((𝑄 “ ω) Fn ω ↔ (𝑄 “ ω):ω⟶V)
68	66, 67	mpbir 230	1 ⊢ (𝑄 “ ω) Fn ω

Syntax hints:   ↔ wb 205   ∧ wa 396  ∀wal 1539   = wceq 1541  ∃wex 1781   ∈ wcel 2106  ∃!weu 2562  ∀wral 3061  ∃wrex 3070  Vcvv 3474   ⊆ wss 3948  ∅c0 4322  ⟨cop 4634   class class class wbr 5148   I cid 5573   × cxp 5674  ran crn 5677   ↾ cres 5678   “ cima 5679  suc csuc 6366   Fn wfn 6538  ⟶wf 6539  ‘cfv 6543  (class class class)co 7411   ∈ cmpo 7413  ωcom 7857  2^nd c2nd 7976  reccrdg 8411

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5299  ax-nul 5306  ax-pr 5427  ax-un 7727

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7858  df-2nd 7978  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412

This theorem is referenced by:  seqomlem3  8454  seqomlem4  8455  fnseqom  8457