---

Step * of Lemma mrec-label-cases2

∀s:MutualRectypeSpec. ∀n:Atom. ∀lbl:{lbl:Atom| 0 < ||mrec-spec(s;lbl;n)||} .  (n ∈ eager-map(λp.(fst(p));s))
BY
{ (Auto
   THEN Unfold `mrec_spec` 1
   THEN DVar `lbl'
   THEN (Unhide THENA Auto)
   THEN MoveToConcl (-1)
   THEN RepUR ``mrec-spec`` 0
   THEN (GenConclTerm ⌜apply-alist(AtomDeq;s;n)⌝⋅ THENA Auto)
   THEN D -2
   THEN Reduce 0
   THEN Auto
   THEN InstLemma `isl-apply-alist` [⌜parm{i'}⌝;⌜(Atom × ((Atom + Atom + Type) List)) List⌝;⌜Atom⌝;⌜AtomDeq⌝;⌜n⌝;⌜s⌝]⋅
   THEN Auto
   THEN D -3
   THEN Auto) }

---

Latex:

---

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


By

---

Latex:
(Auto
  THEN  Unfold  `mrec\_spec`  1
  THEN  DVar  `lbl'
  THEN  (Unhide  THENA  Auto)
  THEN  MoveToConcl  (-1)
  THEN  RepUR  ``mrec-spec``  0
  THEN  (GenConclTerm  \mkleeneopen{}apply-alist(AtomDeq;s;n)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  D  -2
  THEN  Reduce  0
  THEN  Auto
  THEN  InstLemma  `isl-apply-alist`  [\mkleeneopen{}parm\{i'\}\mkleeneclose{};\mkleeneopen{}(Atom  \mtimes{}  ((Atom  +  Atom  +  Type)  List))  List\mkleeneclose{};\mkleeneopen{}Atom\mkleeneclose{};
  \mkleeneopen{}AtomDeq\mkleeneclose{};\mkleeneopen{}n\mkleeneclose{};\mkleeneopen{}s\mkleeneclose{}]\mcdot{}
  THEN  Auto
  THEN  D  -3
  THEN  Auto)

---

Home Index