---

Step * of Lemma fix_wf_corec_parameter2

∀[F,A:Type ⟶ Type].
  ∀[G:Top ⟶ Top ⟶ Top ⋂ ⋂T:Type. ((A[T] ⟶ T) ⟶ A[F[T]] ⟶ F[T])]. ∀[a:A[corec(T.F[T])]].
    (fix(G) a ∈ corec(T.F[T])) 
  supposing Continuous+(T.A[T])
BY
{ (Auto
   THEN InstLemma `fix_wf_corec2` [⌜F⌝;⌜λ2T.A[T] ⟶ T⌝;⌜G⌝]⋅
   THEN Auto
   THEN Try ((ProveContinuous THEN Auto))
   THEN Isect2CD
   THEN Isect2HD' 4
   THEN Auto
   THEN DoSubsume
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[F,A:Type  {}\mrightarrow{}  Type].
    \mforall{}[G:Top  {}\mrightarrow{}  Top  {}\mrightarrow{}  Top  \mcap{}  \mcap{}T:Type.  ((A[T]  {}\mrightarrow{}  T)  {}\mrightarrow{}  A[F[T]]  {}\mrightarrow{}  F[T])].  \mforall{}[a:A[corec(T.F[T])]].
        (fix(G)  a  \mmember{}  corec(T.F[T])) 
    supposing  Continuous+(T.A[T])


By

---

Latex:
(Auto
  THEN  InstLemma  `fix\_wf\_corec2`  [\mkleeneopen{}F\mkleeneclose{};\mkleeneopen{}\mlambda{}\msubtwo{}T.A[T]  {}\mrightarrow{}  T\mkleeneclose{};\mkleeneopen{}G\mkleeneclose{}]\mcdot{}
  THEN  Auto
  THEN  Try  ((ProveContinuous  THEN  Auto))
  THEN  Isect2CD
  THEN  Isect2HD'  4
  THEN  Auto
  THEN  DoSubsume
  THEN  Auto)

---

Home Index