Step
*
of Lemma
mrec_ind_wf
∀L:MutualRectypeSpec. ∀[P:mobj(L) ⟶ TYPE]. ∀[h:mrecind(L;x.P[x])]. ∀[x:mobj(L)].  (mrec_ind(L;h;x) ∈ P[x])
BY
{ (Auto
   THEN (Subst' mrec_ind(L;h;x) ~ TERMOF{mrec-induction2-ext:o, \\v:l, i:l} L h x 0 THENA Computation)
   THEN GenConclAtAddrType  mrecind(L;x.P[x]) 
⇒ (∀x:mobj(L). P[x]) [2;1;1]⋅
   THEN Auto) }
Latex:
Latex:
\mforall{}L:MutualRectypeSpec
    \mforall{}[P:mobj(L)  {}\mrightarrow{}  TYPE].  \mforall{}[h:mrecind(L;x.P[x])].  \mforall{}[x:mobj(L)].    (mrec\_ind(L;h;x)  \mmember{}  P[x])
By
Latex:
(Auto
  THEN  (Subst'  mrec\_ind(L;h;x)  \msim{}  TERMOF\{mrec-induction2-ext:o,  \mbackslash{}\mbackslash{}v:l,  i:l\}  L  h  x  0  THENA  Computation)
  THEN  GenConclAtAddrType    mrecind(L;x.P[x])  {}\mRightarrow{}  (\mforall{}x:mobj(L).  P[x])  [2;1;1]\mcdot{}
  THEN  Auto)
Home
Index