Users' Mathboxes Mathbox for Matthew House < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mh-inf3f1 Structured version   Visualization version   GIF version

Theorem mh-inf3f1 36782
Description: A variant of inf3 9551. If 𝐹 is a one-to-one function from 𝐴 into itself, and there exists an element 𝐵 not in its range, then (rec(𝐹, 𝐵) ↾ ω) is an infinite sequence of distinct elements from 𝐴. If 𝐴 is a set, we can use this theorem to prove ω ∈ V via f1dmex 7901. (Contributed by Matthew House, 13-Apr-2026.)
Hypotheses
Ref Expression
mh-inf3f1.1 (𝜑𝐹:𝐴1-1𝐴)
mh-inf3f1.2 (𝜑𝐵 ∈ (𝐴 ∖ ran 𝐹))
Assertion
Ref Expression
mh-inf3f1 (𝜑 → (rec(𝐹, 𝐵) ↾ ω):ω–1-1𝐴)

Proof of Theorem mh-inf3f1
Dummy variables 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 frfnom 8368 . . . 4 (rec(𝐹, 𝐵) ↾ ω) Fn ω
21a1i 11 . . 3 (𝜑 → (rec(𝐹, 𝐵) ↾ ω) Fn ω)
3 fveq2 6830 . . . . . . 7 (𝑥 = ∅ → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) = ((rec(𝐹, 𝐵) ↾ ω)‘∅))
43eleq1d 2826 . . . . . 6 (𝑥 = ∅ → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴 ↔ ((rec(𝐹, 𝐵) ↾ ω)‘∅) ∈ 𝐴))
5 fveq2 6830 . . . . . . 7 (𝑥 = 𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) = ((rec(𝐹, 𝐵) ↾ ω)‘𝑤))
65eleq1d 2826 . . . . . 6 (𝑥 = 𝑤 → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴 ↔ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ∈ 𝐴))
7 fveq2 6830 . . . . . . 7 (𝑥 = suc 𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) = ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤))
87eleq1d 2826 . . . . . 6 (𝑥 = suc 𝑤 → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴 ↔ ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ∈ 𝐴))
9 mh-inf3f1.2 . . . . . . . . 9 (𝜑𝐵 ∈ (𝐴 ∖ ran 𝐹))
109eldifad 3896 . . . . . . . 8 (𝜑𝐵𝐴)
11 fr0g 8369 . . . . . . . 8 (𝐵𝐴 → ((rec(𝐹, 𝐵) ↾ ω)‘∅) = 𝐵)
1210, 11syl 17 . . . . . . 7 (𝜑 → ((rec(𝐹, 𝐵) ↾ ω)‘∅) = 𝐵)
1312, 10eqeltrd 2841 . . . . . 6 (𝜑 → ((rec(𝐹, 𝐵) ↾ ω)‘∅) ∈ 𝐴)
14 mh-inf3f1.1 . . . . . . . . . 10 (𝜑𝐹:𝐴1-1𝐴)
15 f1f 6726 . . . . . . . . . 10 (𝐹:𝐴1-1𝐴𝐹:𝐴𝐴)
1614, 15syl 17 . . . . . . . . 9 (𝜑𝐹:𝐴𝐴)
1716ffvelcdmda 7028 . . . . . . . 8 ((𝜑 ∧ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ∈ 𝐴) → (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)) ∈ 𝐴)
18 frsuc 8370 . . . . . . . . 9 (𝑤 ∈ ω → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
1918eleq1d 2826 . . . . . . . 8 (𝑤 ∈ ω → (((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ∈ 𝐴 ↔ (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)) ∈ 𝐴))
2017, 19imbitrrid 248 . . . . . . 7 (𝑤 ∈ ω → ((𝜑 ∧ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ∈ 𝐴) → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ∈ 𝐴))
2120expd 417 . . . . . 6 (𝑤 ∈ ω → (𝜑 → (((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ∈ 𝐴 → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ∈ 𝐴)))
224, 6, 8, 13, 21finds2 7842 . . . . 5 (𝑥 ∈ ω → (𝜑 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴))
2322com12 32 . . . 4 (𝜑 → (𝑥 ∈ ω → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴))
2423ralrimiv 3132 . . 3 (𝜑 → ∀𝑥 ∈ ω ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴)
25 ffnfv 7063 . . 3 ((rec(𝐹, 𝐵) ↾ ω):ω⟶𝐴 ↔ ((rec(𝐹, 𝐵) ↾ ω) Fn ω ∧ ∀𝑥 ∈ ω ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ∈ 𝐴))
262, 24, 25sylanbrc 590 . 2 (𝜑 → (rec(𝐹, 𝐵) ↾ ω):ω⟶𝐴)
27 nnord 7817 . . . . . . 7 (𝑧 ∈ ω → Ord 𝑧)
28 nnord 7817 . . . . . . 7 (𝑤 ∈ ω → Ord 𝑤)
29 ordtri3 6349 . . . . . . 7 ((Ord 𝑧 ∧ Ord 𝑤) → (𝑧 = 𝑤 ↔ ¬ (𝑧𝑤𝑤𝑧)))
3027, 28, 29syl2an 603 . . . . . 6 ((𝑧 ∈ ω ∧ 𝑤 ∈ ω) → (𝑧 = 𝑤 ↔ ¬ (𝑧𝑤𝑤𝑧)))
3130adantl 483 . . . . 5 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → (𝑧 = 𝑤 ↔ ¬ (𝑧𝑤𝑤𝑧)))
3231necon2abid 2978 . . . 4 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → ((𝑧𝑤𝑤𝑧) ↔ 𝑧𝑤))
33 vex 3437 . . . . . 6 𝑧 ∈ V
34 vex 3437 . . . . . 6 𝑤 ∈ V
35 simpl 484 . . . . . . . . . 10 ((𝑥 = 𝑧𝑦 = 𝑤) → 𝑥 = 𝑧)
3635eleq1d 2826 . . . . . . . . 9 ((𝑥 = 𝑧𝑦 = 𝑤) → (𝑥 ∈ ω ↔ 𝑧 ∈ ω))
37 simpr 486 . . . . . . . . . 10 ((𝑥 = 𝑧𝑦 = 𝑤) → 𝑦 = 𝑤)
3837eleq1d 2826 . . . . . . . . 9 ((𝑥 = 𝑧𝑦 = 𝑤) → (𝑦 ∈ ω ↔ 𝑤 ∈ ω))
3936, 38anbi12d 639 . . . . . . . 8 ((𝑥 = 𝑧𝑦 = 𝑤) → ((𝑥 ∈ ω ∧ 𝑦 ∈ ω) ↔ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)))
4039anbi2d 637 . . . . . . 7 ((𝑥 = 𝑧𝑦 = 𝑤) → ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) ↔ (𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω))))
41 elequ12 2139 . . . . . . . 8 ((𝑥 = 𝑧𝑦 = 𝑤) → (𝑥𝑦𝑧𝑤))
4235fveq2d 6834 . . . . . . . . 9 ((𝑥 = 𝑧𝑦 = 𝑤) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) = ((rec(𝐹, 𝐵) ↾ ω)‘𝑧))
4337fveq2d 6834 . . . . . . . . 9 ((𝑥 = 𝑧𝑦 = 𝑤) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑦) = ((rec(𝐹, 𝐵) ↾ ω)‘𝑤))
4442, 43neeq12d 2997 . . . . . . . 8 ((𝑥 = 𝑧𝑦 = 𝑤) → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦) ↔ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
4541, 44imbi12d 346 . . . . . . 7 ((𝑥 = 𝑧𝑦 = 𝑤) → ((𝑥𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦)) ↔ (𝑧𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤))))
4640, 45imbi12d 346 . . . . . 6 ((𝑥 = 𝑧𝑦 = 𝑤) → (((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) → (𝑥𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦))) ↔ ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → (𝑧𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))))
47 nnaordex2 8569 . . . . . . . 8 ((𝑥 ∈ ω ∧ 𝑦 ∈ ω) → (𝑥𝑦 ↔ ∃𝑧 ∈ ω (𝑥 +o suc 𝑧) = 𝑦))
4847adantl 483 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) → (𝑥𝑦 ↔ ∃𝑧 ∈ ω (𝑥 +o suc 𝑧) = 𝑦))
49 oveq2 7367 . . . . . . . . . . . . . . . 16 (𝑥 = ∅ → (suc 𝑧 +o 𝑥) = (suc 𝑧 +o ∅))
5049fveq2d 6834 . . . . . . . . . . . . . . 15 (𝑥 = ∅ → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o ∅)))
513, 50neeq12d 2997 . . . . . . . . . . . . . 14 (𝑥 = ∅ → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) ↔ ((rec(𝐹, 𝐵) ↾ ω)‘∅) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o ∅))))
52 oveq2 7367 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑤 → (suc 𝑧 +o 𝑥) = (suc 𝑧 +o 𝑤))
5352fveq2d 6834 . . . . . . . . . . . . . . 15 (𝑥 = 𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤)))
545, 53neeq12d 2997 . . . . . . . . . . . . . 14 (𝑥 = 𝑤 → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) ↔ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
55 oveq2 7367 . . . . . . . . . . . . . . . 16 (𝑥 = suc 𝑤 → (suc 𝑧 +o 𝑥) = (suc 𝑧 +o suc 𝑤))
5655fveq2d 6834 . . . . . . . . . . . . . . 15 (𝑥 = suc 𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤)))
577, 56neeq12d 2997 . . . . . . . . . . . . . 14 (𝑥 = suc 𝑤 → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) ↔ ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤))))
5816ffnd 6659 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐹 Fn 𝐴)
5958adantr 482 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧 ∈ ω) → 𝐹 Fn 𝐴)
6026ffvelcdmda 7028 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ∈ 𝐴)
6159, 60fnfvelrnd 7026 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ ω) → (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)) ∈ ran 𝐹)
629eldifbd 3897 . . . . . . . . . . . . . . . . . 18 (𝜑 → ¬ 𝐵 ∈ ran 𝐹)
6362adantr 482 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ ω) → ¬ 𝐵 ∈ ran 𝐹)
64 nelne2 3034 . . . . . . . . . . . . . . . . 17 (((𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)) ∈ ran 𝐹 ∧ ¬ 𝐵 ∈ ran 𝐹) → (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)) ≠ 𝐵)
6561, 63, 64syl2anc 591 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ ω) → (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)) ≠ 𝐵)
6665necomd 2991 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ ω) → 𝐵 ≠ (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
6712adantr 482 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘∅) = 𝐵)
68 peano2 7833 . . . . . . . . . . . . . . . . . . 19 (𝑧 ∈ ω → suc 𝑧 ∈ ω)
6968adantl 483 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧 ∈ ω) → suc 𝑧 ∈ ω)
70 nna0 8534 . . . . . . . . . . . . . . . . . 18 (suc 𝑧 ∈ ω → (suc 𝑧 +o ∅) = suc 𝑧)
7169, 70syl 17 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ ω) → (suc 𝑧 +o ∅) = suc 𝑧)
7271fveq2d 6834 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o ∅)) = ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑧))
73 frsuc 8370 . . . . . . . . . . . . . . . . 17 (𝑧 ∈ ω → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑧) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
7473adantl 483 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑧) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
7572, 74eqtrd 2776 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o ∅)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
7666, 67, 753netr4d 3013 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘∅) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o ∅)))
7718adantl 483 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
78 nnasuc 8536 . . . . . . . . . . . . . . . . . . . . 21 ((suc 𝑧 ∈ ω ∧ 𝑤 ∈ ω) → (suc 𝑧 +o suc 𝑤) = suc (suc 𝑧 +o 𝑤))
7969, 78sylan 587 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → (suc 𝑧 +o suc 𝑤) = suc (suc 𝑧 +o 𝑤))
8079fveq2d 6834 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤)) = ((rec(𝐹, 𝐵) ↾ ω)‘suc (suc 𝑧 +o 𝑤)))
81 nnacl 8541 . . . . . . . . . . . . . . . . . . . . 21 ((suc 𝑧 ∈ ω ∧ 𝑤 ∈ ω) → (suc 𝑧 +o 𝑤) ∈ ω)
8269, 81sylan 587 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → (suc 𝑧 +o 𝑤) ∈ ω)
83 frsuc 8370 . . . . . . . . . . . . . . . . . . . 20 ((suc 𝑧 +o 𝑤) ∈ ω → ((rec(𝐹, 𝐵) ↾ ω)‘suc (suc 𝑧 +o 𝑤)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
8482, 83syl 17 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘suc (suc 𝑧 +o 𝑤)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
8580, 84eqtrd 2776 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
8677, 85eqeq12d 2757 . . . . . . . . . . . . . . . . 17 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → (((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤)) ↔ (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤)))))
8714ad2antrr 733 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → 𝐹:𝐴1-1𝐴)
8826ad2antrr 733 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → (rec(𝐹, 𝐵) ↾ ω):ω⟶𝐴)
89 simpr 486 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → 𝑤 ∈ ω)
9088, 89ffvelcdmd 7029 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ∈ 𝐴)
9188, 82ffvelcdmd 7029 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤)) ∈ 𝐴)
92 f1veqaeq 7203 . . . . . . . . . . . . . . . . . 18 ((𝐹:𝐴1-1𝐴 ∧ (((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ∈ 𝐴 ∧ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤)) ∈ 𝐴)) → ((𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
9387, 90, 91, 92syl12anc 843 . . . . . . . . . . . . . . . . 17 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → ((𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘𝑤)) = (𝐹‘((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
9486, 93sylbid 242 . . . . . . . . . . . . . . . 16 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → (((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤)) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) = ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤))))
9594necon3d 2957 . . . . . . . . . . . . . . 15 (((𝜑𝑧 ∈ ω) ∧ 𝑤 ∈ ω) → (((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤)) → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤))))
9695expcom 415 . . . . . . . . . . . . . 14 (𝑤 ∈ ω → ((𝜑𝑧 ∈ ω) → (((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑤)) → ((rec(𝐹, 𝐵) ↾ ω)‘suc 𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o suc 𝑤)))))
9751, 54, 57, 76, 96finds2 7842 . . . . . . . . . . . . 13 (𝑥 ∈ ω → ((𝜑𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥))))
9897impcom 409 . . . . . . . . . . . 12 (((𝜑𝑧 ∈ ω) ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)))
9998an32s 659 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ω) ∧ 𝑧 ∈ ω) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)))
10099adantrr 724 . . . . . . . . . 10 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)))
10168ad2antrl 735 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → suc 𝑧 ∈ ω)
102 simplr 775 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → 𝑥 ∈ ω)
103 nnacom 8547 . . . . . . . . . . . . 13 ((suc 𝑧 ∈ ω ∧ 𝑥 ∈ ω) → (suc 𝑧 +o 𝑥) = (𝑥 +o suc 𝑧))
104101, 102, 103syl2anc 591 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → (suc 𝑧 +o 𝑥) = (𝑥 +o suc 𝑧))
105 simprr 779 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → (𝑥 +o suc 𝑧) = 𝑦)
106104, 105eqtrd 2776 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → (suc 𝑧 +o 𝑥) = 𝑦)
107106fveq2d 6834 . . . . . . . . . 10 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → ((rec(𝐹, 𝐵) ↾ ω)‘(suc 𝑧 +o 𝑥)) = ((rec(𝐹, 𝐵) ↾ ω)‘𝑦))
108100, 107neeqtrd 3005 . . . . . . . . 9 (((𝜑𝑥 ∈ ω) ∧ (𝑧 ∈ ω ∧ (𝑥 +o suc 𝑧) = 𝑦)) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦))
109108rexlimdvaa 3143 . . . . . . . 8 ((𝜑𝑥 ∈ ω) → (∃𝑧 ∈ ω (𝑥 +o suc 𝑧) = 𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦)))
110109adantrr 724 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) → (∃𝑧 ∈ ω (𝑥 +o suc 𝑧) = 𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦)))
11148, 110sylbid 242 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) → (𝑥𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦)))
11233, 34, 46, 111vtocl2 3511 . . . . 5 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → (𝑧𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
113 simpl 484 . . . . . . . . . . . 12 ((𝑥 = 𝑤𝑦 = 𝑧) → 𝑥 = 𝑤)
114113eleq1d 2826 . . . . . . . . . . 11 ((𝑥 = 𝑤𝑦 = 𝑧) → (𝑥 ∈ ω ↔ 𝑤 ∈ ω))
115 simpr 486 . . . . . . . . . . . 12 ((𝑥 = 𝑤𝑦 = 𝑧) → 𝑦 = 𝑧)
116115eleq1d 2826 . . . . . . . . . . 11 ((𝑥 = 𝑤𝑦 = 𝑧) → (𝑦 ∈ ω ↔ 𝑧 ∈ ω))
117114, 116anbi12d 639 . . . . . . . . . 10 ((𝑥 = 𝑤𝑦 = 𝑧) → ((𝑥 ∈ ω ∧ 𝑦 ∈ ω) ↔ (𝑤 ∈ ω ∧ 𝑧 ∈ ω)))
118117anbi2d 637 . . . . . . . . 9 ((𝑥 = 𝑤𝑦 = 𝑧) → ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) ↔ (𝜑 ∧ (𝑤 ∈ ω ∧ 𝑧 ∈ ω))))
119 elequ12 2139 . . . . . . . . . 10 ((𝑥 = 𝑤𝑦 = 𝑧) → (𝑥𝑦𝑤𝑧))
120113fveq2d 6834 . . . . . . . . . . 11 ((𝑥 = 𝑤𝑦 = 𝑧) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) = ((rec(𝐹, 𝐵) ↾ ω)‘𝑤))
121115fveq2d 6834 . . . . . . . . . . 11 ((𝑥 = 𝑤𝑦 = 𝑧) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑦) = ((rec(𝐹, 𝐵) ↾ ω)‘𝑧))
122120, 121neeq12d 2997 . . . . . . . . . 10 ((𝑥 = 𝑤𝑦 = 𝑧) → (((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦) ↔ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
123119, 122imbi12d 346 . . . . . . . . 9 ((𝑥 = 𝑤𝑦 = 𝑧) → ((𝑥𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦)) ↔ (𝑤𝑧 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧))))
124118, 123imbi12d 346 . . . . . . . 8 ((𝑥 = 𝑤𝑦 = 𝑧) → (((𝜑 ∧ (𝑥 ∈ ω ∧ 𝑦 ∈ ω)) → (𝑥𝑦 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑥) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑦))) ↔ ((𝜑 ∧ (𝑤 ∈ ω ∧ 𝑧 ∈ ω)) → (𝑤𝑧 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))))
12534, 33, 124, 111vtocl2 3511 . . . . . . 7 ((𝜑 ∧ (𝑤 ∈ ω ∧ 𝑧 ∈ ω)) → (𝑤𝑧 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
126125ancom2s 657 . . . . . 6 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → (𝑤𝑧 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧)))
127 necom 2989 . . . . . 6 (((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ↔ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑧))
128126, 127imbitrrdi 254 . . . . 5 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → (𝑤𝑧 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
129112, 128jaod 866 . . . 4 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → ((𝑧𝑤𝑤𝑧) → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
13032, 129sylbird 262 . . 3 ((𝜑 ∧ (𝑧 ∈ ω ∧ 𝑤 ∈ ω)) → (𝑧𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
131130ralrimivva 3184 . 2 (𝜑 → ∀𝑧 ∈ ω ∀𝑤 ∈ ω (𝑧𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤)))
132 dff14a 7217 . 2 ((rec(𝐹, 𝐵) ↾ ω):ω–1-1𝐴 ↔ ((rec(𝐹, 𝐵) ↾ ω):ω⟶𝐴 ∧ ∀𝑧 ∈ ω ∀𝑤 ∈ ω (𝑧𝑤 → ((rec(𝐹, 𝐵) ↾ ω)‘𝑧) ≠ ((rec(𝐹, 𝐵) ↾ ω)‘𝑤))))
13326, 131, 132sylanbrc 590 1 (𝜑 → (rec(𝐹, 𝐵) ↾ ω):ω–1-1𝐴)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 397  wo 854   = wceq 1548  wcel 2121  wne 2936  wral 3055  wrex 3065  cdif 3881  c0 4263  ran crn 5621  cres 5622  Ord word 6312  suc csuc 6315   Fn wfn 6483  wf 6484  1-1wf1 6485  cfv 6488  (class class class)co 7359  ωcom 7809  reccrdg 8342   +o coa 8396
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-sep 5220  ax-nul 5230  ax-pr 5364  ax-un 7681
This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-ral 3056  df-rex 3066  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3725  df-csb 3833  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-pss 3904  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4841  df-int 4880  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6255  df-ord 6316  df-on 6317  df-lim 6318  df-suc 6319  df-iota 6444  df-fun 6490  df-fn 6491  df-f 6492  df-f1 6493  df-fo 6494  df-f1o 6495  df-fv 6496  df-ov 7362  df-oprab 7363  df-mpo 7364  df-om 7810  df-2nd 7934  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8343  df-oadd 8403
This theorem is referenced by:  mh-inf3sn  36783
  Copyright terms: Public domain W3C validator