---

Step * 1 1 1 of Lemma closures-meet'

.....assertion..... 
1. P : Set(ℝ)
2. Q : Set(ℝ)
3. a0 : ℝ
4. b0 : ℝ
5. a0 ∈ P
6. b0 ∈ Q
7. a0 < b0
8. c : ℝ
9. r0 ≤ c
10. c < r1
11. ∀a,b:ℝ.
      (((a ∈ P) ∧ (b ∈ Q) ∧ (a < b))
      ⇒ (∃a',b':ℝ. ((a' ∈ P) ∧ (b' ∈ Q) ∧ (a ≤ a') ∧ (a' < b') ∧ (b' ≤ b) ∧ ((b' - a') ≤ ((b - a) * c)))))
⊢ ∀abp:a:ℝ × b:ℝ × ((a ∈ P) ∧ (b ∈ Q) ∧ (a < b))
    ∃abp':a:ℝ × b:ℝ × ((a ∈ P) ∧ (b ∈ Q) ∧ (a < b))
     let a,b,p = abp in 
     let a',b',p' = abp' in 
     (a ≤ a') ∧ (a' < b') ∧ (b' ≤ b) ∧ ((b' - a') ≤ ((b - a) * c))
BY
{ (Auto THEN RepeatFor 2 (D -1) THEN ((InstHyp [⌜a⌝; ⌜b⌝] (-4))⋅ THENA Auto) THEN ExRepD) }

1
1. P : Set(ℝ)
2. Q : Set(ℝ)
3. a0 : ℝ
4. b0 : ℝ
5. a0 ∈ P
6. b0 ∈ Q
7. a0 < b0
8. c : ℝ
9. r0 ≤ c
10. c < r1
11. ∀a,b:ℝ.
      (((a ∈ P) ∧ (b ∈ Q) ∧ (a < b))
      ⇒ (∃a',b':ℝ. ((a' ∈ P) ∧ (b' ∈ Q) ∧ (a ≤ a') ∧ (a' < b') ∧ (b' ≤ b) ∧ ((b' - a') ≤ ((b - a) * c)))))
12. a : ℝ
13. b : ℝ
14. a3 : a ∈ P
15. a5 : b ∈ Q
16. a6 : a < b
17. a' : ℝ
18. b' : ℝ
19. a' ∈ P
20. b' ∈ Q
21. a ≤ a'
22. a' < b'
23. b' ≤ b
24. (b' - a') ≤ ((b - a) * c)
⊢ ∃abp':a:ℝ × b:ℝ × ((a ∈ P) ∧ (b ∈ Q) ∧ (a < b)). let a,b,p = <a, b, a3, a5, a6> in let a',b',p' = abp' in (a ≤ a') ∧ (\000Ca' < b') ∧ (b' ≤ b) ∧ ((b' - a') ≤ ((b - a) * c))

---

Latex:

---

Latex:
.....assertion..... 
1.  P  :  Set(\mBbbR{})
2.  Q  :  Set(\mBbbR{})
3.  a0  :  \mBbbR{}
4.  b0  :  \mBbbR{}
5.  a0  \mmember{}  P
6.  b0  \mmember{}  Q
7.  a0  <  b0
8.  c  :  \mBbbR{}
9.  r0  \mleq{}  c
10.  c  <  r1
11.  \mforall{}a,b:\mBbbR{}.
            (((a  \mmember{}  P)  \mwedge{}  (b  \mmember{}  Q)  \mwedge{}  (a  <  b))
            {}\mRightarrow{}  (\mexists{}a',b':\mBbbR{}
                      ((a'  \mmember{}  P)  \mwedge{}  (b'  \mmember{}  Q)  \mwedge{}  (a  \mleq{}  a')  \mwedge{}  (a'  <  b')  \mwedge{}  (b'  \mleq{}  b)  \mwedge{}  ((b'  -  a')  \mleq{}  ((b  -  a)  *  c)))))
\mvdash{}  \mforall{}abp:a:\mBbbR{}  \mtimes{}  b:\mBbbR{}  \mtimes{}  ((a  \mmember{}  P)  \mwedge{}  (b  \mmember{}  Q)  \mwedge{}  (a  <  b))
        \mexists{}abp':a:\mBbbR{}  \mtimes{}  b:\mBbbR{}  \mtimes{}  ((a  \mmember{}  P)  \mwedge{}  (b  \mmember{}  Q)  \mwedge{}  (a  <  b))
          let  a,b,p  =  abp  in 
          let  a',b',p'  =  abp'  in 
          (a  \mleq{}  a')  \mwedge{}  (a'  <  b')  \mwedge{}  (b'  \mleq{}  b)  \mwedge{}  ((b'  -  a')  \mleq{}  ((b  -  a)  *  c))


By

---

Latex:
(Auto  THEN  RepeatFor  2  (D  -1)  THEN  ((InstHyp  [\mkleeneopen{}a\mkleeneclose{};  \mkleeneopen{}b\mkleeneclose{}]  (-4))\mcdot{}  THENA  Auto)  THEN  ExRepD)

---

Home Index