---

Step * 1 1 1 1 of Lemma fixpoint-induction2


1. A : Type
2. T : A ⟶ Type
3. A ⊆r Base
4. ∀a:A. value-type(T[a])
5. ∀a:A. mono(T[a])
6. f : (a:A ⟶ partial(T[a])) ⟶ a:A ⟶ partial(T[a]) ⋂ Base
7. ⊥ ∈ Void ⟶ Void
8. fix(f) ∈ Void ⟶ Void
9. a : A
10. ⊥ ∈ a:A ⟶ partial(T[a])
11. (fix(f) a)↓
12. j : ℕ
13. (f^j ⊥ a)↓
14. f ∈ Base
15. f ∈ (a:A ⟶ partial(T[a])) ⟶ a:A ⟶ partial(T[a])
⊢ (f^j ⊥ a) = (fix(f) a) ∈ T[a]
BY
{ ((Assert f^j ⊥ a ∈ T[a] BY (BLemma `termination` THEN Auto)⋅) THEN BackThruHyp'  5⋅ THEN Auto) }

1
1. A : Type
2. T : A ⟶ Type
3. A ⊆r Base
4. ∀a:A. value-type(T[a])
5. ∀a:A. ∀a@0:T[a]. ∀b:Base.  (is-above(T[a];a@0;b) ⇒ (a@0 = b ∈ T[a]))
6. f : (a:A ⟶ partial(T[a])) ⟶ a:A ⟶ partial(T[a]) ⋂ Base
7. ⊥ ∈ Void ⟶ Void
8. fix(f) ∈ Void ⟶ Void
9. a : A
10. ⊥ ∈ a:A ⟶ partial(T[a])
11. (fix(f) a)↓
12. j : ℕ
13. (f^j ⊥ a)↓
14. f ∈ Base
15. f ∈ (a:A ⟶ partial(T[a])) ⟶ a:A ⟶ partial(T[a])
16. f^j ⊥ a ∈ T[a]
⊢ is-above(T[a];f^j ⊥ a;fix(f) a)

---

Latex:

---

Latex:

1.  A  :  Type
2.  T  :  A  {}\mrightarrow{}  Type
3.  A  \msubseteq{}r  Base
4.  \mforall{}a:A.  value-type(T[a])
5.  \mforall{}a:A.  mono(T[a])
6.  f  :  (a:A  {}\mrightarrow{}  partial(T[a]))  {}\mrightarrow{}  a:A  {}\mrightarrow{}  partial(T[a])  \mcap{}  Base
7.  \mbot{}  \mmember{}  Void  {}\mrightarrow{}  Void
8.  fix(f)  \mmember{}  Void  {}\mrightarrow{}  Void
9.  a  :  A
10.  \mbot{}  \mmember{}  a:A  {}\mrightarrow{}  partial(T[a])
11.  (fix(f)  a)\mdownarrow{}
12.  j  :  \mBbbN{}
13.  (f\^{}j  \mbot{}  a)\mdownarrow{}
14.  f  \mmember{}  Base
15.  f  \mmember{}  (a:A  {}\mrightarrow{}  partial(T[a]))  {}\mrightarrow{}  a:A  {}\mrightarrow{}  partial(T[a])
\mvdash{}  (f\^{}j  \mbot{}  a)  =  (fix(f)  a)


By

---

Latex:
((Assert  f\^{}j  \mbot{}  a  \mmember{}  T[a]  BY  (BLemma  `termination`  THEN  Auto)\mcdot{})  THEN  BackThruHyp'    5\mcdot{}  THEN  Auto)

---

Home Index