---

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

.....basecase..... 
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. z : T
14. a R z
15. z R^(n + 1) - 1 b
16. P a
17. P b
18. ¬((n + 1) = 0 ∈ ℤ)
19. m : ℕ+
⊢ ∀x,y:T.  ((P[y] ∧ (R^1 x y)) ⇒ P[x])
BY
{ (RepeatFor 2 ((RecUnfold `rel_exp` 0⋅ THEN Reduce 0)) THEN Auto) }

1
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. z : T
14. a R z
15. z R^(n + 1) - 1 b
16. P a
17. P b
18. ¬((n + 1) = 0 ∈ ℤ)
19. m : ℕ+
20. x1 : T
21. y1 : T
22. P[y1]
23. ∃z:T. ((x1 R z) ∧ (z = y1 ∈ T))
⊢ P[x1]

---

Latex:

---

Latex:
.....basecase..... 
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.  z  :  T
14.  a  R  z
15.  z  rel\_exp(T;  R;  (n  +  1)  -  1)  b
16.  P  a
17.  P  b
18.  \mneg{}((n  +  1)  =  0)
19.  m  :  \mBbbN{}\msupplus{}
\mvdash{}  \mforall{}x,y:T.    ((P[y]  \mwedge{}  (rel\_exp(T;  R;  1)  x  y))  {}\mRightarrow{}  P[x])


By

---

Latex:
(RepeatFor  2  ((RecUnfold  `rel\_exp`  0\mcdot{}  THEN  Reduce  0))  THEN  Auto)

---

Home Index