---

Step * of Lemma qabs-squared

∀[r:ℚ]. ((|r| * |r|) = (r * r) ∈ ℚ)
BY
{ xxx(Auto
      THEN ((Unfold `qabs` 0 THEN (CallByValueReduce 0 THENA Auto)) THEN Auto)
      THEN SplitOnConclITE
      THEN Auto
      THEN QNorm 0)xxx }

---

Latex:

---

Latex:
\mforall{}[r:\mBbbQ{}].  ((|r|  *  |r|)  =  (r  *  r))


By

---

Latex:
xxx(Auto
        THEN  ((Unfold  `qabs`  0  THEN  (CallByValueReduce  0  THENA  Auto))  THEN  Auto)
        THEN  SplitOnConclITE
        THEN  Auto
        THEN  QNorm  0)xxx

---

Home Index