Step * of Lemma real-closed-interval-lattice_wf

[a,b:ℝ].  real-closed-interval-lattice(a;b) ∈ GeneralBoundedDistributiveLattice supposing a ≤ b
BY
(ProveWfLemma THEN Try ((MemTypeCD THEN EAuto 1)) THEN Try ((BLemma `req_inversion` THEN Complete (Auto)))) }

1
1. : ℝ
2. : ℝ
3. a ≤ b
⊢ EquivRel({r:ℝ(a ≤ r) ∧ (r ≤ b)} ;x,y.x y)

2
1. : ℝ
2. : ℝ
3. a ≤ b
4. EquivRel({r:ℝ(a ≤ r) ∧ (r ≤ b)} ;x,y.x y)
5. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmin(a1;b) rmin(b;a1))
6. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmax(a1;b) rmax(b;a1))
7. ∀[a1,b1,c:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmin(a1;rmin(b1;c)) rmin(rmin(a1;b1);c))
8. ∀[a1,b1,c:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmax(a1;rmax(b1;c)) rmax(rmax(a1;b1);c))
9. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmax(a1;rmin(a1;b)) a1)
10. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmin(a1;rmax(a1;b)) a1)
11. a1 {r:ℝ(a ≤ r) ∧ (r ≤ b)} 
⊢ rmin(a1;b) a1

3
1. : ℝ
2. : ℝ
3. a ≤ b
4. EquivRel({r:ℝ(a ≤ r) ∧ (r ≤ b)} ;x,y.x y)
5. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmin(a1;b) rmin(b;a1))
6. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmax(a1;b) rmax(b;a1))
7. ∀[a1,b1,c:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmin(a1;rmin(b1;c)) rmin(rmin(a1;b1);c))
8. ∀[a1,b1,c:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmax(a1;rmax(b1;c)) rmax(rmax(a1;b1);c))
9. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmax(a1;rmin(a1;b)) a1)
10. ∀[a1,b:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ].  (rmin(a1;rmax(a1;b)) a1)
11. ∀[a:{r:ℝ(a ≤ r) ∧ (r ≤ b)} ]. (rmin(a;b) a)
12. a1 {r:ℝ(a ≤ r) ∧ (r ≤ b)} 
⊢ rmax(a1;a) a1


Latex:


Latex:
\mforall{}[a,b:\mBbbR{}].    real-closed-interval-lattice(a;b)  \mmember{}  GeneralBoundedDistributiveLattice  supposing  a  \mleq{}  b


By


Latex:
(ProveWfLemma
  THEN  Try  ((MemTypeCD  THEN  EAuto  1))
  THEN  Try  ((BLemma  `req\_inversion`  THEN  Complete  (Auto))))




Home Index