Step * of Lemma itermAdd_functionality_wrt_ringeq

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


Latex:


Latex:
\mforall{}[r:Rng].  \mforall{}[a,b,c,d:int\_term()].    (a  (+)  c  \mequiv{}  b  (+)  d)  supposing  (a  \mequiv{}  b  and  c  \mequiv{}  d)


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
        THEN  RWO  "-1  -2"  0
        THEN  Auto)xxx




Home Index