ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  pitonnlem2 GIF version

Theorem pitonnlem2 8178
Description: Lemma for pitonn 8179. Two ways to add one to a number. (Contributed by Jim Kingdon, 24-Apr-2020.)
Assertion
Ref Expression
pitonnlem2 (𝐾N → (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + 1) = ⟨[⟨(⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
Distinct variable group:   𝐾,𝑙,𝑢

Proof of Theorem pitonnlem2
StepHypRef Expression
1 df-1 8151 . . . 4 1 = ⟨1R, 0R
21oveq2i 6069 . . 3 (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + 1) = (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + ⟨1R, 0R⟩)
3 nnprlu 7884 . . . . . . . 8 (𝐾N → ⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ ∈ P)
4 1pr 7885 . . . . . . . 8 1PP
5 addclpr 7868 . . . . . . . 8 ((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ ∈ P ∧ 1PP) → (⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P)
63, 4, 5sylancl 413 . . . . . . 7 (𝐾N → (⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P)
7 opelxpi 4786 . . . . . . 7 (((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P ∧ 1PP) → ⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩ ∈ (P × P))
86, 4, 7sylancl 413 . . . . . 6 (𝐾N → ⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩ ∈ (P × P))
9 enrex 8068 . . . . . . 7 ~R ∈ V
109ecelqsi 6836 . . . . . 6 (⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩ ∈ (P × P) → [⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R ∈ ((P × P) / ~R ))
118, 10syl 14 . . . . 5 (𝐾N → [⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R ∈ ((P × P) / ~R ))
12 df-nr 8058 . . . . 5 R = ((P × P) / ~R )
1311, 12eleqtrrdi 2328 . . . 4 (𝐾N → [⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~RR)
14 1sr 8082 . . . 4 1RR
15 addresr 8168 . . . 4 (([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~RR ∧ 1RR) → (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + ⟨1R, 0R⟩) = ⟨([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R), 0R⟩)
1613, 14, 15sylancl 413 . . 3 (𝐾N → (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + ⟨1R, 0R⟩) = ⟨([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R), 0R⟩)
172, 16eqtrid 2279 . 2 (𝐾N → (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + 1) = ⟨([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R), 0R⟩)
18 pitonnlem1p1 8177 . . . . 5 ((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P → [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P 1P), 1P⟩] ~R )
196, 18syl 14 . . . 4 (𝐾N → [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P 1P), 1P⟩] ~R )
20 df-1r 8063 . . . . . 6 1R = [⟨(1P +P 1P), 1P⟩] ~R
2120oveq2i 6069 . . . . 5 ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R) = ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R [⟨(1P +P 1P), 1P⟩] ~R )
22 addclpr 7868 . . . . . . . 8 ((1PP ∧ 1PP) → (1P +P 1P) ∈ P)
234, 4, 22mp2an 426 . . . . . . 7 (1P +P 1P) ∈ P
24 addsrpr 8076 . . . . . . . 8 ((((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P ∧ 1PP) ∧ ((1P +P 1P) ∈ P ∧ 1PP)) → ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R [⟨(1P +P 1P), 1P⟩] ~R ) = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R )
254, 24mpanl2 435 . . . . . . 7 (((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P ∧ ((1P +P 1P) ∈ P ∧ 1PP)) → ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R [⟨(1P +P 1P), 1P⟩] ~R ) = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R )
2623, 4, 25mpanr12 439 . . . . . 6 ((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) ∈ P → ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R [⟨(1P +P 1P), 1P⟩] ~R ) = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R )
276, 26syl 14 . . . . 5 (𝐾N → ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R [⟨(1P +P 1P), 1P⟩] ~R ) = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R )
2821, 27eqtrid 2279 . . . 4 (𝐾N → ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R) = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P (1P +P 1P)), (1P +P 1P)⟩] ~R )
29 addpinq1 7795 . . . . . . . . . . 11 (𝐾N → [⟨(𝐾 +N 1o), 1o⟩] ~Q = ([⟨𝐾, 1o⟩] ~Q +Q 1Q))
3029breq2d 4126 . . . . . . . . . 10 (𝐾N → (𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q𝑙 <Q ([⟨𝐾, 1o⟩] ~Q +Q 1Q)))
3130abbidv 2354 . . . . . . . . 9 (𝐾N → {𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q } = {𝑙𝑙 <Q ([⟨𝐾, 1o⟩] ~Q +Q 1Q)})
3229breq1d 4124 . . . . . . . . . 10 (𝐾N → ([⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢 ↔ ([⟨𝐾, 1o⟩] ~Q +Q 1Q) <Q 𝑢))
3332abbidv 2354 . . . . . . . . 9 (𝐾N → {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢} = {𝑢 ∣ ([⟨𝐾, 1o⟩] ~Q +Q 1Q) <Q 𝑢})
3431, 33opeq12d 3896 . . . . . . . 8 (𝐾N → ⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ = ⟨{𝑙𝑙 <Q ([⟨𝐾, 1o⟩] ~Q +Q 1Q)}, {𝑢 ∣ ([⟨𝐾, 1o⟩] ~Q +Q 1Q) <Q 𝑢}⟩)
35 nnnq 7753 . . . . . . . . 9 (𝐾N → [⟨𝐾, 1o⟩] ~QQ)
36 addnqpr1 7893 . . . . . . . . 9 ([⟨𝐾, 1o⟩] ~QQ → ⟨{𝑙𝑙 <Q ([⟨𝐾, 1o⟩] ~Q +Q 1Q)}, {𝑢 ∣ ([⟨𝐾, 1o⟩] ~Q +Q 1Q) <Q 𝑢}⟩ = (⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P))
3735, 36syl 14 . . . . . . . 8 (𝐾N → ⟨{𝑙𝑙 <Q ([⟨𝐾, 1o⟩] ~Q +Q 1Q)}, {𝑢 ∣ ([⟨𝐾, 1o⟩] ~Q +Q 1Q) <Q 𝑢}⟩ = (⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P))
3834, 37eqtrd 2267 . . . . . . 7 (𝐾N → ⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ = (⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P))
3938oveq1d 6073 . . . . . 6 (𝐾N → (⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) = ((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P 1P))
4039opeq1d 3894 . . . . 5 (𝐾N → ⟨(⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩ = ⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P 1P), 1P⟩)
4140eceq1d 6816 . . . 4 (𝐾N → [⟨(⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R = [⟨((⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P) +P 1P), 1P⟩] ~R )
4219, 28, 413eqtr4d 2277 . . 3 (𝐾N → ([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R) = [⟨(⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R )
4342opeq1d 3894 . 2 (𝐾N → ⟨([⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R +R 1R), 0R⟩ = ⟨[⟨(⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
4417, 43eqtrd 2267 1 (𝐾N → (⟨[⟨(⟨{𝑙𝑙 <Q [⟨𝐾, 1o⟩] ~Q }, {𝑢 ∣ [⟨𝐾, 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ + 1) = ⟨[⟨(⟨{𝑙𝑙 <Q [⟨(𝐾 +N 1o), 1o⟩] ~Q }, {𝑢 ∣ [⟨(𝐾 +N 1o), 1o⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104   = wceq 1398  wcel 2205  {cab 2220  cop 3697   class class class wbr 4114   × cxp 4752  (class class class)co 6058  1oc1o 6653  [cec 6778   / cqs 6779  Ncnpi 7603   +N cpli 7604   ~Q ceq 7610  Qcnq 7611  1Qc1q 7612   +Q cplq 7613   <Q cltq 7616  Pcnp 7622  1Pc1p 7623   +P cpp 7624   ~R cer 7627  Rcnr 7628  0Rc0r 7629  1Rc1r 7630   +R cplr 7632  1c1 8144   + caddc 8146
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 4230  ax-sep 4233  ax-nul 4241  ax-pow 4292  ax-pr 4327  ax-un 4559  ax-setind 4664  ax-iinf 4715
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  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 3046  df-csb 3142  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-nul 3513  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-int 3955  df-iun 3998  df-br 4115  df-opab 4177  df-mpt 4178  df-tr 4214  df-eprel 4415  df-id 4419  df-po 4422  df-iso 4423  df-iord 4492  df-on 4494  df-suc 4497  df-iom 4718  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-ima 4767  df-iota 5317  df-fun 5359  df-fn 5360  df-f 5361  df-f1 5362  df-fo 5363  df-f1o 5364  df-fv 5365  df-ov 6061  df-oprab 6062  df-mpo 6063  df-1st 6347  df-2nd 6348  df-recs 6549  df-irdg 6614  df-1o 6660  df-2o 6661  df-oadd 6664  df-omul 6665  df-er 6780  df-ec 6782  df-qs 6786  df-ni 7635  df-pli 7636  df-mi 7637  df-lti 7638  df-plpq 7675  df-mpq 7676  df-enq 7678  df-nqqs 7679  df-plqqs 7680  df-mqqs 7681  df-1nqqs 7682  df-rq 7683  df-ltnqqs 7684  df-enq0 7755  df-nq0 7756  df-0nq0 7757  df-plq0 7758  df-mq0 7759  df-inp 7797  df-i1p 7798  df-iplp 7799  df-enr 8057  df-nr 8058  df-plr 8059  df-0r 8062  df-1r 8063  df-c 8149  df-1 8151  df-add 8154
This theorem is referenced by:  pitonn  8179  nntopi  8225
  Copyright terms: Public domain W3C validator