---

Step * 2 2 1 1 1 of Lemma rel_exp-iff-path


1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. n : ℤ
4. [%1] : 0 < n
5. ∀x,y:T.  (x R^n - 1 y ⇐⇒ ∃L:T List. ((||L|| = ((n - 1) + 1) ∈ ℤ) ∧ rel-path-between(T;R;x;y;L)))
6. ¬(n = 0 ∈ ℤ)
7. x : T
8. y@0 : T
9. z : T
10. x R z
11. z R^n - 1 y@0
12. (z R^n - 1 y@0) ⇐ ∃L:T List. ((||L|| = ((n - 1) + 1) ∈ ℤ) ∧ rel-path-between(T;R;z;y@0;L))
13. L : T List
14. ||L|| = ((n - 1) + 1) ∈ ℤ
15. rel-path-between(T;R;z;y@0;L)
16. ||[x / L]|| = (n + 1) ∈ ℤ
⊢ rel-path-between(T;R;x;y@0;[x / L])
BY
{ TACTIC:((Assert z = hd(L) ∈ T BY
                 Auto)
          THEN BLemma `rel-path-between-cons`
          THEN Auto
          THEN (RevHypSubst (-2) 0 THEN Auto)⋅) }

1
1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. n : ℤ
4. 0 < n
5. ∀x,y:T.  (x R^n - 1 y ⇐⇒ ∃L:T List. ((||L|| = ((n - 1) + 1) ∈ ℤ) ∧ rel-path-between(T;R;x;y;L)))
6. ¬(n = 0 ∈ ℤ)
7. x : T
8. y@0 : T
9. z : T
10. x R z
11. z R^n - 1 y@0
12. (z R^n - 1 y@0) ⇐ ∃L:T List. ((||L|| = ((n - 1) + 1) ∈ ℤ) ∧ rel-path-between(T;R;z;y@0;L))
13. L : T List
14. ||L|| = ((n - 1) + 1) ∈ ℤ
15. rel-path-between(T;R;z;y@0;L)
16. ||[x / L]|| = (n + 1) ∈ ℤ
17. z = hd(L) ∈ T
18. x = x ∈ T
19. ↑null(L)
⊢ y@0 = x ∈ T

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  n  :  \mBbbZ{}
4.  [\%1]  :  0  <  n
5.  \mforall{}x,y:T.
          (x  R\^{}n  -  1  y  \mLeftarrow{}{}\mRightarrow{}  \mexists{}L:T  List.  ((||L||  =  ((n  -  1)  +  1))  \mwedge{}  rel-path-between(T;R;x;y;L)))
6.  \mneg{}(n  =  0)
7.  x  :  T
8.  y@0  :  T
9.  z  :  T
10.  x  R  z
11.  z  rel\_exp(T;  R;  n  -  1)  y@0
12.  (z  rel\_exp(T;  R;  n  -  1)  y@0)  \mLeftarrow{}{}  \mexists{}L:T  List
                                                                          ((||L||  =  ((n  -  1)  +  1))  \mwedge{}  rel-path-between(T;R;z;y@0;L))
13.  L  :  T  List
14.  ||L||  =  ((n  -  1)  +  1)
15.  rel-path-between(T;R;z;y@0;L)
16.  ||[x  /  L]||  =  (n  +  1)
\mvdash{}  rel-path-between(T;R;x;y@0;[x  /  L])


By

---

Latex:
TACTIC:((Assert  z  =  hd(L)  BY
                              Auto)
                THEN  BLemma  `rel-path-between-cons`
                THEN  Auto
                THEN  (RevHypSubst  (-2)  0  THEN  Auto)\mcdot{})

---

Home Index