---

Step * of Lemma no_repeats-count-repeats1

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[L:T List].  no_repeats(T;map(λp.(fst(p));count-repeats(L,eq)))
BY
{ (RevInductionOnList
   THEN Auto
   THEN RepUR ``count-repeats`` 0
   THEN Try (((RWO "list_accum_append" 0 THENA Auto) THEN Fold `count-repeats` 0 THEN Reduce 0))
   THEN Auto) }

1
1. T : Type
2. eq : EqDecider(T)
3. ys : T List@i
4. y : T@i
5. no_repeats(T;map(λp.(fst(p));count-repeats(ys,eq)))@i
⊢ no_repeats(T;map(λp.(fst(p));update-alist(eq;count-repeats(ys,eq);y;1;n.n + 1)))

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[L:T  List].    no\_repeats(T;map(\mlambda{}p.(fst(p));count-repeats(L,eq)))


By

---

Latex:
(RevInductionOnList
  THEN  Auto
  THEN  RepUR  ``count-repeats``  0
  THEN  Try  (((RWO  "list\_accum\_append"  0  THENA  Auto)  THEN  Fold  `count-repeats`  0  THEN  Reduce  0))
  THEN  Auto)

---

Home Index