---

Step * of Lemma insert_wf

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[a:T]. ∀[L:T List].  (insert(a;L) ∈ T List)
BY
{ (InductionOnList
   THEN Unfold `insert` 0
   THEN (RWO "eval_list_sq" 0 THENA Auto)
   THEN Reduce 0
   THEN Try (Fold `cons` 0)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[a:T].  \mforall{}[L:T  List].    (insert(a;L)  \mmember{}  T  List)


By

---

Latex:
(InductionOnList
  THEN  Unfold  `insert`  0
  THEN  (RWO  "eval\_list\_sq"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Try  (Fold  `cons`  0)
  THEN  Auto)

---

Home Index