---

Step * 2 1 2 1 of Lemma rel_plus-restriction-equiv


1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. [P] : T ⟶ ℙ
4. ∀x,y:T.  ((P[y] ∧ (R x y)) ⇒ P[x])
5. x : T
6. y : T
7. R+|P x y
8. n : ℤ
9. 0 < n
10. ∀a,b:T.  ((R^n|P a b) ⇒ (R|P+ a b))
11. a : T
12. b : T
13. R^n + 1|P a b
⊢ R|P+ a b
BY
{ ((RecUnfold `rel_exp` (-1) THEN SplitOnHypITE (-1)) THEN Auto) }

1
.....falsecase..... 
1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. [P] : T ⟶ ℙ
4. ∀x,y:T.  ((P[y] ∧ (R x y)) ⇒ P[x])
5. x : T
6. y : T
7. R+|P x y
8. n : ℤ
9. 0 < n
10. ∀a,b:T.  ((R^n|P a b) ⇒ (R|P+ a b))
11. a : T
12. b : T
13. λx,y. ∃z:T. ((x R z) ∧ (z R^(n + 1) - 1 y))|P a b
14. ¬((n + 1) = 0 ∈ ℤ)
⊢ R|P+ a b

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  [P]  :  T  {}\mrightarrow{}  \mBbbP{}
4.  \mforall{}x,y:T.    ((P[y]  \mwedge{}  (R  x  y))  {}\mRightarrow{}  P[x])
5.  x  :  T
6.  y  :  T
7.  R\msupplus{}|P  x  y
8.  n  :  \mBbbZ{}
9.  0  <  n
10.  \mforall{}a,b:T.    ((rel\_exp(T;  R;  n)|P  a  b)  {}\mRightarrow{}  (R|P\msupplus{}  a  b))
11.  a  :  T
12.  b  :  T
13.  rel\_exp(T;  R;  n  +  1)|P  a  b
\mvdash{}  R|P\msupplus{}  a  b


By

---

Latex:
((RecUnfold  `rel\_exp`  (-1)  THEN  SplitOnHypITE  (-1))  THEN  Auto)

---

Home Index