---

Step * of Lemma itermMinus_functionality_wrt_ringeq

∀[r:Rng]. ∀[a,b:int_term()].  "-"a ≡ "-"b supposing a ≡ b
BY
{ xxx(Auto
      THEN RepeatFor 2 (ParallelLast)
      THEN (With ⌜f⌝ (D 6)⋅ THENA Auto)
      THEN (RepUR ``ring_term_value`` 0 THEN Fold `ring_term_value` 0)
      THEN Auto)xxx }

---

Latex:

---

Latex:
\mforall{}[r:Rng].  \mforall{}[a,b:int\_term()].    "-"a  \mequiv{}  "-"b  supposing  a  \mequiv{}  b


By

---

Latex:
xxx(Auto
        THEN  RepeatFor  2  (ParallelLast)
        THEN  (With  \mkleeneopen{}f\mkleeneclose{}  (D  6)\mcdot{}  THENA  Auto)
        THEN  (RepUR  ``ring\_term\_value``  0  THEN  Fold  `ring\_term\_value`  0)
        THEN  Auto)xxx

---

Home Index