---

Step * 1 1 2 1 of Lemma unique_mfact


1. g : IAbMonoid
2. Cancel(|g|;|g|;*)
3. ∀a,b:|g|.  Dec(a | b)
4. u : |g|
5. ¬(g-unit(u))
6. ∀b,c:|g|.  ((u | (b * c)) ⇒ ((u | b) ∨ (u | c)))
7. v : Prime(g) List
8. g-unit(u * (Π v))
⊢ False
BY
{ TACTIC:((FLemma `munit_of_op` [-1]) THEN Auto)⋅ }

---

Latex:

---

Latex:

1.  g  :  IAbMonoid
2.  Cancel(|g|;|g|;*)
3.  \mforall{}a,b:|g|.    Dec(a  |  b)
4.  u  :  |g|
5.  \mneg{}(g-unit(u))
6.  \mforall{}b,c:|g|.    ((u  |  (b  *  c))  {}\mRightarrow{}  ((u  |  b)  \mvee{}  (u  |  c)))
7.  v  :  Prime(g)  List
8.  g-unit(u  *  (\mPi{}  v))
\mvdash{}  False


By

---

Latex:
TACTIC:((FLemma  `munit\_of\_op`  [-1])  THEN  Auto)\mcdot{}

---

Home Index