---

Step * of Lemma insert-cases2

∀[T:Type]. ∀eq:EqDecider(T). ∀a:T. ∀L:T List.  (((a ∈ L) ∧ (insert(a;L) ~ L)) ∨ ((¬(a ∈ L)) ∧ (insert(a;L) ~ [a / L])))
BY
{ (UnivCD THENA Auto)
THEN (Unfold `insert` 0 THEN (RWO "eval_list_sq" 0 THENA Auto) THEN (CallByValueReduce 0 THENA Auto))
THEN (SplitOnConclITE THEN Auto) }

---

Latex:

---

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


By

---

Latex:
(UnivCD  THENA  Auto)
THEN  (Unfold  `insert`  0
            THEN  (RWO  "eval\_list\_sq"  0  THENA  Auto)
            THEN  (CallByValueReduce  0  THENA  Auto))
THEN  (SplitOnConclITE  THEN  Auto)

---

Home Index