Theorem fzennn 13903

Description: The cardinality of a finite set of sequential integers. (See om2uz0i 13882 for a description of the hypothesis.) (Contributed by Mario Carneiro, 12-Feb-2013.) (Revised by Mario Carneiro, 7-Mar-2014.)

Hypothesis

Ref	Expression
fzennn.1	⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)

Assertion

Ref	Expression
fzennn	⊢ (𝑁 ∈ ℕ0 → (1...𝑁) ≈ (◡𝐺‘𝑁))

Proof of Theorem fzennn

Dummy variables 𝑚 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 7376	. . 3 ⊢ (𝑛 = 0 → (1...𝑛) = (1...0))
2		fveq2 6842	. . 3 ⊢ (𝑛 = 0 → (◡𝐺‘𝑛) = (◡𝐺‘0))
3	1, 2	breq12d 5113	. 2 ⊢ (𝑛 = 0 → ((1...𝑛) ≈ (◡𝐺‘𝑛) ↔ (1...0) ≈ (◡𝐺‘0)))
4		oveq2 7376	. . 3 ⊢ (𝑛 = 𝑚 → (1...𝑛) = (1...𝑚))
5		fveq2 6842	. . 3 ⊢ (𝑛 = 𝑚 → (◡𝐺‘𝑛) = (◡𝐺‘𝑚))
6	4, 5	breq12d 5113	. 2 ⊢ (𝑛 = 𝑚 → ((1...𝑛) ≈ (◡𝐺‘𝑛) ↔ (1...𝑚) ≈ (◡𝐺‘𝑚)))
7		oveq2 7376	. . 3 ⊢ (𝑛 = (𝑚 + 1) → (1...𝑛) = (1...(𝑚 + 1)))
8		fveq2 6842	. . 3 ⊢ (𝑛 = (𝑚 + 1) → (◡𝐺‘𝑛) = (◡𝐺‘(𝑚 + 1)))
9	7, 8	breq12d 5113	. 2 ⊢ (𝑛 = (𝑚 + 1) → ((1...𝑛) ≈ (◡𝐺‘𝑛) ↔ (1...(𝑚 + 1)) ≈ (◡𝐺‘(𝑚 + 1))))
10		oveq2 7376	. . 3 ⊢ (𝑛 = 𝑁 → (1...𝑛) = (1...𝑁))
11		fveq2 6842	. . 3 ⊢ (𝑛 = 𝑁 → (◡𝐺‘𝑛) = (◡𝐺‘𝑁))
12	10, 11	breq12d 5113	. 2 ⊢ (𝑛 = 𝑁 → ((1...𝑛) ≈ (◡𝐺‘𝑛) ↔ (1...𝑁) ≈ (◡𝐺‘𝑁)))
13		0ex 5254	. . . 4 ⊢ ∅ ∈ V
14	13	enref 8934	. . 3 ⊢ ∅ ≈ ∅
15		fz10 13473	. . 3 ⊢ (1...0) = ∅
16		0z 12511	. . . . . 6 ⊢ 0 ∈ ℤ
17		fzennn.1	. . . . . 6 ⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)
18	16, 17	om2uzf1oi 13888	. . . . 5 ⊢ 𝐺:ω–1-1-onto→(ℤ≥‘0)
19		peano1 7841	. . . . 5 ⊢ ∅ ∈ ω
20	18, 19	pm3.2i 470	. . . 4 ⊢ (𝐺:ω–1-1-onto→(ℤ≥‘0) ∧ ∅ ∈ ω)
21	16, 17	om2uz0i 13882	. . . 4 ⊢ (𝐺‘∅) = 0
22		f1ocnvfv 7234	. . . 4 ⊢ ((𝐺:ω–1-1-onto→(ℤ≥‘0) ∧ ∅ ∈ ω) → ((𝐺‘∅) = 0 → (◡𝐺‘0) = ∅))
23	20, 21, 22	mp2 9	. . 3 ⊢ (◡𝐺‘0) = ∅
24	14, 15, 23	3brtr4i 5130	. 2 ⊢ (1...0) ≈ (◡𝐺‘0)
25		simpr 484	. . . . 5 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → (1...𝑚) ≈ (◡𝐺‘𝑚))
26		ovex 7401	. . . . . . 7 ⊢ (𝑚 + 1) ∈ V
27		fvex 6855	. . . . . . 7 ⊢ (◡𝐺‘𝑚) ∈ V
28		en2sn 8990	. . . . . . 7 ⊢ (((𝑚 + 1) ∈ V ∧ (◡𝐺‘𝑚) ∈ V) → {(𝑚 + 1)} ≈ {(◡𝐺‘𝑚)})
29	26, 27, 28	mp2an 693	. . . . . 6 ⊢ {(𝑚 + 1)} ≈ {(◡𝐺‘𝑚)}
30	29	a1i 11	. . . . 5 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → {(𝑚 + 1)} ≈ {(◡𝐺‘𝑚)})
31		fzp1disj 13511	. . . . . 6 ⊢ ((1...𝑚) ∩ {(𝑚 + 1)}) = ∅
32	31	a1i 11	. . . . 5 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → ((1...𝑚) ∩ {(𝑚 + 1)}) = ∅)
33		f1ocnvdm 7241	. . . . . . . . . 10 ⊢ ((𝐺:ω–1-1-onto→(ℤ≥‘0) ∧ 𝑚 ∈ (ℤ≥‘0)) → (◡𝐺‘𝑚) ∈ ω)
34	18, 33	mpan 691	. . . . . . . . 9 ⊢ (𝑚 ∈ (ℤ≥‘0) → (◡𝐺‘𝑚) ∈ ω)
35		nn0uz 12801	. . . . . . . . 9 ⊢ ℕ0 = (ℤ≥‘0)
36	34, 35	eleq2s 2855	. . . . . . . 8 ⊢ (𝑚 ∈ ℕ0 → (◡𝐺‘𝑚) ∈ ω)
37		nnord 7826	. . . . . . . 8 ⊢ ((◡𝐺‘𝑚) ∈ ω → Ord (◡𝐺‘𝑚))
38		ordirr 6343	. . . . . . . 8 ⊢ (Ord (◡𝐺‘𝑚) → ¬ (◡𝐺‘𝑚) ∈ (◡𝐺‘𝑚))
39	36, 37, 38	3syl 18	. . . . . . 7 ⊢ (𝑚 ∈ ℕ0 → ¬ (◡𝐺‘𝑚) ∈ (◡𝐺‘𝑚))
40	39	adantr 480	. . . . . 6 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → ¬ (◡𝐺‘𝑚) ∈ (◡𝐺‘𝑚))
41		disjsn 4670	. . . . . 6 ⊢ (((◡𝐺‘𝑚) ∩ {(◡𝐺‘𝑚)}) = ∅ ↔ ¬ (◡𝐺‘𝑚) ∈ (◡𝐺‘𝑚))
42	40, 41	sylibr 234	. . . . 5 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → ((◡𝐺‘𝑚) ∩ {(◡𝐺‘𝑚)}) = ∅)
43		unen 8994	. . . . 5 ⊢ ((((1...𝑚) ≈ (◡𝐺‘𝑚) ∧ {(𝑚 + 1)} ≈ {(◡𝐺‘𝑚)}) ∧ (((1...𝑚) ∩ {(𝑚 + 1)}) = ∅ ∧ ((◡𝐺‘𝑚) ∩ {(◡𝐺‘𝑚)}) = ∅)) → ((1...𝑚) ∪ {(𝑚 + 1)}) ≈ ((◡𝐺‘𝑚) ∪ {(◡𝐺‘𝑚)}))
44	25, 30, 32, 42, 43	syl22anc 839	. . . 4 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → ((1...𝑚) ∪ {(𝑚 + 1)}) ≈ ((◡𝐺‘𝑚) ∪ {(◡𝐺‘𝑚)}))
45		1z 12533	. . . . . 6 ⊢ 1 ∈ ℤ
46		1m1e0 12229	. . . . . . . . . 10 ⊢ (1 − 1) = 0
47	46	fveq2i 6845	. . . . . . . . 9 ⊢ (ℤ≥‘(1 − 1)) = (ℤ≥‘0)
48	35, 47	eqtr4i 2763	. . . . . . . 8 ⊢ ℕ0 = (ℤ≥‘(1 − 1))
49	48	eleq2i 2829	. . . . . . 7 ⊢ (𝑚 ∈ ℕ0 ↔ 𝑚 ∈ (ℤ≥‘(1 − 1)))
50	49	biimpi 216	. . . . . 6 ⊢ (𝑚 ∈ ℕ0 → 𝑚 ∈ (ℤ≥‘(1 − 1)))
51		fzsuc2 13510	. . . . . 6 ⊢ ((1 ∈ ℤ ∧ 𝑚 ∈ (ℤ≥‘(1 − 1))) → (1...(𝑚 + 1)) = ((1...𝑚) ∪ {(𝑚 + 1)}))
52	45, 50, 51	sylancr 588	. . . . 5 ⊢ (𝑚 ∈ ℕ0 → (1...(𝑚 + 1)) = ((1...𝑚) ∪ {(𝑚 + 1)}))
53	52	adantr 480	. . . 4 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → (1...(𝑚 + 1)) = ((1...𝑚) ∪ {(𝑚 + 1)}))
54		peano2 7842	. . . . . . . . 9 ⊢ ((◡𝐺‘𝑚) ∈ ω → suc (◡𝐺‘𝑚) ∈ ω)
55	36, 54	syl 17	. . . . . . . 8 ⊢ (𝑚 ∈ ℕ0 → suc (◡𝐺‘𝑚) ∈ ω)
56	55, 18	jctil 519	. . . . . . 7 ⊢ (𝑚 ∈ ℕ0 → (𝐺:ω–1-1-onto→(ℤ≥‘0) ∧ suc (◡𝐺‘𝑚) ∈ ω))
57	16, 17	om2uzsuci 13883	. . . . . . . . 9 ⊢ ((◡𝐺‘𝑚) ∈ ω → (𝐺‘suc (◡𝐺‘𝑚)) = ((𝐺‘(◡𝐺‘𝑚)) + 1))
58	36, 57	syl 17	. . . . . . . 8 ⊢ (𝑚 ∈ ℕ0 → (𝐺‘suc (◡𝐺‘𝑚)) = ((𝐺‘(◡𝐺‘𝑚)) + 1))
59	35	eleq2i 2829	. . . . . . . . . . 11 ⊢ (𝑚 ∈ ℕ0 ↔ 𝑚 ∈ (ℤ≥‘0))
60	59	biimpi 216	. . . . . . . . . 10 ⊢ (𝑚 ∈ ℕ0 → 𝑚 ∈ (ℤ≥‘0))
61		f1ocnvfv2 7233	. . . . . . . . . 10 ⊢ ((𝐺:ω–1-1-onto→(ℤ≥‘0) ∧ 𝑚 ∈ (ℤ≥‘0)) → (𝐺‘(◡𝐺‘𝑚)) = 𝑚)
62	18, 60, 61	sylancr 588	. . . . . . . . 9 ⊢ (𝑚 ∈ ℕ0 → (𝐺‘(◡𝐺‘𝑚)) = 𝑚)
63	62	oveq1d 7383	. . . . . . . 8 ⊢ (𝑚 ∈ ℕ0 → ((𝐺‘(◡𝐺‘𝑚)) + 1) = (𝑚 + 1))
64	58, 63	eqtrd 2772	. . . . . . 7 ⊢ (𝑚 ∈ ℕ0 → (𝐺‘suc (◡𝐺‘𝑚)) = (𝑚 + 1))
65		f1ocnvfv 7234	. . . . . . 7 ⊢ ((𝐺:ω–1-1-onto→(ℤ≥‘0) ∧ suc (◡𝐺‘𝑚) ∈ ω) → ((𝐺‘suc (◡𝐺‘𝑚)) = (𝑚 + 1) → (◡𝐺‘(𝑚 + 1)) = suc (◡𝐺‘𝑚)))
66	56, 64, 65	sylc 65	. . . . . 6 ⊢ (𝑚 ∈ ℕ0 → (◡𝐺‘(𝑚 + 1)) = suc (◡𝐺‘𝑚))
67	66	adantr 480	. . . . 5 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → (◡𝐺‘(𝑚 + 1)) = suc (◡𝐺‘𝑚))
68		df-suc 6331	. . . . 5 ⊢ suc (◡𝐺‘𝑚) = ((◡𝐺‘𝑚) ∪ {(◡𝐺‘𝑚)})
69	67, 68	eqtrdi 2788	. . . 4 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → (◡𝐺‘(𝑚 + 1)) = ((◡𝐺‘𝑚) ∪ {(◡𝐺‘𝑚)}))
70	44, 53, 69	3brtr4d 5132	. . 3 ⊢ ((𝑚 ∈ ℕ0 ∧ (1...𝑚) ≈ (◡𝐺‘𝑚)) → (1...(𝑚 + 1)) ≈ (◡𝐺‘(𝑚 + 1)))
71	70	ex 412	. 2 ⊢ (𝑚 ∈ ℕ0 → ((1...𝑚) ≈ (◡𝐺‘𝑚) → (1...(𝑚 + 1)) ≈ (◡𝐺‘(𝑚 + 1))))
72	3, 6, 9, 12, 24, 71	nn0ind 12599	1 ⊢ (𝑁 ∈ ℕ0 → (1...𝑁) ≈ (◡𝐺‘𝑁))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  Vcvv 3442   ∪ cun 3901   ∩ cin 3902  ∅c0 4287  {csn 4582   class class class wbr 5100   ↦ cmpt 5181  ^◡ccnv 5631   ↾ cres 5634  Ord word 6324  suc csuc 6327  –1-1-onto→wf1o 6499  ‘cfv 6500  (class class class)co 7368  ωcom 7818  reccrdg 8350   ≈ cen 8892  0cc0 11038  1c1 11039   + caddc 11041   − cmin 11376  ℕ₀cn0 12413  ℤcz 12500  ℤ_≥cuz 12763  ...cfz 13435

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-er 8645  df-en 8896  df-dom 8897  df-sdom 8898  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-nn 12158  df-n0 12414  df-z 12501  df-uz 12764  df-fz 13436

This theorem is referenced by:  fzen2  13904  cardfz  13905