---

Step * 1 of Lemma self_divisor_mul


1. a : ℤ-o
2. b : ℤ
3. (a * b) | a
⊢ b ~ 1
BY
{ (Assert ⌜(a * b) ~ (a * 1)⌝ THENA RW IntNormC 0 THENA Auto) }

1
1. a : ℤ-o
2. b : ℤ
3. (a * b) | a
⊢ (a * b) ~ a

2
1. a : ℤ-o
2. b : ℤ
3. (a * b) | a
4. (a * b) ~ (a * 1)
⊢ b ~ 1

---

Latex:

---

Latex:

1.  a  :  \mBbbZ{}\msupminus{}\msupzero{}
2.  b  :  \mBbbZ{}
3.  (a  *  b)  |  a
\mvdash{}  b  \msim{}  1


By

---

Latex:
(Assert  \mkleeneopen{}(a  *  b)  \msim{}  (a  *  1)\mkleeneclose{}  THENA  RW  IntNormC  0  THENA  Auto)

---

Home Index