Step
*
2
1
1
1
1
1
1
of Lemma
fun-path-before
.....assertion..... 
1. [T] : Type
2. f : T ⟶ T
3. u : T
4. u1 : T
5. v : T List
6. ∀x,y,a,b:T.  a before b ∈ [u1 / v] 
⇒ a is f*(b) supposing x=f*(y) via [u1 / v]
7. x : T
8. y : T
9. a : T
10. b : T
11. x = u ∈ T
12. y = u ∈ T supposing ¬0 < ||v|| + 1
13. a = u ∈ T
14. (b ∈ [u1 / v])
15. 0 < ||v|| + 1
16. u = (f u1) ∈ T
17. ¬(u = u1 ∈ T)
18. u1=f*(y) via [u1 / v]
⊢ f u1 is f*(u1)
BY
{ xxx(BLemma `fun-connected-step` THEN Auto)xxx }
1
.....decidable?..... 
1. [T] : Type
2. f : T ⟶ T
3. u : T
4. u1 : T
5. v : T List
6. ∀x,y,a,b:T.  a before b ∈ [u1 / v] 
⇒ a is f*(b) supposing x=f*(y) via [u1 / v]
7. x : T
8. y : T
9. a : T
10. b : T
11. x = u ∈ T
12. y = u ∈ T supposing ¬0 < ||v|| + 1
13. a = u ∈ T
14. (b ∈ [u1 / v])
15. 0 < ||v|| + 1
16. u = (f u1) ∈ T
17. ¬(u = u1 ∈ T)
18. u1=f*(y) via [u1 / v]
⊢ Dec((f u1) = u1 ∈ T)
Latex:
Latex:
.....assertion..... 
1.  [T]  :  Type
2.  f  :  T  {}\mrightarrow{}  T
3.  u  :  T
4.  u1  :  T
5.  v  :  T  List
6.  \mforall{}x,y,a,b:T.    a  before  b  \mmember{}  [u1  /  v]  {}\mRightarrow{}  a  is  f*(b)  supposing  x=f*(y)  via  [u1  /  v]
7.  x  :  T
8.  y  :  T
9.  a  :  T
10.  b  :  T
11.  x  =  u
12.  y  =  u  supposing  \mneg{}0  <  ||v||  +  1
13.  a  =  u
14.  (b  \mmember{}  [u1  /  v])
15.  0  <  ||v||  +  1
16.  u  =  (f  u1)
17.  \mneg{}(u  =  u1)
18.  u1=f*(y)  via  [u1  /  v]
\mvdash{}  f  u1  is  f*(u1)
By
Latex:
xxx(BLemma  `fun-connected-step`  THEN  Auto)xxx
Home
Index