---

Step * 2 of Lemma qeq-functionality


1. a5 : ℤ
2. a3 : ℤ
3. a4 : ℤ-o
4. a1 : ℤ
5. (a5 * a4 =z a3) = tt
⊢ (a5 =z a1) = (a3 =z a1 * a4)
BY
{ (((RWO "eqtt_to_assert" (-1) THENM RW assert_pushdownC (-1)) THENA Auto)
   THEN RevHypSubst' (-1) 0
   THEN Thin (-1)
   THEN (BLemma `iff_imp_equal_bool`⋅ THENA Auto)
   THEN (RW assert_pushdownC 0⋅ THEN Auto)
   THEN (RWO "mul_com" (-1) THENA Auto)
   THEN FLemma `mul_cancel_in_eq` [-1]
   THEN Auto) }

---

Latex:

---

Latex:

1.  a5  :  \mBbbZ{}
2.  a3  :  \mBbbZ{}
3.  a4  :  \mBbbZ{}\msupminus{}\msupzero{}
4.  a1  :  \mBbbZ{}
5.  (a5  *  a4  =\msubz{}  a3)  =  tt
\mvdash{}  (a5  =\msubz{}  a1)  =  (a3  =\msubz{}  a1  *  a4)


By

---

Latex:
(((RWO  "eqtt\_to\_assert"  (-1)  THENM  RW  assert\_pushdownC  (-1))  THENA  Auto)
  THEN  RevHypSubst'  (-1)  0
  THEN  Thin  (-1)
  THEN  (BLemma  `iff\_imp\_equal\_bool`\mcdot{}  THENA  Auto)
  THEN  (RW  assert\_pushdownC  0\mcdot{}  THEN  Auto)
  THEN  (RWO  "mul\_com"  (-1)  THENA  Auto)
  THEN  FLemma  `mul\_cancel\_in\_eq`  [-1]
  THEN  Auto)

---

Home Index