---

Step * of Lemma implies-mrec-lt

∀[L:MutualRectypeSpec]. ∀[x:mobj(L)].  ∀y:mobj(L). ((prec_sub(Atom;lbl,p.mrec-spec(L;lbl;p)) x y) ⇒ x < y)
BY
{ ((D 0 THENA Auto)
   THEN (InstLemma `mobj-ext` [⌜L⌝]⋅ THENA Auto)
   THEN D -1
   THEN All (RepUR ``mrec mrec-lt prec_sub+``)
   THEN Auto) }

1
1. [L] : MutualRectypeSpec
2. mobj(L) ⊆r (i:Atom × prec(lbl,p.mrec-spec(L;lbl;p);i))
3. (i:Atom × prec(lbl,p.mrec-spec(L;lbl;p);i)) ⊆r mobj(L)
4. [x] : mobj(L)
5. y : mobj(L)
6. prec_sub(Atom;lbl,p.mrec-spec(L;lbl;p)) x y
⊢ prec_sub(Atom;lbl,p.mrec-spec(L;lbl;p))+ x y

---

Latex:

---

Latex:
\mforall{}[L:MutualRectypeSpec].  \mforall{}[x:mobj(L)].
    \mforall{}y:mobj(L).  ((prec\_sub(Atom;lbl,p.mrec-spec(L;lbl;p))  x  y)  {}\mRightarrow{}  x  <  y)


By

---

Latex:
((D  0  THENA  Auto)
  THEN  (InstLemma  `mobj-ext`  [\mkleeneopen{}L\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  -1
  THEN  All  (RepUR  ``mrec  mrec-lt  prec\_sub+``)
  THEN  Auto)

---

Home Index