Users' Mathboxes Mathbox for Jim Kingdon < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >   Mathboxes  >  peano4nninf GIF version

Theorem peano4nninf 16833
Description: The successor function on is one to one. Half of Lemma 3.4 of [PradicBrown2022], p. 5. (Contributed by Jim Kingdon, 31-Jul-2022.)
Hypothesis
Ref Expression
peano4nninf.s 𝑆 = (𝑝 ∈ ℕ ↦ (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑝 𝑖))))
Assertion
Ref Expression
peano4nninf 𝑆:ℕ1-1→ℕ
Distinct variable groups:   𝑆,𝑖   𝑖,𝑝
Allowed substitution hint:   𝑆(𝑝)

Proof of Theorem peano4nninf
Dummy variables 𝑘 𝑥 𝑦 𝑓 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 peano4nninf.s . . 3 𝑆 = (𝑝 ∈ ℕ ↦ (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑝 𝑖))))
21nnsf 16832 . 2 𝑆:ℕ⟶ℕ
3 fveq1 5671 . . . . . . . . . . 11 (𝑓 = 𝑥 → (𝑓‘suc 𝑗) = (𝑥‘suc 𝑗))
4 fveq1 5671 . . . . . . . . . . 11 (𝑓 = 𝑥 → (𝑓𝑗) = (𝑥𝑗))
53, 4sseq12d 3271 . . . . . . . . . 10 (𝑓 = 𝑥 → ((𝑓‘suc 𝑗) ⊆ (𝑓𝑗) ↔ (𝑥‘suc 𝑗) ⊆ (𝑥𝑗)))
65ralbidv 2544 . . . . . . . . 9 (𝑓 = 𝑥 → (∀𝑗 ∈ ω (𝑓‘suc 𝑗) ⊆ (𝑓𝑗) ↔ ∀𝑗 ∈ ω (𝑥‘suc 𝑗) ⊆ (𝑥𝑗)))
7 df-nninf 7413 . . . . . . . . 9 = {𝑓 ∈ (2o𝑚 ω) ∣ ∀𝑗 ∈ ω (𝑓‘suc 𝑗) ⊆ (𝑓𝑗)}
86, 7elrab2 2978 . . . . . . . 8 (𝑥 ∈ ℕ ↔ (𝑥 ∈ (2o𝑚 ω) ∧ ∀𝑗 ∈ ω (𝑥‘suc 𝑗) ⊆ (𝑥𝑗)))
98simplbi 274 . . . . . . 7 (𝑥 ∈ ℕ𝑥 ∈ (2o𝑚 ω))
10 elmapfn 6907 . . . . . . 7 (𝑥 ∈ (2o𝑚 ω) → 𝑥 Fn ω)
119, 10syl 14 . . . . . 6 (𝑥 ∈ ℕ𝑥 Fn ω)
1211ad2antrr 488 . . . . 5 (((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) → 𝑥 Fn ω)
13 fveq1 5671 . . . . . . . . . . 11 (𝑓 = 𝑦 → (𝑓‘suc 𝑗) = (𝑦‘suc 𝑗))
14 fveq1 5671 . . . . . . . . . . 11 (𝑓 = 𝑦 → (𝑓𝑗) = (𝑦𝑗))
1513, 14sseq12d 3271 . . . . . . . . . 10 (𝑓 = 𝑦 → ((𝑓‘suc 𝑗) ⊆ (𝑓𝑗) ↔ (𝑦‘suc 𝑗) ⊆ (𝑦𝑗)))
1615ralbidv 2544 . . . . . . . . 9 (𝑓 = 𝑦 → (∀𝑗 ∈ ω (𝑓‘suc 𝑗) ⊆ (𝑓𝑗) ↔ ∀𝑗 ∈ ω (𝑦‘suc 𝑗) ⊆ (𝑦𝑗)))
1716, 7elrab2 2978 . . . . . . . 8 (𝑦 ∈ ℕ ↔ (𝑦 ∈ (2o𝑚 ω) ∧ ∀𝑗 ∈ ω (𝑦‘suc 𝑗) ⊆ (𝑦𝑗)))
1817simplbi 274 . . . . . . 7 (𝑦 ∈ ℕ𝑦 ∈ (2o𝑚 ω))
19 elmapfn 6907 . . . . . . 7 (𝑦 ∈ (2o𝑚 ω) → 𝑦 Fn ω)
2018, 19syl 14 . . . . . 6 (𝑦 ∈ ℕ𝑦 Fn ω)
2120ad2antlr 489 . . . . 5 (((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) → 𝑦 Fn ω)
22 simplr 529 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑆𝑥) = (𝑆𝑦))
2322fveq1d 5674 . . . . . 6 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → ((𝑆𝑥)‘suc 𝑘) = ((𝑆𝑦)‘suc 𝑘))
24 fveq1 5671 . . . . . . . . . . . 12 (𝑝 = 𝑥 → (𝑝 𝑖) = (𝑥 𝑖))
2524ifeq2d 3643 . . . . . . . . . . 11 (𝑝 = 𝑥 → if(𝑖 = ∅, 1o, (𝑝 𝑖)) = if(𝑖 = ∅, 1o, (𝑥 𝑖)))
2625mpteq2dv 4203 . . . . . . . . . 10 (𝑝 = 𝑥 → (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑝 𝑖))) = (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑥 𝑖))))
27 omex 4717 . . . . . . . . . . 11 ω ∈ V
2827mptex 5914 . . . . . . . . . 10 (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑥 𝑖))) ∈ V
2926, 1, 28fvmpt 5756 . . . . . . . . 9 (𝑥 ∈ ℕ → (𝑆𝑥) = (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑥 𝑖))))
3029ad3antrrr 492 . . . . . . . 8 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑆𝑥) = (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑥 𝑖))))
31 simpr 110 . . . . . . . . . 10 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → 𝑖 = suc 𝑘)
3231eqeq1d 2243 . . . . . . . . 9 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → (𝑖 = ∅ ↔ suc 𝑘 = ∅))
3331unieqd 3927 . . . . . . . . . 10 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → 𝑖 = suc 𝑘)
3433fveq2d 5676 . . . . . . . . 9 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → (𝑥 𝑖) = (𝑥 suc 𝑘))
3532, 34ifbieq2d 3649 . . . . . . . 8 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → if(𝑖 = ∅, 1o, (𝑥 𝑖)) = if(suc 𝑘 = ∅, 1o, (𝑥 suc 𝑘)))
36 peano2 4719 . . . . . . . . 9 (𝑘 ∈ ω → suc 𝑘 ∈ ω)
3736adantl 277 . . . . . . . 8 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → suc 𝑘 ∈ ω)
38 1lt2o 6677 . . . . . . . . . 10 1o ∈ 2o
3938a1i 9 . . . . . . . . 9 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → 1o ∈ 2o)
40 nninff 7415 . . . . . . . . . . 11 (𝑥 ∈ ℕ𝑥:ω⟶2o)
4140ad3antrrr 492 . . . . . . . . . 10 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → 𝑥:ω⟶2o)
42 nnpredcl 4747 . . . . . . . . . . 11 (suc 𝑘 ∈ ω → suc 𝑘 ∈ ω)
4337, 42syl 14 . . . . . . . . . 10 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → suc 𝑘 ∈ ω)
4441, 43ffvelcdmd 5815 . . . . . . . . 9 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑥 suc 𝑘) ∈ 2o)
45 nndceq0 4742 . . . . . . . . . 10 (suc 𝑘 ∈ ω → DECID suc 𝑘 = ∅)
4637, 45syl 14 . . . . . . . . 9 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → DECID suc 𝑘 = ∅)
4739, 44, 46ifcldcd 3662 . . . . . . . 8 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → if(suc 𝑘 = ∅, 1o, (𝑥 suc 𝑘)) ∈ 2o)
4830, 35, 37, 47fvmptd 5760 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → ((𝑆𝑥)‘suc 𝑘) = if(suc 𝑘 = ∅, 1o, (𝑥 suc 𝑘)))
49 peano3 4720 . . . . . . . . . 10 (𝑘 ∈ ω → suc 𝑘 ≠ ∅)
5049adantl 277 . . . . . . . . 9 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → suc 𝑘 ≠ ∅)
5150neneqd 2435 . . . . . . . 8 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → ¬ suc 𝑘 = ∅)
5251iffalsed 3634 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → if(suc 𝑘 = ∅, 1o, (𝑥 suc 𝑘)) = (𝑥 suc 𝑘))
53 nnord 4736 . . . . . . . . . . 11 (𝑘 ∈ ω → Ord 𝑘)
54 ordtr 4501 . . . . . . . . . . 11 (Ord 𝑘 → Tr 𝑘)
5553, 54syl 14 . . . . . . . . . 10 (𝑘 ∈ ω → Tr 𝑘)
56 unisucg 4537 . . . . . . . . . 10 (𝑘 ∈ ω → (Tr 𝑘 suc 𝑘 = 𝑘))
5755, 56mpbid 147 . . . . . . . . 9 (𝑘 ∈ ω → suc 𝑘 = 𝑘)
5857fveq2d 5676 . . . . . . . 8 (𝑘 ∈ ω → (𝑥 suc 𝑘) = (𝑥𝑘))
5958adantl 277 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑥 suc 𝑘) = (𝑥𝑘))
6048, 52, 593eqtrd 2271 . . . . . 6 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → ((𝑆𝑥)‘suc 𝑘) = (𝑥𝑘))
61 fveq1 5671 . . . . . . . . . . . 12 (𝑝 = 𝑦 → (𝑝 𝑖) = (𝑦 𝑖))
6261ifeq2d 3643 . . . . . . . . . . 11 (𝑝 = 𝑦 → if(𝑖 = ∅, 1o, (𝑝 𝑖)) = if(𝑖 = ∅, 1o, (𝑦 𝑖)))
6362mpteq2dv 4203 . . . . . . . . . 10 (𝑝 = 𝑦 → (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑝 𝑖))) = (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑦 𝑖))))
6427mptex 5914 . . . . . . . . . 10 (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑦 𝑖))) ∈ V
6563, 1, 64fvmpt 5756 . . . . . . . . 9 (𝑦 ∈ ℕ → (𝑆𝑦) = (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑦 𝑖))))
6665ad3antlr 493 . . . . . . . 8 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑆𝑦) = (𝑖 ∈ ω ↦ if(𝑖 = ∅, 1o, (𝑦 𝑖))))
6733fveq2d 5676 . . . . . . . . 9 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → (𝑦 𝑖) = (𝑦 suc 𝑘))
6832, 67ifbieq2d 3649 . . . . . . . 8 (((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) ∧ 𝑖 = suc 𝑘) → if(𝑖 = ∅, 1o, (𝑦 𝑖)) = if(suc 𝑘 = ∅, 1o, (𝑦 suc 𝑘)))
69 nninff 7415 . . . . . . . . . . 11 (𝑦 ∈ ℕ𝑦:ω⟶2o)
7069ad3antlr 493 . . . . . . . . . 10 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → 𝑦:ω⟶2o)
7170, 43ffvelcdmd 5815 . . . . . . . . 9 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑦 suc 𝑘) ∈ 2o)
7239, 71, 46ifcldcd 3662 . . . . . . . 8 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → if(suc 𝑘 = ∅, 1o, (𝑦 suc 𝑘)) ∈ 2o)
7366, 68, 37, 72fvmptd 5760 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → ((𝑆𝑦)‘suc 𝑘) = if(suc 𝑘 = ∅, 1o, (𝑦 suc 𝑘)))
7451iffalsed 3634 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → if(suc 𝑘 = ∅, 1o, (𝑦 suc 𝑘)) = (𝑦 suc 𝑘))
7557fveq2d 5676 . . . . . . . 8 (𝑘 ∈ ω → (𝑦 suc 𝑘) = (𝑦𝑘))
7675adantl 277 . . . . . . 7 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑦 suc 𝑘) = (𝑦𝑘))
7773, 74, 763eqtrd 2271 . . . . . 6 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → ((𝑆𝑦)‘suc 𝑘) = (𝑦𝑘))
7823, 60, 773eqtr3d 2275 . . . . 5 ((((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) ∧ 𝑘 ∈ ω) → (𝑥𝑘) = (𝑦𝑘))
7912, 21, 78eqfnfvd 5780 . . . 4 (((𝑥 ∈ ℕ𝑦 ∈ ℕ) ∧ (𝑆𝑥) = (𝑆𝑦)) → 𝑥 = 𝑦)
8079ex 115 . . 3 ((𝑥 ∈ ℕ𝑦 ∈ ℕ) → ((𝑆𝑥) = (𝑆𝑦) → 𝑥 = 𝑦))
8180rgen2a 2598 . 2 𝑥 ∈ ℕ𝑦 ∈ ℕ ((𝑆𝑥) = (𝑆𝑦) → 𝑥 = 𝑦)
82 dff13 5943 . 2 (𝑆:ℕ1-1→ℕ ↔ (𝑆:ℕ⟶ℕ ∧ ∀𝑥 ∈ ℕ𝑦 ∈ ℕ ((𝑆𝑥) = (𝑆𝑦) → 𝑥 = 𝑦)))
832, 81, 82mpbir2an 951 1 𝑆:ℕ1-1→ℕ
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  DECID wdc 842   = wceq 1398  wcel 2205  wne 2414  wral 2522  wss 3213  c0 3510  ifcif 3622   cuni 3916  cmpt 4173  Tr wtr 4210  Ord word 4485  suc csuc 4488  ωcom 4714   Fn wfn 5349  wf 5350  1-1wf1 5351  cfv 5354  (class class class)co 6052  1oc1o 6642  2oc2o 6643  𝑚 cmap 6884  xnninf 7412
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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-coll 4227  ax-sep 4230  ax-nul 4238  ax-pow 4289  ax-pr 4324  ax-un 4556  ax-setind 4661  ax-iinf 4712
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-reu 2529  df-rab 2531  df-v 2817  df-sbc 3045  df-csb 3141  df-dif 3215  df-un 3217  df-in 3219  df-ss 3226  df-nul 3511  df-if 3623  df-pw 3673  df-sn 3697  df-pr 3698  df-op 3700  df-uni 3917  df-int 3952  df-iun 3995  df-br 4112  df-opab 4174  df-mpt 4175  df-tr 4211  df-id 4416  df-iord 4489  df-on 4491  df-suc 4494  df-iom 4715  df-xp 4757  df-rel 4758  df-cnv 4759  df-co 4760  df-dm 4761  df-rn 4762  df-res 4763  df-ima 4764  df-iota 5314  df-fun 5356  df-fn 5357  df-f 5358  df-f1 5359  df-fo 5360  df-f1o 5361  df-fv 5362  df-ov 6055  df-oprab 6056  df-mpo 6057  df-1o 6649  df-2o 6650  df-map 6886  df-nninf 7413
This theorem is referenced by:  exmidsbthrlem  16851
  Copyright terms: Public domain W3C validator