---

Step * of Lemma mrec-label-cases1-ext

∀s:MutualRectypeSpec. ∀n:Atom. ∀lbl:{lbl:Atom| 0 < ||mrec-spec(s;lbl;n)||} .
  (lbl ∈ eager-map(λp.(fst(p));outl(apply-alist(AtomDeq;s;n))))
BY
{ Extract of Obid: mrec-label-cases1
  not unfolding  map eager-map list_ind select length pi1 pi2 bottom eq_atom outl outr
  finishing with (Unfold `mrec-member` 0 THEN Auto)
  normalizes to:
  
  λs,n,lbl. mrec-member(s;n;lbl) }

---

Latex:

---

Latex:
\mforall{}s:MutualRectypeSpec.  \mforall{}n:Atom.  \mforall{}lbl:\{lbl:Atom|  0  <  ||mrec-spec(s;lbl;n)||\}  .
    (lbl  \mmember{}  eager-map(\mlambda{}p.(fst(p));outl(apply-alist(AtomDeq;s;n))))


By

---

Latex:
Extract  of  Obid:  mrec-label-cases1
not  unfolding    map  eager-map  list\_ind  select  length  pi1  pi2  bottom  eq\_atom  outl  outr
finishing  with  (Unfold  `mrec-member`  0  THEN  Auto)
normalizes  to:

\mlambda{}s,n,lbl.  mrec-member(s;n;lbl)

---

Home Index