---

Step * 2 1 1 1 1 1 of Lemma closures-meet-sq


1. P : ℝ ⟶ ℙ
2. Q : ℝ ⟶ ℙ
3. a0 : {a:ℝ| P a} 
4. b0 : ℝ
5. Q b0
6. a0 ≤ b0
7. c : ℝ
8. r0 ≤ c
9. c < r1
10. s : ℕ ⟶ (a:{a:ℝ| P a}  × {b:ℝ| (Q b) ∧ (a ≤ b)} )
11. ∀n:ℕ
      (((fst(s[n])) ≤ (fst(s[n + 1])))
      ∧ ((snd(s[n + 1])) ≤ (snd(s[n])))
      ∧ (((snd(s[n + 1])) - fst(s[n + 1])) ≤ (((snd(s[n])) - fst(s[n])) * c)))
12. n : ℤ
13. (fst(s[0])) ≤ (fst(s[0 + 1]))
14. (snd(s[0 + 1])) ≤ (snd(s[0]))
15. ((snd(s[0 + 1])) - fst(s[0 + 1])) ≤ (((snd(s[0])) - fst(s[0])) * c)
⊢ (fst(s[0])) ≤ (snd(s[0]))
BY
{ (GenConclTerm ⌜s[0]⌝⋅ THEN Auto) }

1
1. P : ℝ ⟶ ℙ
2. Q : ℝ ⟶ ℙ
3. a0 : {a:ℝ| P a} 
4. b0 : ℝ
5. Q b0
6. a0 ≤ b0
7. c : ℝ
8. r0 ≤ c
9. c < r1
10. s : ℕ ⟶ (a:{a:ℝ| P a}  × {b:ℝ| (Q b) ∧ (a ≤ b)} )
11. ∀n:ℕ
      (((fst(s[n])) ≤ (fst(s[n + 1])))
      ∧ ((snd(s[n + 1])) ≤ (snd(s[n])))
      ∧ (((snd(s[n + 1])) - fst(s[n + 1])) ≤ (((snd(s[n])) - fst(s[n])) * c)))
12. n : ℤ
13. (fst(s[0])) ≤ (fst(s[0 + 1]))
14. (snd(s[0 + 1])) ≤ (snd(s[0]))
15. ((snd(s[0 + 1])) - fst(s[0 + 1])) ≤ (((snd(s[0])) - fst(s[0])) * c)
16. v : a:{a:ℝ| P a}  × {b:ℝ| (Q b) ∧ (a ≤ b)} 
17. s[0] = v ∈ (a:{a:ℝ| P a}  × {b:ℝ| (Q b) ∧ (a ≤ b)} )
⊢ (fst(v)) ≤ (snd(v))

---

Latex:

---

Latex:

1.  P  :  \mBbbR{}  {}\mrightarrow{}  \mBbbP{}
2.  Q  :  \mBbbR{}  {}\mrightarrow{}  \mBbbP{}
3.  a0  :  \{a:\mBbbR{}|  P  a\} 
4.  b0  :  \mBbbR{}
5.  Q  b0
6.  a0  \mleq{}  b0
7.  c  :  \mBbbR{}
8.  r0  \mleq{}  c
9.  c  <  r1
10.  s  :  \mBbbN{}  {}\mrightarrow{}  (a:\{a:\mBbbR{}|  P  a\}    \mtimes{}  \{b:\mBbbR{}|  (Q  b)  \mwedge{}  (a  \mleq{}  b)\}  )
11.  \mforall{}n:\mBbbN{}
            (((fst(s[n]))  \mleq{}  (fst(s[n  +  1])))
            \mwedge{}  ((snd(s[n  +  1]))  \mleq{}  (snd(s[n])))
            \mwedge{}  (((snd(s[n  +  1]))  -  fst(s[n  +  1]))  \mleq{}  (((snd(s[n]))  -  fst(s[n]))  *  c)))
12.  n  :  \mBbbZ{}
13.  (fst(s[0]))  \mleq{}  (fst(s[0  +  1]))
14.  (snd(s[0  +  1]))  \mleq{}  (snd(s[0]))
15.  ((snd(s[0  +  1]))  -  fst(s[0  +  1]))  \mleq{}  (((snd(s[0]))  -  fst(s[0]))  *  c)
\mvdash{}  (fst(s[0]))  \mleq{}  (snd(s[0]))


By

---

Latex:
(GenConclTerm  \mkleeneopen{}s[0]\mkleeneclose{}\mcdot{}  THEN  Auto)

---

Home Index