---

Step * 1 1 2 1 1 of Lemma extensional-discrete-real-fun-is-constant


1. a : ℝ
2. b : ℝ
3. f : {x:ℝ| (a ≤ x) ∧ (x ≤ b)}  ⟶ ℤ
4. x : ℝ
5. a ≤ x
6. x ≤ b
7. y : ℝ
8. a ≤ y
9. y ≤ b
10. d : ℝ
11. r0 < d
12. ∀x,y:{x:ℝ| (a ≤ x) ∧ (x ≤ b)} .  ((|x - y| ≤ d) ⇒ ((f x) = (f y) ∈ ℤ))
13. p : partition([a, b])
14. partition-mesh([a, b];p) ≤ d
⊢ (f x) = (f y) ∈ ℤ
BY
{ (Assert full-partition([a, b];p) ∈ {x:ℝ| (a ≤ x) ∧ (x ≤ b)}  List BY
         (BLemma `list_set_type`
          THEN Auto
          THEN (InstLemma `full-partition-point-member` [⌜[a, b]⌝;⌜p⌝]⋅ THENA Auto)
          THEN Reduce -1
          THEN Auto)) }

1
1. a : ℝ
2. b : ℝ
3. f : {x:ℝ| (a ≤ x) ∧ (x ≤ b)}  ⟶ ℤ
4. x : ℝ
5. a ≤ x
6. x ≤ b
7. y : ℝ
8. a ≤ y
9. y ≤ b
10. d : ℝ
11. r0 < d
12. ∀x,y:{x:ℝ| (a ≤ x) ∧ (x ≤ b)} .  ((|x - y| ≤ d) ⇒ ((f x) = (f y) ∈ ℤ))
13. p : partition([a, b])
14. partition-mesh([a, b];p) ≤ d
15. full-partition([a, b];p) ∈ {x:ℝ| (a ≤ x) ∧ (x ≤ b)}  List
⊢ (f x) = (f y) ∈ ℤ

---

Latex:

---

Latex:

1.  a  :  \mBbbR{}
2.  b  :  \mBbbR{}
3.  f  :  \{x:\mBbbR{}|  (a  \mleq{}  x)  \mwedge{}  (x  \mleq{}  b)\}    {}\mrightarrow{}  \mBbbZ{}
4.  x  :  \mBbbR{}
5.  a  \mleq{}  x
6.  x  \mleq{}  b
7.  y  :  \mBbbR{}
8.  a  \mleq{}  y
9.  y  \mleq{}  b
10.  d  :  \mBbbR{}
11.  r0  <  d
12.  \mforall{}x,y:\{x:\mBbbR{}|  (a  \mleq{}  x)  \mwedge{}  (x  \mleq{}  b)\}  .    ((|x  -  y|  \mleq{}  d)  {}\mRightarrow{}  ((f  x)  =  (f  y)))
13.  p  :  partition([a,  b])
14.  partition-mesh([a,  b];p)  \mleq{}  d
\mvdash{}  (f  x)  =  (f  y)


By

---

Latex:
(Assert  full-partition([a,  b];p)  \mmember{}  \{x:\mBbbR{}|  (a  \mleq{}  x)  \mwedge{}  (x  \mleq{}  b)\}    List  BY
              (BLemma  `list\_set\_type`
                THEN  Auto
                THEN  (InstLemma  `full-partition-point-member`  [\mkleeneopen{}[a,  b]\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]\mcdot{}  THENA  Auto)
                THEN  Reduce  -1
                THEN  Auto))

---

Home Index