---

Step * 2 of Lemma qmul-positive


1. a : ℚ
2. b : ℚ
3. 0 < -(a) ∧ 0 < -(b)
⊢ 0 < a * b
BY
{ (xxx((RWO "assert-qpositive<" 0 THENM RWO "assert-qpositive<" (-1)) THENA Auto)xxx
   THEN (xxxSubst ⌜(a * b) = (-(a) * -(b)) ∈ ℚ⌝ 0⋅xxx THENA Auto)
   THEN Try ((BLemma `qmul_positive` THEN Auto)))⋅ }

---

Latex:

---

Latex:

1.  a  :  \mBbbQ{}
2.  b  :  \mBbbQ{}
3.  0  <  -(a)  \mwedge{}  0  <  -(b)
\mvdash{}  0  <  a  *  b


By

---

Latex:
(xxx((RWO  "assert-qpositive<"  0  THENM  RWO  "assert-qpositive<"  (-1))  THENA  Auto)xxx
  THEN  (xxxSubst  \mkleeneopen{}(a  *  b)  =  (-(a)  *  -(b))\mkleeneclose{}  0\mcdot{}xxx  THENA  Auto)
  THEN  Try  ((BLemma  `qmul\_positive`  THEN  Auto)))\mcdot{}

---

Home Index