---

Step * of Lemma corec-subtype-corec2

∀[F,G:Type ⟶ Type].  corec(T.F[T]) ⊆r corec(T.G[T]) supposing ∀A,B:Type.  ((A ⊆r B) ⇒ (F[A] ⊆r G[B]))
BY
{ (Auto THEN Unfold `corec` 0 THEN D 0 THEN Auto) }

1
1. F : Type ⟶ Type
2. G : Type ⟶ Type
3. ∀A,B:Type.  ((A ⊆r B) ⇒ (F[A] ⊆r G[B]))
4. x : ⋂n:ℕ. primrec(n;Top;λ,T. F[T])
5. n : ℕ
⊢ x ∈ primrec(n;Top;λ,T. G[T])

---

Latex:

---

Latex:
\mforall{}[F,G:Type  {}\mrightarrow{}  Type].
    corec(T.F[T])  \msubseteq{}r  corec(T.G[T])  supposing  \mforall{}A,B:Type.    ((A  \msubseteq{}r  B)  {}\mRightarrow{}  (F[A]  \msubseteq{}r  G[B]))


By

---

Latex:
(Auto  THEN  Unfold  `corec`  0  THEN  D  0  THEN  Auto)

---

Home Index