---

Step * 1 of Lemma W-measure-induction

.....assertion..... 
1. T : Type
2. A : Type
3. B : A ⟶ Type
4. measure : T ⟶ W(A;a.B[a])
5. P : T ⟶ ℙ
6. g : ∀i:T. ((∀j:{j:T| measure[j] <  measure[i]} . P[j]) ⇒ P[i])
7. x : T
⊢ ∀m:W(A;a.B[a]). ∀x:T.  ((measure[x] ≤  m) ⇒ (g x fix((λf,x. (g x f))) ∈ P[x]))
BY
{ (Thin (-1) THEN WInd THEN Auto THEN (RW (AddrC [2] UnrollRecursionC) 0 THEN Reduce 0 THEN (MemCD THENA Auto))⋅)⋅ }

1
.....subterm..... T:t
1:n
1. T : Type
2. A : Type
3. B : A ⟶ Type
4. measure : T ⟶ W(A;a.B[a])
5. P : T ⟶ ℙ
6. g : ∀i:T. ((∀j:{j:T| measure[j] <  measure[i]} . P[j]) ⇒ P[i])
7. a : A
8. f : B[a] ⟶ W(A;a.B[a])
9. ∀m:W(A;a.B[a]). ((m <  Wsup(a;f)) ⇒ (∀x:T. ((measure[x] ≤  m) ⇒ (g x fix((λf,x. (g x f))) ∈ P[x]))))
10. m : W(A;a.B[a])
11. v : m ≤  Wsup(a;f)
12. x : T
13. v1 : measure[x] ≤  m
14. x1 : {j:T| measure[j] <  measure[x]} 
⊢ g x1 fix((λf,x. (g x f))) ∈ P[x1]

---

Latex:

---

Latex:
.....assertion..... 
1.  T  :  Type
2.  A  :  Type
3.  B  :  A  {}\mrightarrow{}  Type
4.  measure  :  T  {}\mrightarrow{}  W(A;a.B[a])
5.  P  :  T  {}\mrightarrow{}  \mBbbP{}
6.  g  :  \mforall{}i:T.  ((\mforall{}j:\{j:T|  measure[j]  <    measure[i]\}  .  P[j])  {}\mRightarrow{}  P[i])
7.  x  :  T
\mvdash{}  \mforall{}m:W(A;a.B[a]).  \mforall{}x:T.    ((measure[x]  \mleq{}    m)  {}\mRightarrow{}  (g  x  fix((\mlambda{}f,x.  (g  x  f)))  \mmember{}  P[x]))


By

---

Latex:
(Thin  (-1)
  THEN  WInd
  THEN  Auto
  THEN  (RW  (AddrC  [2]  UnrollRecursionC)  0  THEN  Reduce  0  THEN  (MemCD  THENA  Auto))\mcdot{})\mcdot{}

---

Home Index