---

Step * 1 1 1 1 2 1 1 1 1 of Lemma AF-induction-iff

.....set predicate..... 
1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. ∀Q:T ⟶ ℙ. TI(T;x,y.R[x;y];t.Q[t]) supposing ∃R':T ⟶ T ⟶ ℙ. (AFx,y:T.R'[x;y] ∧ (∀x,y:T.  (R+[x;y] ⇒ (¬R'[x;y]))))
4. ∀x,y:T.  Dec(R+[x;y])
5. ∀Q:T ⟶ ℙ. TI(T;x,y.R[x;y];t.Q[t])
6. f : ℕ ⟶ T
7. t : T
8. ∀s:{s:T| R[t;s]} . ∀f:ℕ ⟶ T.  (((f 0) = s ∈ T) ⇒ (↓∃n:ℕ. (¬(R+ (f n) (f (n + 1))))))
9. f1 : ℕ ⟶ T
10. (f1 0) = t ∈ T
11. y : T
12. (f1 0) R y
13. y (R^*) (f1 1)
⊢ R[t;y]
BY
{ (RepUR ``so_apply`` 0 THEN RevHypSubst' (-4) 0 THEN Auto) }

---

Latex:

---

Latex:
.....set  predicate..... 
1.  T  :  Type
2.  R  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}Q:T  {}\mrightarrow{}  \mBbbP{}.  TI(T;x,y.R[x;y];t.Q[t]) 
      supposing  \mexists{}R':T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}.  (AFx,y:T.R'[x;y]  \mwedge{}  (\mforall{}x,y:T.    (R\msupplus{}[x;y]  {}\mRightarrow{}  (\mneg{}R'[x;y]))))
4.  \mforall{}x,y:T.    Dec(R\msupplus{}[x;y])
5.  \mforall{}Q:T  {}\mrightarrow{}  \mBbbP{}.  TI(T;x,y.R[x;y];t.Q[t])
6.  f  :  \mBbbN{}  {}\mrightarrow{}  T
7.  t  :  T
8.  \mforall{}s:\{s:T|  R[t;s]\}  .  \mforall{}f:\mBbbN{}  {}\mrightarrow{}  T.    (((f  0)  =  s)  {}\mRightarrow{}  (\mdownarrow{}\mexists{}n:\mBbbN{}.  (\mneg{}(R\msupplus{}  (f  n)  (f  (n  +  1))))))
9.  f1  :  \mBbbN{}  {}\mrightarrow{}  T
10.  (f1  0)  =  t
11.  y  :  T
12.  (f1  0)  R  y
13.  y  rel\_star(T;  R)  (f1  1)
\mvdash{}  R[t;y]


By

---

Latex:
(RepUR  ``so\_apply``  0  THEN  RevHypSubst'  (-4)  0  THEN  Auto)

---

Home Index