---

Step * 1 of Lemma equiv-on-corec-2


1. F : 𝕌' ⟶ 𝕌'
2. continuous-monotone{i':l}(T.F[T])
3. G : ⋂T:𝕌'. ((T ⟶ T ⟶ ℙ) ⟶ F[T] ⟶ F[T] ⟶ ℙ)
4. ∀T:𝕌'. ∀E:T ⟶ T ⟶ ℙ.  (EquivRel(T;x,y.E x y) ⇒ EquivRel(F[T];x,y.G E x y))
5. ∀n:ℕ. (G^n (λx,y. True) ∈ primrec(n;Top;λ,T. F[T]) ⟶ primrec(n;Top;λ,T. F[T]) ⟶ ℙ)
6. ∀n:ℕ. EquivRel(primrec(n;Top;λ,T. F[T]);x,y.G^n (λx,y. True) x y)
⊢ EquivRel(corec(T.F[T]);x,y.corec-rel(G) x y)
BY
{ (InstLemma `corec-rel-wf2` [⌜F⌝;⌜G⌝]⋅ THEN Auto) }

1
1. F : 𝕌' ⟶ 𝕌'
2. continuous-monotone{i':l}(T.F[T])
3. G : ⋂T:𝕌'. ((T ⟶ T ⟶ ℙ) ⟶ F[T] ⟶ F[T] ⟶ ℙ)
4. ∀T:𝕌'. ∀E:T ⟶ T ⟶ ℙ.  (EquivRel(T;x,y.E x y) ⇒ EquivRel(F[T];x,y.G E x y))
5. ∀n:ℕ. (G^n (λx,y. True) ∈ primrec(n;Top;λ,T. F[T]) ⟶ primrec(n;Top;λ,T. F[T]) ⟶ ℙ)
6. ∀n:ℕ. EquivRel(primrec(n;Top;λ,T. F[T]);x,y.G^n (λx,y. True) x y)
7. corec-rel(G) ∈ corec(T.F[T]) ⟶ corec(T.F[T]) ⟶ ℙ
⊢ EquivRel(corec(T.F[T]);x,y.corec-rel(G) x y)

---

Latex:

---

Latex:

1.  F  :  \mBbbU{}'  {}\mrightarrow{}  \mBbbU{}'
2.  continuous-monotone\{i':l\}(T.F[T])
3.  G  :  \mcap{}T:\mBbbU{}'.  ((T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{})  {}\mrightarrow{}  F[T]  {}\mrightarrow{}  F[T]  {}\mrightarrow{}  \mBbbP{})
4.  \mforall{}T:\mBbbU{}'.  \mforall{}E:T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}.    (EquivRel(T;x,y.E  x  y)  {}\mRightarrow{}  EquivRel(F[T];x,y.G  E  x  y))
5.  \mforall{}n:\mBbbN{}.  (G\^{}n  (\mlambda{}x,y.  True)  \mmember{}  primrec(n;Top;\mlambda{},T.  F[T])  {}\mrightarrow{}  primrec(n;Top;\mlambda{},T.  F[T])  {}\mrightarrow{}  \mBbbP{})
6.  \mforall{}n:\mBbbN{}.  EquivRel(primrec(n;Top;\mlambda{},T.  F[T]);x,y.G\^{}n  (\mlambda{}x,y.  True)  x  y)
\mvdash{}  EquivRel(corec(T.F[T]);x,y.corec-rel(G)  x  y)


By

---

Latex:
(InstLemma  `corec-rel-wf2`  [\mkleeneopen{}F\mkleeneclose{};\mkleeneopen{}G\mkleeneclose{}]\mcdot{}  THEN  Auto)

---

Home Index