---

Step * 1 2 1 1 of Lemma AF-path-barred


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

1
1. T : Type
2. t : T
3. R : T ⟶ T ⟶ ℙ
4. alpha : ℕ ⟶ (T?)@i
5. ∀x:ℕ. ((↑isl(alpha x)) ⇒ (∀i:ℕx. ((↑isl(alpha i)) ∧ (¬R[outl(alpha i);outl(alpha x)]))))
6. i : ℕ@i
7. j : ℕ@i
8. i < j
9. ∀x:ℕj + 2. (0 < x ⇒ (↑isl(alpha (x - 1))))
10. x : T@i
11. (alpha j) = (inl x) ∈ (T?)
12. R[case alpha i of inl(x) => x | inr(x) => t;x]
⊢ ↓∃m:ℕ. (0 < m ∧ (↑isr(alpha (m - 1))))

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

---

Latex:

---

Latex:

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


By

---

Latex:
TACTIC:(MoveToConcl  (-2)
                THEN  ((GenConclTerm  \mkleeneopen{}alpha  j\mkleeneclose{}\mcdot{}  THENA  Auto)  THEN  D  -2  THEN  Reduce  0  THEN  Auto)\mcdot{}
                )

---

Home Index