---

Step * of Lemma member-bag-rep

∀[T:Type]. ∀[n:ℕ]. ∀[x,y:T].  y = x ∈ T supposing y ↓∈ bag-rep(n;x)
BY
{ (RepeatFor 2 ((D 0 THENA Auto))
   THEN NatInd (-1)
   THEN Unfold `bag-rep` 0
   THEN RWO "primrec-unroll" 0
   THEN Reduce 0
   THEN Auto
   THEN Repeat (BagMemberD (-1))
   THEN RepeatFor 2 (D (-1))
   THEN Auto
   THEN Fold `bag-rep` (-1)⋅
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[n:\mBbbN{}].  \mforall{}[x,y:T].    y  =  x  supposing  y  \mdownarrow{}\mmember{}  bag-rep(n;x)


By

---

Latex:
(RepeatFor  2  ((D  0  THENA  Auto))
  THEN  NatInd  (-1)
  THEN  Unfold  `bag-rep`  0
  THEN  RWO  "primrec-unroll"  0
  THEN  Reduce  0
  THEN  Auto
  THEN  Repeat  (BagMemberD  (-1))
  THEN  RepeatFor  2  (D  (-1))
  THEN  Auto
  THEN  Fold  `bag-rep`  (-1)\mcdot{}
  THEN  Auto)

---

Home Index