Step
*
of Lemma
fix_wf_corec_parameter
∀[F:Type ⟶ Type]. ∀[A:Type]. ∀[G:Top ⟶ Top ⟶ Top ⋂ ⋂T:Type. ((A ⟶ T) ⟶ A ⟶ F[T])]. ∀[a:A].
  (fix(G) a ∈ corec(T.F[T]))
BY
{ (Auto
   THEN InstLemma `fix_wf_corec2` [⌜F⌝;⌜λ2T.A ⟶ T⌝;⌜G⌝]⋅
   THEN Auto
   THEN Try ((ProveContinuous THEN Auto))
   THEN Isect2CD
   THEN Isect2HD' 3
   THEN Auto
   THEN DoSubsume
   THEN Auto) }
Latex:
Latex:
\mforall{}[F:Type  {}\mrightarrow{}  Type].  \mforall{}[A:Type].  \mforall{}[G:Top  {}\mrightarrow{}  Top  {}\mrightarrow{}  Top  \mcap{}  \mcap{}T:Type.  ((A  {}\mrightarrow{}  T)  {}\mrightarrow{}  A  {}\mrightarrow{}  F[T])].  \mforall{}[a:A].
    (fix(G)  a  \mmember{}  corec(T.F[T]))
By
Latex:
(Auto
  THEN  InstLemma  `fix\_wf\_corec2`  [\mkleeneopen{}F\mkleeneclose{};\mkleeneopen{}\mlambda{}\msubtwo{}T.A  {}\mrightarrow{}  T\mkleeneclose{};\mkleeneopen{}G\mkleeneclose{}]\mcdot{}
  THEN  Auto
  THEN  Try  ((ProveContinuous  THEN  Auto))
  THEN  Isect2CD
  THEN  Isect2HD'  3
  THEN  Auto
  THEN  DoSubsume
  THEN  Auto)
Home
Index