---

Step * 4 of Lemma qeq-functionality


1. a6 : ℤ
2. a7 : ℤ-o
3. a4 : ℤ
4. a2 : ℤ
5. a3 : ℤ-o
6. (a6 =z a4 * a7) = tt
⊢ (a6 * a3 =z a2 * a7) = (a4 * a3 =z a2)
BY
{ (((RWO "eqtt_to_assert" (-1) THENM RW assert_pushdownC (-1)) THENA Auto)
   THEN HypSubst' (-1) 0
   THEN Thin (-1)
   THEN (BLemma `iff_imp_equal_bool`⋅ THENA Auto)
   THEN RW assert_pushdownC 0⋅
   THEN Auto) }

1
1. a6 : ℤ
2. a7 : ℤ-o
3. a4 : ℤ
4. a2 : ℤ
5. a3 : ℤ-o
6. ((a4 * a7) * a3) = (a2 * a7) ∈ ℤ
⊢ (a4 * a3) = a2 ∈ ℤ

2
1. a6 : ℤ
2. a7 : ℤ-o
3. a4 : ℤ
4. a2 : ℤ
5. a3 : ℤ-o
6. (a4 * a3) = a2 ∈ ℤ
⊢ ((a4 * a7) * a3) = (a2 * a7) ∈ ℤ

---

Latex:

---

Latex:

1.  a6  :  \mBbbZ{}
2.  a7  :  \mBbbZ{}\msupminus{}\msupzero{}
3.  a4  :  \mBbbZ{}
4.  a2  :  \mBbbZ{}
5.  a3  :  \mBbbZ{}\msupminus{}\msupzero{}
6.  (a6  =\msubz{}  a4  *  a7)  =  tt
\mvdash{}  (a6  *  a3  =\msubz{}  a2  *  a7)  =  (a4  *  a3  =\msubz{}  a2)


By

---

Latex:
(((RWO  "eqtt\_to\_assert"  (-1)  THENM  RW  assert\_pushdownC  (-1))  THENA  Auto)
  THEN  HypSubst'  (-1)  0
  THEN  Thin  (-1)
  THEN  (BLemma  `iff\_imp\_equal\_bool`\mcdot{}  THENA  Auto)
  THEN  RW  assert\_pushdownC  0\mcdot{}
  THEN  Auto)

---

Home Index