---

Step * 6 of Lemma qeq-functionality


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

1
1. a8 : ℤ
2. a9 : ℤ-o
3. a5 : ℤ
4. a6 : ℤ-o
5. a2 : ℤ
6. a3 : ℤ-o
7. (a8 * a6) = (a5 * a9) ∈ ℤ
8. (a8 * a3) = (a2 * a9) ∈ ℤ
⊢ (a5 * a3) = (a2 * a6) ∈ ℤ

2
1. a8 : ℤ
2. a9 : ℤ-o
3. a5 : ℤ
4. a6 : ℤ-o
5. a2 : ℤ
6. a3 : ℤ-o
7. (a8 * a6) = (a5 * a9) ∈ ℤ
8. (a5 * a3) = (a2 * a6) ∈ ℤ
⊢ (a8 * a3) = (a2 * a9) ∈ ℤ

---

Latex:

---

Latex:

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


By

---

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

---

Home Index