Theorem seqf 10626

Description: Range of the recursive sequence builder. (Contributed by Mario Carneiro, 24-Jun-2013.)

Hypotheses

Ref	Expression
seqf.1	⊢ 𝑍 = (ℤ≥‘𝑀)
seqf.2	⊢ (𝜑 → 𝑀 ∈ ℤ)
seqf.3	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑍) → (𝐹‘𝑥) ∈ 𝑆)
seqf.4	⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)

Assertion

Ref	Expression
seqf	⊢ (𝜑 → seq𝑀( + , 𝐹):𝑍⟶𝑆)

Distinct variable groups:   𝑥, + ,𝑦   𝑥,𝐹,𝑦   𝑥,𝑀,𝑦   𝑥,𝑆,𝑦   𝑥,𝑍   𝜑,𝑥,𝑦

Allowed substitution hint:   𝑍(𝑦)

Proof of Theorem seqf

Dummy variables 𝑎 𝑏 𝑠 𝑡 𝑤 𝑧 𝑢 𝑣 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		seqf.2	. . 3 ⊢ (𝜑 → 𝑀 ∈ ℤ)
2		fveq2 5588	. . . . 5 ⊢ (𝑥 = 𝑀 → (𝐹‘𝑥) = (𝐹‘𝑀))
3	2	eleq1d 2275	. . . 4 ⊢ (𝑥 = 𝑀 → ((𝐹‘𝑥) ∈ 𝑆 ↔ (𝐹‘𝑀) ∈ 𝑆))
4		seqf.3	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑍) → (𝐹‘𝑥) ∈ 𝑆)
5	4	ralrimiva 2580	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ 𝑍 (𝐹‘𝑥) ∈ 𝑆)
6		uzid 9677	. . . . . 6 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ≥‘𝑀))
7	1, 6	syl 14	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘𝑀))
8		seqf.1	. . . . 5 ⊢ 𝑍 = (ℤ≥‘𝑀)
9	7, 8	eleqtrrdi 2300	. . . 4 ⊢ (𝜑 → 𝑀 ∈ 𝑍)
10	3, 5, 9	rspcdva 2886	. . 3 ⊢ (𝜑 → (𝐹‘𝑀) ∈ 𝑆)
11		ssv 3219	. . . 4 ⊢ 𝑆 ⊆ V
12	11	a1i 9	. . 3 ⊢ (𝜑 → 𝑆 ⊆ V)
13		simprl 529	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → 𝑥 ∈ (ℤ≥‘𝑀))
14		simprr 531	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → 𝑦 ∈ 𝑆)
15		seqf.4	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
16	15	caovclg 6111	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎 + 𝑏) ∈ 𝑆)
17	16	adantlr 477	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎 + 𝑏) ∈ 𝑆)
18		fveq2 5588	. . . . . . . 8 ⊢ (𝑐 = (𝑥 + 1) → (𝐹‘𝑐) = (𝐹‘(𝑥 + 1)))
19	18	eleq1d 2275	. . . . . . 7 ⊢ (𝑐 = (𝑥 + 1) → ((𝐹‘𝑐) ∈ 𝑆 ↔ (𝐹‘(𝑥 + 1)) ∈ 𝑆))
20		fveq2 5588	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑐 → (𝐹‘𝑥) = (𝐹‘𝑐))
21	20	eleq1d 2275	. . . . . . . . . 10 ⊢ (𝑥 = 𝑐 → ((𝐹‘𝑥) ∈ 𝑆 ↔ (𝐹‘𝑐) ∈ 𝑆))
22	21	cbvralv 2739	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝑍 (𝐹‘𝑥) ∈ 𝑆 ↔ ∀𝑐 ∈ 𝑍 (𝐹‘𝑐) ∈ 𝑆)
23	5, 22	sylib 122	. . . . . . . 8 ⊢ (𝜑 → ∀𝑐 ∈ 𝑍 (𝐹‘𝑐) ∈ 𝑆)
24	23	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → ∀𝑐 ∈ 𝑍 (𝐹‘𝑐) ∈ 𝑆)
25		peano2uz 9719	. . . . . . . . 9 ⊢ (𝑥 ∈ (ℤ≥‘𝑀) → (𝑥 + 1) ∈ (ℤ≥‘𝑀))
26	25, 8	eleqtrrdi 2300	. . . . . . . 8 ⊢ (𝑥 ∈ (ℤ≥‘𝑀) → (𝑥 + 1) ∈ 𝑍)
27	13, 26	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 1) ∈ 𝑍)
28	19, 24, 27	rspcdva 2886	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → (𝐹‘(𝑥 + 1)) ∈ 𝑆)
29	17, 14, 28	caovcld 6112	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → (𝑦 + (𝐹‘(𝑥 + 1))) ∈ 𝑆)
30		fvoveq1 5979	. . . . . . 7 ⊢ (𝑧 = 𝑥 → (𝐹‘(𝑧 + 1)) = (𝐹‘(𝑥 + 1)))
31	30	oveq2d 5972	. . . . . 6 ⊢ (𝑧 = 𝑥 → (𝑤 + (𝐹‘(𝑧 + 1))) = (𝑤 + (𝐹‘(𝑥 + 1))))
32		oveq1 5963	. . . . . 6 ⊢ (𝑤 = 𝑦 → (𝑤 + (𝐹‘(𝑥 + 1))) = (𝑦 + (𝐹‘(𝑥 + 1))))
33		eqid 2206	. . . . . 6 ⊢ (𝑧 ∈ (ℤ≥‘𝑀), 𝑤 ∈ 𝑆 ↦ (𝑤 + (𝐹‘(𝑧 + 1)))) = (𝑧 ∈ (ℤ≥‘𝑀), 𝑤 ∈ 𝑆 ↦ (𝑤 + (𝐹‘(𝑧 + 1))))
34	31, 32, 33	ovmpog 6092	. . . . 5 ⊢ ((𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆 ∧ (𝑦 + (𝐹‘(𝑥 + 1))) ∈ 𝑆) → (𝑥(𝑧 ∈ (ℤ≥‘𝑀), 𝑤 ∈ 𝑆 ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦) = (𝑦 + (𝐹‘(𝑥 + 1))))
35	13, 14, 29, 34	syl3anc 1250	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → (𝑥(𝑧 ∈ (ℤ≥‘𝑀), 𝑤 ∈ 𝑆 ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦) = (𝑦 + (𝐹‘(𝑥 + 1))))
36	35, 29	eqeltrd 2283	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ (ℤ≥‘𝑀) ∧ 𝑦 ∈ 𝑆)) → (𝑥(𝑧 ∈ (ℤ≥‘𝑀), 𝑤 ∈ 𝑆 ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦) ∈ 𝑆)
37		iseqvalcbv 10621	. . 3 ⊢ frec((𝑠 ∈ (ℤ≥‘𝑀), 𝑡 ∈ V ↦ ⟨(𝑠 + 1), (𝑠(𝑢 ∈ (ℤ≥‘𝑀), 𝑣 ∈ 𝑆 ↦ (𝑣 + (𝐹‘(𝑢 + 1))))𝑡)⟩), ⟨𝑀, (𝐹‘𝑀)⟩) = frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥(𝑧 ∈ (ℤ≥‘𝑀), 𝑤 ∈ 𝑆 ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦)⟩), ⟨𝑀, (𝐹‘𝑀)⟩)
38	8	eleq2i 2273	. . . . 5 ⊢ (𝑥 ∈ 𝑍 ↔ 𝑥 ∈ (ℤ≥‘𝑀))
39	38, 4	sylan2br 288	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (ℤ≥‘𝑀)) → (𝐹‘𝑥) ∈ 𝑆)
40	1, 37, 39, 15	seq3val 10622	. . 3 ⊢ (𝜑 → seq𝑀( + , 𝐹) = ran frec((𝑠 ∈ (ℤ≥‘𝑀), 𝑡 ∈ V ↦ ⟨(𝑠 + 1), (𝑠(𝑢 ∈ (ℤ≥‘𝑀), 𝑣 ∈ 𝑆 ↦ (𝑣 + (𝐹‘(𝑢 + 1))))𝑡)⟩), ⟨𝑀, (𝐹‘𝑀)⟩))
41	1, 10, 12, 36, 37, 40	frecuzrdgtclt 10583	. 2 ⊢ (𝜑 → seq𝑀( + , 𝐹):(ℤ≥‘𝑀)⟶𝑆)
42	8	a1i 9	. . 3 ⊢ (𝜑 → 𝑍 = (ℤ≥‘𝑀))
43	42	feq2d 5422	. 2 ⊢ (𝜑 → (seq𝑀( + , 𝐹):𝑍⟶𝑆 ↔ seq𝑀( + , 𝐹):(ℤ≥‘𝑀)⟶𝑆))
44	41, 43	mpbird 167	1 ⊢ (𝜑 → seq𝑀( + , 𝐹):𝑍⟶𝑆)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1373   ∈ wcel 2177  ∀wral 2485  Vcvv 2773   ⊆ wss 3170  ⟨cop 3640  ⟶wf 5275  ‘cfv 5279  (class class class)co 5956   ∈ cmpo 5958  freccfrec 6488  1c1 7941   + caddc 7943  ℤcz 9387  ℤ_≥cuz 9663  seqcseq 10609

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-coll 4166  ax-sep 4169  ax-nul 4177  ax-pow 4225  ax-pr 4260  ax-un 4487  ax-setind 4592  ax-iinf 4643  ax-cnex 8031  ax-resscn 8032  ax-1cn 8033  ax-1re 8034  ax-icn 8035  ax-addcl 8036  ax-addrcl 8037  ax-mulcl 8038  ax-addcom 8040  ax-addass 8042  ax-distr 8044  ax-i2m1 8045  ax-0lt1 8046  ax-0id 8048  ax-rnegex 8049  ax-cnre 8051  ax-pre-ltirr 8052  ax-pre-ltwlin 8053  ax-pre-lttrn 8054  ax-pre-ltadd 8056

