---

Step * 1 2 1 1 of Lemma transitive-loop


1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. Trans(T;x,y.R[x;y])
4. L : T List
5. ∀i:ℕ||L|| - 1. R[L[i];L[i + 1]]
6. R[last(L);hd(L)] supposing ¬↑null(L)
7. a : T
8. i1 : ℕ
9. i1 < ||L||
10. a = L[i1] ∈ T
11. b : T
12. i : ℕ
13. i < ||L||
14. b = L[i] ∈ T
15. ¬↑null(L)
16. ∀n:ℕ. (0 < n ⇒ (∀i:ℕ||L||. (n < ||L|| - i ⇒ R[L[i];L[i + n]])))
17. i1 < i
⊢ R[a;b]
BY
{ xxx(((InstHyp [⌜i - i1⌝; ⌜i1⌝] (-2))⋅ THENA Auto')
      THEN (NthHypEq (-1))
      THEN EqCD
      THEN Auto
      THEN Try ((EqCD THEN Auto))
      THEN ArithSimp 0
      THEN Auto)xxx }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  Trans(T;x,y.R[x;y])
4.  L  :  T  List
5.  \mforall{}i:\mBbbN{}||L||  -  1.  R[L[i];L[i  +  1]]
6.  R[last(L);hd(L)]  supposing  \mneg{}\muparrow{}null(L)
7.  a  :  T
8.  i1  :  \mBbbN{}
9.  i1  <  ||L||
10.  a  =  L[i1]
11.  b  :  T
12.  i  :  \mBbbN{}
13.  i  <  ||L||
14.  b  =  L[i]
15.  \mneg{}\muparrow{}null(L)
16.  \mforall{}n:\mBbbN{}.  (0  <  n  {}\mRightarrow{}  (\mforall{}i:\mBbbN{}||L||.  (n  <  ||L||  -  i  {}\mRightarrow{}  R[L[i];L[i  +  n]])))
17.  i1  <  i
\mvdash{}  R[a;b]


By

---

Latex:
xxx(((InstHyp  [\mkleeneopen{}i  -  i1\mkleeneclose{};  \mkleeneopen{}i1\mkleeneclose{}]  (-2))\mcdot{}  THENA  Auto')
        THEN  (NthHypEq  (-1))
        THEN  EqCD
        THEN  Auto
        THEN  Try  ((EqCD  THEN  Auto))
        THEN  ArithSimp  0
        THEN  Auto)xxx

---

Home Index