Step | Hyp | Ref
| Expression |
1 | | nq0nn 7404 |
. 2
⊢ (𝐴 ∈
Q0 → ∃𝑤∃𝑣((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧ 𝐴 = [〈𝑤, 𝑣〉] ~Q0
)) |
2 | | df-0nq0 7388 |
. . . . . 6
⊢
0Q0 = [〈∅, 1o〉]
~Q0 |
3 | | oveq12 5862 |
. . . . . 6
⊢ ((𝐴 = [〈𝑤, 𝑣〉] ~Q0 ∧
0Q0 = [〈∅, 1o〉]
~Q0 ) → (𝐴 +Q0
0Q0) = ([〈𝑤, 𝑣〉] ~Q0
+Q0 [〈∅, 1o〉]
~Q0 )) |
4 | 2, 3 | mpan2 423 |
. . . . 5
⊢ (𝐴 = [〈𝑤, 𝑣〉] ~Q0 →
(𝐴
+Q0 0Q0) = ([〈𝑤, 𝑣〉] ~Q0
+Q0 [〈∅, 1o〉]
~Q0 )) |
5 | | peano1 4578 |
. . . . . 6
⊢ ∅
∈ ω |
6 | | 1pi 7277 |
. . . . . 6
⊢
1o ∈ N |
7 | | addnnnq0 7411 |
. . . . . 6
⊢ (((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧
(∅ ∈ ω ∧ 1o ∈ N)) →
([〈𝑤, 𝑣〉]
~Q0 +Q0 [〈∅,
1o〉] ~Q0 ) = [〈((𝑤 ·o
1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉] ~Q0 ) |
8 | 5, 6, 7 | mpanr12 437 |
. . . . 5
⊢ ((𝑤 ∈ ω ∧ 𝑣 ∈ N) →
([〈𝑤, 𝑣〉]
~Q0 +Q0 [〈∅,
1o〉] ~Q0 ) = [〈((𝑤 ·o
1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉] ~Q0 ) |
9 | 4, 8 | sylan9eqr 2225 |
. . . 4
⊢ (((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧
𝐴 = [〈𝑤, 𝑣〉] ~Q0 ) →
(𝐴
+Q0 0Q0) = [〈((𝑤 ·o
1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉] ~Q0 ) |
10 | | pinn 7271 |
. . . . . . . . . 10
⊢ (𝑣 ∈ N →
𝑣 ∈
ω) |
11 | | nnm0 6454 |
. . . . . . . . . . 11
⊢ (𝑣 ∈ ω → (𝑣 ·o ∅) =
∅) |
12 | 11 | oveq2d 5869 |
. . . . . . . . . 10
⊢ (𝑣 ∈ ω → ((𝑤 ·o
1o) +o (𝑣 ·o ∅)) = ((𝑤 ·o
1o) +o ∅)) |
13 | 10, 12 | syl 14 |
. . . . . . . . 9
⊢ (𝑣 ∈ N →
((𝑤 ·o
1o) +o (𝑣 ·o ∅)) = ((𝑤 ·o
1o) +o ∅)) |
14 | | nnm1 6504 |
. . . . . . . . . . 11
⊢ (𝑤 ∈ ω → (𝑤 ·o
1o) = 𝑤) |
15 | 14 | oveq1d 5868 |
. . . . . . . . . 10
⊢ (𝑤 ∈ ω → ((𝑤 ·o
1o) +o ∅) = (𝑤 +o ∅)) |
16 | | nna0 6453 |
. . . . . . . . . 10
⊢ (𝑤 ∈ ω → (𝑤 +o ∅) = 𝑤) |
17 | 15, 16 | eqtrd 2203 |
. . . . . . . . 9
⊢ (𝑤 ∈ ω → ((𝑤 ·o
1o) +o ∅) = 𝑤) |
18 | 13, 17 | sylan9eqr 2225 |
. . . . . . . 8
⊢ ((𝑤 ∈ ω ∧ 𝑣 ∈ N) →
((𝑤 ·o
1o) +o (𝑣 ·o ∅)) = 𝑤) |
19 | | nnm1 6504 |
. . . . . . . . . 10
⊢ (𝑣 ∈ ω → (𝑣 ·o
1o) = 𝑣) |
20 | 10, 19 | syl 14 |
. . . . . . . . 9
⊢ (𝑣 ∈ N →
(𝑣 ·o
1o) = 𝑣) |
21 | 20 | adantl 275 |
. . . . . . . 8
⊢ ((𝑤 ∈ ω ∧ 𝑣 ∈ N) →
(𝑣 ·o
1o) = 𝑣) |
22 | 18, 21 | opeq12d 3773 |
. . . . . . 7
⊢ ((𝑤 ∈ ω ∧ 𝑣 ∈ N) →
〈((𝑤
·o 1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉 = 〈𝑤, 𝑣〉) |
23 | 22 | eceq1d 6549 |
. . . . . 6
⊢ ((𝑤 ∈ ω ∧ 𝑣 ∈ N) →
[〈((𝑤
·o 1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉] ~Q0 = [〈𝑤, 𝑣〉] ~Q0
) |
24 | 23 | eqeq2d 2182 |
. . . . 5
⊢ ((𝑤 ∈ ω ∧ 𝑣 ∈ N) →
(𝐴 = [〈((𝑤 ·o
1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉] ~Q0 ↔ 𝐴 = [〈𝑤, 𝑣〉] ~Q0
)) |
25 | 24 | biimpar 295 |
. . . 4
⊢ (((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧
𝐴 = [〈𝑤, 𝑣〉] ~Q0 ) →
𝐴 = [〈((𝑤 ·o
1o) +o (𝑣 ·o ∅)), (𝑣 ·o
1o)〉] ~Q0 ) |
26 | 9, 25 | eqtr4d 2206 |
. . 3
⊢ (((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧
𝐴 = [〈𝑤, 𝑣〉] ~Q0 ) →
(𝐴
+Q0 0Q0) = 𝐴) |
27 | 26 | exlimivv 1889 |
. 2
⊢
(∃𝑤∃𝑣((𝑤 ∈ ω ∧ 𝑣 ∈ N) ∧ 𝐴 = [〈𝑤, 𝑣〉] ~Q0 ) →
(𝐴
+Q0 0Q0) = 𝐴) |
28 | 1, 27 | syl 14 |
1
⊢ (𝐴 ∈
Q0 → (𝐴 +Q0
0Q0) = 𝐴) |