---

Step * 2 1 2 of Lemma prime-factors

.....set predicate..... 
1. n : {2...}
2. factorit(n;2;[];[])
= factorit(n;2;[];[])
∈ {L:{p:ℕ| prime(p)}  List| reduce(λp,q. (p * q);1;L) = (n * reduce(λp,q. (p * q);1;[])) ∈ ℤ} 
3. x : {p:ℕ| prime(p)}  List
4. reduce(λp,q. (p * q);1;x) = (n * 1) ∈ ℤ
⊢ n = Π(x)  ∈ ℤ
BY
{ xxx(Fold `mul-list` (-1) THEN Auto')xxx }

---

Latex:

---

Latex:
.....set  predicate..... 
1.  n  :  \{2...\}
2.  factorit(n;2;[];[])  =  factorit(n;2;[];[])
3.  x  :  \{p:\mBbbN{}|  prime(p)\}    List
4.  reduce(\mlambda{}p,q.  (p  *  q);1;x)  =  (n  *  1)
\mvdash{}  n  =  \mPi{}(x) 


By

---

Latex:
xxx(Fold  `mul-list`  (-1)  THEN  Auto')xxx

---

Home Index