---

Step * 1 8 1 1 1 1 of Lemma cWO-induction_1


1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. Q : T ⟶ ℙ
4. ∀t:T. ((∀s:{s:T| R[t;s]} . Q[s]) ⇒ Q[t])
5. t : T
6. alpha : ℕ ⟶ (T?)
7. ∀x:ℕ. ((0 < x ∧ (↑isl(alpha x))) ⇒ ((↑isl(alpha (x - 1))) ∧ (R outl(alpha (x - 1)) outl(alpha x))))
8. n : ℕ
9. x : T
10. (alpha n) = (inl x) ∈ (T?)
⊢ (¬R[x;case alpha (n + 1) of inl(x) => x | inr(x) => t]) ⇒ (↓∃m:ℕ. (0 < m ∧ (↑isr(alpha (m - 1)))))
BY
{ ((GenConclTerm ⌜alpha (n + 1)⌝⋅ THENA Auto) THEN D -2 THEN Reduce 0 THEN Auto)⋅ }

1
1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. Q : T ⟶ ℙ
4. ∀t:T. ((∀s:{s:T| R[t;s]} . Q[s]) ⇒ Q[t])
5. t : T
6. alpha : ℕ ⟶ (T?)
7. ∀x:ℕ. ((0 < x ∧ (↑isl(alpha x))) ⇒ ((↑isl(alpha (x - 1))) ∧ (R outl(alpha (x - 1)) outl(alpha x))))
8. n : ℕ
9. x : T
10. (alpha n) = (inl x) ∈ (T?)
11. x1 : T
12. (alpha (n + 1)) = (inl x1) ∈ (T?)
13. ¬R[x;x1]
⊢ ↓∃m:ℕ. (0 < m ∧ (↑isr(alpha (m - 1))))

2
1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. Q : T ⟶ ℙ
4. ∀t:T. ((∀s:{s:T| R[t;s]} . Q[s]) ⇒ Q[t])
5. t : T
6. alpha : ℕ ⟶ (T?)
7. ∀x:ℕ. ((0 < x ∧ (↑isl(alpha x))) ⇒ ((↑isl(alpha (x - 1))) ∧ (R outl(alpha (x - 1)) outl(alpha x))))
8. n : ℕ
9. x : T
10. (alpha n) = (inl x) ∈ (T?)
11. y : Unit
12. (alpha (n + 1)) = (inr y ) ∈ (T?)
13. ¬R[x;t]
⊢ ↓∃m:ℕ. (0 < m ∧ (↑isr(alpha (m - 1))))

---

Latex:

---

Latex:

1.  T  :  Type
2.  R  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  Q  :  T  {}\mrightarrow{}  \mBbbP{}
4.  \mforall{}t:T.  ((\mforall{}s:\{s:T|  R[t;s]\}  .  Q[s])  {}\mRightarrow{}  Q[t])
5.  t  :  T
6.  alpha  :  \mBbbN{}  {}\mrightarrow{}  (T?)
7.  \mforall{}x:\mBbbN{}
          ((0  <  x  \mwedge{}  (\muparrow{}isl(alpha  x)))  {}\mRightarrow{}  ((\muparrow{}isl(alpha  (x  -  1)))  \mwedge{}  (R  outl(alpha  (x  -  1))  outl(alpha  x))))
8.  n  :  \mBbbN{}
9.  x  :  T
10.  (alpha  n)  =  (inl  x)
\mvdash{}  (\mneg{}R[x;case  alpha  (n  +  1)  of  inl(x)  =>  x  |  inr(x)  =>  t])
{}\mRightarrow{}  (\mdownarrow{}\mexists{}m:\mBbbN{}.  (0  <  m  \mwedge{}  (\muparrow{}isr(alpha  (m  -  1)))))


By

---

Latex:
((GenConclTerm  \mkleeneopen{}alpha  (n  +  1)\mkleeneclose{}\mcdot{}  THENA  Auto)  THEN  D  -2  THEN  Reduce  0  THEN  Auto)\mcdot{}

---

Home Index