---

Step * of Lemma simple-swap2_wf

∀[n:ℕ]. ∀[AType:array{i:l}(ℤ;n)]. ∀[i,j:ℕn].  (simple-swap2(array-model(AType);i;j) ∈ A-map Unit)
BY
{ (ProveWfLemma
   THEN RepUR ``A-map array-model M-map array-monad A-bind A-fetch M-return M-bind A-coerce`` 0
   THEN RepUR ``mk_monad A-fetch' A-assign let idx upd Arr`` 0
   THEN RepUR ``array`` 2
   THEN RepeatFor 4 (D (-3))
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[AType:array\{i:l\}(\mBbbZ{};n)].  \mforall{}[i,j:\mBbbN{}n].    (simple-swap2(array-model(AType);i;j)  \mmember{}  A-map  Unit)


By

---

Latex:
(ProveWfLemma
  THEN  RepUR  ``A-map  array-model  M-map  array-monad  A-bind  A-fetch  M-return  M-bind  A-coerce``  0
  THEN  RepUR  ``mk\_monad  A-fetch'  A-assign  let  idx  upd  Arr``  0
  THEN  RepUR  ``array``  2
  THEN  RepeatFor  4  (D  (-3))
  THEN  Reduce  0
  THEN  Auto)

---

Home Index