Theorem seqomlem2 8465

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 8447	. . . . . . 7 ⊢ (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω) Fn ω
2		seqomlem.a	. . . . . . . . 9 ⊢ 𝑄 = rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩)
3	2	reseq1i 5965	. . . . . . . 8 ⊢ (𝑄 ↾ ω) = (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω)
4	3	fneq1i 6637	. . . . . . 7 ⊢ ((𝑄 ↾ ω) Fn ω ↔ (rec((𝑖 ∈ ω, 𝑣 ∈ V ↦ ⟨suc 𝑖, (𝑖𝐹𝑣)⟩), ⟨∅, ( I ‘𝐼)⟩) ↾ ω) Fn ω)
5	1, 4	mpbir 234	. . . . . 6 ⊢ (𝑄 ↾ ω) Fn ω
6		fvres 6905	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) = (𝑄‘𝑏))
7	2	seqomlem1 8464	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → (𝑄‘𝑏) = ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩)
8	6, 7	eqtrd 2795	. . . . . . . 8 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) = ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩)
9		fvex 6899	. . . . . . . . 9 ⊢ (2nd ‘(𝑄‘𝑏)) ∈ V
10		opelxpi 5687	. . . . . . . . 9 ⊢ ((𝑏 ∈ ω ∧ (2nd ‘(𝑄‘𝑏)) ∈ V) → ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩ ∈ (ω × V))
11	9, 10	mpan2 704	. . . . . . . 8 ⊢ (𝑏 ∈ ω → ⟨𝑏, (2nd ‘(𝑄‘𝑏))⟩ ∈ (ω × V))
12	8, 11	eqeltrd 2860	. . . . . . 7 ⊢ (𝑏 ∈ ω → ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V))
13	12	rgen 3078	. . . . . 6 ⊢ ∀𝑏 ∈ ω ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V)
14		ffnfv 7120	. . . . . 6 ⊢ ((𝑄 ↾ ω):ω⟶(ω × V) ↔ ((𝑄 ↾ ω) Fn ω ∧ ∀𝑏 ∈ ω ((𝑄 ↾ ω)‘𝑏) ∈ (ω × V)))
15	5, 13, 14	mpbir2an 724	. . . . 5 ⊢ (𝑄 ↾ ω):ω⟶(ω × V)
16		frn 6718	. . . . 5 ⊢ ((𝑄 ↾ ω):ω⟶(ω × V) → ran (𝑄 ↾ ω) ⊆ (ω × V))
17	15, 16	ax-mp 5	. . . 4 ⊢ ran (𝑄 ↾ ω) ⊆ (ω × V)
18		df-br 5103	. . . . . . . . . 10 ⊢ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω))
19		fvelrnb 6946	. . . . . . . . . . 11 ⊢ ((𝑄 ↾ ω) Fn ω → (⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω) ↔ ∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩))
20	5, 19	ax-mp 5	. . . . . . . . . 10 ⊢ (⟨𝑎, 𝑏⟩ ∈ ran (𝑄 ↾ ω) ↔ ∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩)
21		fvres 6905	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ ω → ((𝑄 ↾ ω)‘𝑐) = (𝑄‘𝑐))
22	21	eqeq1d 2762	. . . . . . . . . . 11 ⊢ (𝑐 ∈ ω → (((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩))
23	22	rexbiia 3107	. . . . . . . . . 10 ⊢ (∃𝑐 ∈ ω ((𝑄 ↾ ω)‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩)
24	18, 20, 23	3bitri 300	. . . . . . . . 9 ⊢ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩)
25	2	seqomlem1 8464	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ ω → (𝑄‘𝑐) = ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩)
26	25	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → (𝑄‘𝑐) = ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩)
27	26	eqeq1d 2762	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩ = ⟨𝑎, 𝑏⟩))
28		vex 3454	. . . . . . . . . . . . . . 15 ⊢ 𝑐 ∈ V
29		fvex 6899	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘(𝑄‘𝑐)) ∈ V
30	28, 29	opth1 5443	. . . . . . . . . . . . . 14 ⊢ (⟨𝑐, (2nd ‘(𝑄‘𝑐))⟩ = ⟨𝑎, 𝑏⟩ → 𝑐 = 𝑎)
31	27, 30	biimtrdi 256	. . . . . . . . . . . . 13 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑐 = 𝑎))
32		fveqeq2 6895	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
33	32	biimpd 232	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
34	31, 33	syli 40	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → (𝑄‘𝑎) = ⟨𝑎, 𝑏⟩))
35		fveq2 6886	. . . . . . . . . . . . 13 ⊢ ((𝑄‘𝑎) = ⟨𝑎, 𝑏⟩ → (2nd ‘(𝑄‘𝑎)) = (2nd ‘⟨𝑎, 𝑏⟩))
36		vex 3454	. . . . . . . . . . . . . 14 ⊢ 𝑎 ∈ V
37		vex 3454	. . . . . . . . . . . . . 14 ⊢ 𝑏 ∈ V
38	36, 37	op2nd 8011	. . . . . . . . . . . . 13 ⊢ (2nd ‘⟨𝑎, 𝑏⟩) = 𝑏
39	35, 38	eqtr2di 2812	. . . . . . . . . . . 12 ⊢ ((𝑄‘𝑎) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎)))
40	34, 39	syl6 36	. . . . . . . . . . 11 ⊢ ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎))))
41	40	rexlimdva 3163	. . . . . . . . . 10 ⊢ (𝑎 ∈ ω → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ → 𝑏 = (2nd ‘(𝑄‘𝑎))))
42	2	seqomlem1 8464	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ω → (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
43		fveqeq2 6895	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑎 → ((𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩ ↔ (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
44	43	rspcev 3576	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ω ∧ (𝑄‘𝑎) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩) → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
45	42, 44	mpdan 700	. . . . . . . . . . 11 ⊢ (𝑎 ∈ ω → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
46		opeq2 4840	. . . . . . . . . . . . 13 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → ⟨𝑎, 𝑏⟩ = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩)
47	46	eqeq2d 2771	. . . . . . . . . . . 12 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → ((𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
48	47	rexbidv 3186	. . . . . . . . . . 11 ⊢ (𝑏 = (2nd ‘(𝑄‘𝑎)) → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, (2nd ‘(𝑄‘𝑎))⟩))
49	45, 48	syl5ibrcom 250	. . . . . . . . . 10 ⊢ (𝑎 ∈ ω → (𝑏 = (2nd ‘(𝑄‘𝑎)) → ∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩))
50	41, 49	impbid 215	. . . . . . . . 9 ⊢ (𝑎 ∈ ω → (∃𝑐 ∈ ω (𝑄‘𝑐) = ⟨𝑎, 𝑏⟩ ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
51	24, 50	bitrid 286	. . . . . . . 8 ⊢ (𝑎 ∈ ω → (𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
52	51	alrimiv 1959	. . . . . . 7 ⊢ (𝑎 ∈ ω → ∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
53		fvex 6899	. . . . . . . 8 ⊢ (2nd ‘(𝑄‘𝑎)) ∈ V
54		eqeq2 2772	. . . . . . . . . 10 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → (𝑏 = 𝑐 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))))
55	54	bibi2d 345	. . . . . . . . 9 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → ((𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐) ↔ (𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎)))))
56	55	albidv 1952	. . . . . . . 8 ⊢ (𝑐 = (2nd ‘(𝑄‘𝑎)) → (∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐) ↔ ∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎)))))
57	53, 56	spcev 3560	. . . . . . 7 ⊢ (∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = (2nd ‘(𝑄‘𝑎))) → ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
58	52, 57	syl 18	. . . . . 6 ⊢ (𝑎 ∈ ω → ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
59		eu6 2599	. . . . . 6 ⊢ (∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏 ↔ ∃𝑐∀𝑏(𝑎ran (𝑄 ↾ ω)𝑏 ↔ 𝑏 = 𝑐))
60	58, 59	sylibr 237	. . . . 5 ⊢ (𝑎 ∈ ω → ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏)
61	60	rgen 3078	. . . 4 ⊢ ∀𝑎 ∈ ω ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏
62		dff3 7101	. . . 4 ⊢ (ran (𝑄 ↾ ω):ω⟶V ↔ (ran (𝑄 ↾ ω) ⊆ (ω × V) ∧ ∀𝑎 ∈ ω ∃!𝑏 𝑎ran (𝑄 ↾ ω)𝑏))
63	17, 61, 62	mpbir2an 724	. . 3 ⊢ ran (𝑄 ↾ ω):ω⟶V
64		df-ima 5663	. . . 4 ⊢ (𝑄 “ ω) = ran (𝑄 ↾ ω)
65	64	feq1i 6701	. . 3 ⊢ ((𝑄 “ ω):ω⟶V ↔ ran (𝑄 ↾ ω):ω⟶V)
66	63, 65	mpbir 234	. 2 ⊢ (𝑄 “ ω):ω⟶V
67		dffn2 6712	. 2 ⊢ ((𝑄 “ ω) Fn ω ↔ (𝑄 “ ω):ω⟶V)
68	66, 67	mpbir 234	1 ⊢ (𝑄 “ ω) Fn ω

This proof depends on syntax axioms:   ↔ wb 209   ∧ wa 401  ∀wal 1567   = wceq 1569  ∃wex 1811   ∈ wcel 2144  ∃!weu 2593  ∀wral 3076  ∃wrex 3086  Vcvv 3450   ⊆ wss 3895  ∅c0 4278  ⟨cop 4834   class class class wbr 5102   I cid 5544   × cxp 5648  ran crn 5651   ↾ cres 5652   “ cima 5653  suc csuc 6364   Fn wfn 6534  ⟶wf 6535  ‘cfv 6539  (class class class)co 7421   ∈ cmpo 7423  ωcom 7878  2^nd c2nd 8001  reccrdg 8421

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pr 5390  ax-un 7752

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-ov 7424  df-oprab 7425  df-mpo 7426  df-om 7879  df-2nd 8003  df-frecs 8303  df-wrecs 8334  df-recs 8383  df-rdg 8422

This theorem is used by:  seqomlem3  8466  seqomlem4  8467  fnseqom  8469