This theorem depends on definitions:  df-bi 117  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ne 2378  df-nel 2473  df-ral 2490  df-rex 2491  df-reu 2492  df-rab 2494  df-v 2775  df-sbc 3003  df-csb 3098  df-dif 3172  df-un 3174  df-in 3176  df-ss 3183  df-nul 3465  df-pw 3622  df-sn 3643  df-pr 3644  df-op 3646  df-uni 3856  df-int 3891  df-iun 3934  df-br 4051  df-opab 4113  df-mpt 4114  df-tr 4150  df-id 4347  df-iord 4420  df-on 4422  df-ilim 4423  df-suc 4425  df-iom 4646  df-xp 4688  df-rel 4689  df-cnv 4690  df-co 4691  df-dm 4692  df-rn 4693  df-res 4694  df-ima 4695  df-iota 5240  df-fun 5281  df-fn 5282  df-f 5283  df-f1 5284  df-fo 5285  df-f1o 5286  df-fv 5287  df-riota 5911  df-ov 5959  df-oprab 5960  df-mpo 5961  df-1st 6238  df-2nd 6239  df-recs 6403  df-frec 6489  df-pnf 8124  df-mnf 8125  df-xr 8126  df-ltxr 8127  df-le 8128  df-sub 8260  df-neg 8261  df-inn 9052  df-n0 9311  df-z 9388  df-uz 9664  df-seqfrec 10610

This theorem is referenced by:  seq3p1  10627  seq3feq2  10638  seq3feq  10642  serf  10645  serfre  10646  seq3split  10650  seq3caopr2  10655  seq3f1olemqsumkj  10673  seq3homo  10689  seq3z  10690  seqfeq3  10691  seq3distr  10694  ser3ge0  10698  exp3vallem  10702  exp3val  10703  facnn  10889  fac0  10890  bcval5  10925  seq3coll  11004  seq3shft  11219  resqrexlemf  11388  prodf  11919  algrf  12437  pcmptcl  12735  nninfdclemf  12890  mulgval  13528  mulgfng  13530  mulgnnsubcl  13540  lgsval  15551  lgscllem  15554  lgsval4a  15569  lgsneg  15571  lgsdir  15582  lgsdilem2  15583  lgsdi  15584  lgsne0  15585