Theorem seqomlem2 8282

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 8266	. . . . . . 7 ⊢ (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω) Fn ω
2		seqomlem.a	. . . . . . . . 9 ⊢ 𝑄 = rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩)
3	2	reseq1i 5887	. . . . . . . 8 ⊢ (𝑄 ↾ ω) = (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω)
4	3	fneq1i 6530	. . . . . . 7 ⊢ ((𝑄 ↾ ω) Fn ω ↔ (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω) Fn ω)
5	1, 4	mpbir 230	. . . . . 6 ⊢ (𝑄 ↾ ω) Fn ω
6		fvres 6793	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) = (𝑄‘𝑏))
7	2	seqomlem1 8281	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → (𝑄‘𝑏) = ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩)
8	6, 7	eqtrd 2778	. . . . . . . 8 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) = ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩)
9		fvex 6787	. . . . . . . . 9 ⊢ (2nd ‘(𝑄‘𝑏)) ∈ V
10		opelxpi 5626	. . . . . . . . 9 ⊢ ((𝑏 ∈ ω ∧ (2nd ‘(𝑄‘𝑏)) ∈ V) → ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩ ∈ (ω × V))
11	9, 10	mpan2 688	. . . . . . . 8 ⊢ (𝑏 ∈ ω → ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩ ∈ (ω × V))
12	8, 11	eqeltrd 2839	. . . . . . 7 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V))
13	12	rgen 3074	. . . . . 6 ⊢ ∀𝑏 ∈ ω ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V)
14		ffnfv 6992	. . . . . 6 ⊢ ((𝑄 ↾ ω):ω⟶(ω × V) ↔ ((𝑄 ↾ ω) Fn ω ∧ ∀𝑏 ∈ ω ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V)))
15	5, 13, 14	mpbir2an 708	. . . . 5 ⊢ (𝑄 ↾ ω):ω⟶(ω × V)
16		frn 6607	. . . . 5 ⊢ ((𝑄 ↾ ω):ω⟶(ω × V) → ran (𝑄 ↾ ω) ⊆ (ω × V))
17	15, 16	ax-mp 5	. . . 4 ⊢ ran (𝑄 ↾ ω) ⊆ (ω × V)
18		df-br 5075	. . . . . . . . . 10 ⊢ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω))
19		fvelrnb 6830	. . . . . . . . . . 11 ⊢ ((𝑄 ↾ ω) Fn ω → (⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω) ↔ ∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩))
20	5, 19	ax-mp 5	. . . . . . . . . 10 ⊢ (⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω) ↔ ∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩)
21		fvres 6793	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ ω → ((𝑄 ↾ ω)‘𝑐) = (𝑄‘𝑐))
22	21	eqeq1d 2740	. . . . . . . . . . 11 ⊢ (𝑐 ∈ ω → (((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩))
23	22	rexbiia 3180	. . . . . . . . . 10 ⊢ (∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩)
24	18, 20, 23	3bitri 297	. . . . . . . . 9 ⊢ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩)
25	2	seqomlem1 8281	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ ω → (𝑄‘𝑐) = ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩)
26	25	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → (𝑄‘𝑐) = ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩)
27	26	eqeq1d 2740	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩ = ⟨𝑎, 𝑏⟩))
28		vex 3436	. . . . . . . . . . . . . . 15 ⊢ 𝑐 ∈ V
29		fvex 6787	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘(𝑄‘𝑐)) ∈ V
30	28, 29	opth1 5390	. . . . . . . . . . . . . 14 ⊢ (⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩ = ⟨𝑎, 𝑏⟩ → 𝑐 = 𝑎)
31	27, 30	syl6bi 252	. . . . . . . . . . . . 13 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑐 = 𝑎))
32		fveqeq2 6783	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
33	32	biimpd 228	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
34	31, 33	syli 39	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
35		fveq2 6774	. . . . . . . . . . . . 13 ⊢ ((𝑄‘𝑎) = ⟨𝑎, 𝑏⟩ → (2nd ‘(𝑄‘𝑎)) = (2nd ‘⟨𝑎, 𝑏⟩))
36		vex 3436	. . . . . . . . . . . . . 14 ⊢ 𝑎 ∈ V
37		vex 3436	. . . . . . . . . . . . . 14 ⊢ 𝑏 ∈ V
38	36, 37	op2nd 7840	. . . . . . . . . . . . 13 ⊢ (2nd ‘⟨𝑎, 𝑏⟩) = 𝑏
39	35, 38	eqtr2di 2795	. . . . . . . . . . . 12 ⊢ ((𝑄‘𝑎) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎)))
40	34, 39	syl6 35	. . . . . . . . . . 11 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎))))
41	40	rexlimdva 3213	. . . . . . . . . 10 ⊢ (𝑎 ∈ ω → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎))))
42	2	seqomlem1 8281	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ω → (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
43		fveqeq2 6783	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩ ↔ (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
44	43	rspcev 3561	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ω ∧ (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩) → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
45	42, 44	mpdan 684	. . . . . . . . . . 11 ⊢ (𝑎 ∈ ω → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
46		opeq2 4805	. . . . . . . . . . . . 13 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → ⟨𝑎, 𝑏⟩ = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
47	46	eqeq2d 2749	. . . . . . . . . . . 12 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
48	47	rexbidv 3226	. . . . . . . . . . 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 6787	. . . . . . . 8 ⊢ (2nd ‘(𝑄‘𝑎)) ∈ V
54		eqeq2 2750	. . . . . . . . . 10 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → (𝑏 = 𝑐 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
55	54	bibi2d 343	. . . . . . . . 9 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → ((𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐) ↔ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎)))))
56	55	albidv 1923	. . . . . . . 8 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → (∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐) ↔ ∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎)))))
57	53, 56	spcev 3545	. . . . . . 7 ⊢ (∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))) → ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
58	52, 57	syl 17	. . . . . 6 ⊢ (𝑎 ∈ ω → ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
59		eu6 2574	. . . . . 6 ⊢ (∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏 ↔ ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
60	58, 59	sylibr 233	. . . . 5 ⊢ (𝑎 ∈ ω → ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏)
61	60	rgen 3074	. . . 4 ⊢ ∀𝑎 ∈ ω ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏
62		dff3 6976	. . . 4 ⊢ (ran (𝑄 ↾ ω):ω⟶V ↔ (ran (𝑄 ↾ ω) ⊆ (ω × V) ∧ ∀𝑎 ∈ ω ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏))
63	17, 61, 62	mpbir2an 708	. . 3 ⊢ ran (𝑄 ↾ ω):ω⟶V
64		df-ima 5602	. . . 4 ⊢ (𝑄 “ ω) = ran (𝑄 ↾ ω)
65	64	feq1i 6591	. . 3 ⊢ ((𝑄 “ ω):ω⟶V ↔ ran (𝑄 ↾ ω):ω⟶V)
66	63, 65	mpbir 230	. 2 ⊢ (𝑄 “ ω):ω⟶V
67		dffn2 6602	. 2 ⊢ ((𝑄 “ ω) Fn ω ↔ (𝑄 “ ω):ω⟶V)
68	66, 67	mpbir 230	1 ⊢ (𝑄 “ ω) Fn ω

Syntax hints:   ↔ wb 205   ∧ wa 396  ∀wal 1537   = wceq 1539  ∃wex 1782   ∈ wcel 2106  ∃!weu 2568  ∀wral 3064  ∃wrex 3065  Vcvv 3432   ⊆ wss 3887  ∅c0 4256  ⟨cop 4567   class class class wbr 5074   I cid 5488   × cxp 5587  ran crn 5590   ↾ cres 5591   “ cima 5592  suc csuc 6268   Fn wfn 6428  ⟶wf 6429  ‘cfv 6433  (class class class)co 7275   ∈ cmpo 7277  ωcom 7712  2^nd c2nd 7830  reccrdg 8240

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352  ax-un 7588

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-ov 7278  df-oprab 7279  df-mpo 7280  df-om 7713  df-2nd 7832  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241

This theorem is referenced by:  seqomlem3  8283  seqomlem4  8284  fnseqom  8286