---

Step * 1 2 1 2 of Lemma mobj-cases


1. S : MutualRectypeSpec
2. P : mobj(S) ⟶ TYPE
3. k : mKinds
4. lbl : {lbl:Atom| 0 < ||mrec-spec(S;lbl;k)||} 
5. t : tuple-type(prec-arg-types(lbl,p.mrec-spec(S;lbl;p);k;lbl))
6. <k, mk-prec(lbl;t)> = <k, mk-prec(lbl;t)> ∈ (i:Atom × mrec(S;i))
⊢ (i:Atom × mrec(S;i)) ⊆r mobj(S)
BY
{ (InstLemma `mobj-ext` [⌜S⌝]⋅ THEN Auto) }

---

Latex:

---

Latex:

1.  S  :  MutualRectypeSpec
2.  P  :  mobj(S)  {}\mrightarrow{}  TYPE
3.  k  :  mKinds
4.  lbl  :  \{lbl:Atom|  0  <  ||mrec-spec(S;lbl;k)||\} 
5.  t  :  tuple-type(prec-arg-types(lbl,p.mrec-spec(S;lbl;p);k;lbl))
6.  <k,  mk-prec(lbl;t)>  =  <k,  mk-prec(lbl;t)>
\mvdash{}  (i:Atom  \mtimes{}  mrec(S;i))  \msubseteq{}r  mobj(S)


By

---

Latex:
(InstLemma  `mobj-ext`  [\mkleeneopen{}S\mkleeneclose{}]\mcdot{}  THEN  Auto)

---

Home Index