---

Step * 1 of Lemma bag-product-primes


1. b : bag(Prime)
⊢ 0 < Π(b)
BY
{ xxx(BLemma `int-bag-product-positive`
      THEN Auto
      THEN (BagToList 1 THENA Auto)
      THEN (RWO "bag-member-list" (-1) THENA Auto)
      THEN RepeatFor 2 (D -1)
      THEN HypSubst' (-1) 0
      THEN GenConclTerm ⌜b[i]⌝⋅
      THEN Auto
      THEN D -2
      THEN Auto)xxx }

---

Latex:

---

Latex:

1.  b  :  bag(Prime)
\mvdash{}  0  <  \mPi{}(b)


By

---

Latex:
xxx(BLemma  `int-bag-product-positive`
        THEN  Auto
        THEN  (BagToList  1  THENA  Auto)
        THEN  (RWO  "bag-member-list"  (-1)  THENA  Auto)
        THEN  RepeatFor  2  (D  -1)
        THEN  HypSubst'  (-1)  0
        THEN  GenConclTerm  \mkleeneopen{}b[i]\mkleeneclose{}\mcdot{}
        THEN  Auto
        THEN  D  -2
        THEN  Auto)xxx

---

Home Index