---

Step * of Lemma mobj-sq

∀[S:MutualRectypeSpec]. ∀[x:mobj(S)].  (x ~ <mobj-kind(x), mk-prec(mobj-label(x);mobj-tuple(x))>)
BY
{ (Auto
   THEN (SubsumeHyp ⌜i:Atom × mrec(S;i)⌝ (-1)⋅ THENA (InstLemma `mobj-ext` [⌜S⌝]⋅ THEN Auto))
   THEN D -1
   THEN RepUR ``mobj-kind mobj-label mobj-tuple mobj-data`` 0
   THEN Auto
   THEN Unfold `mrec` -1
   THEN RWO  "prec-sq<" 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[S:MutualRectypeSpec].  \mforall{}[x:mobj(S)].    (x  \msim{}  <mobj-kind(x),  mk-prec(mobj-label(x);mobj-tuple(x))>)


By

---

Latex:
(Auto
  THEN  (SubsumeHyp  \mkleeneopen{}i:Atom  \mtimes{}  mrec(S;i)\mkleeneclose{}  (-1)\mcdot{}  THENA  (InstLemma  `mobj-ext`  [\mkleeneopen{}S\mkleeneclose{}]\mcdot{}  THEN  Auto))
  THEN  D  -1
  THEN  RepUR  ``mobj-kind  mobj-label  mobj-tuple  mobj-data``  0
  THEN  Auto
  THEN  Unfold  `mrec`  -1
  THEN  RWO    "prec-sq<"  0
  THEN  Auto)

---

Home Index