---

Step * 1 2 1 1 2 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. ∀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))))
BY
{ TACTIC:((Assert ⌜False⌝⋅ THEN Auto)
          THEN (InstHyp [⌜j + 1⌝](-4)⋅ THEN Auto)
          THEN (RW IntNormC (-1) THENA Auto)
          THEN HypSubst (-3) (-1)
          THEN Auto) }

---

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.  \mforall{}x:\mBbbN{}j  +  2.  (0  <  x  {}\mRightarrow{}  (\muparrow{}isl(alpha  (x  -  1))))
10.  y  :  Unit@i
11.  (alpha  j)  =  (inr  y  )
12.  R[case  alpha  i  of  inl(x)  =>  x  |  inr(x)  =>  t;t]
\mvdash{}  \mdownarrow{}\mexists{}m:\mBbbN{}.  (0  <  m  \mwedge{}  (\muparrow{}isr(alpha  (m  -  1))))


By

---

Latex:
TACTIC:((Assert  \mkleeneopen{}False\mkleeneclose{}\mcdot{}  THEN  Auto)
                THEN  (InstHyp  [\mkleeneopen{}j  +  1\mkleeneclose{}](-4)\mcdot{}  THEN  Auto)
                THEN  (RW  IntNormC  (-1)  THENA  Auto)
                THEN  HypSubst  (-3)  (-1)
                THEN  Auto)

---

Home Index