Step
*
1
2
2
1
2
1
1
of Lemma
name-morph-extend_wf
1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. v : Cname
5. ¬(v ∈ I)
6. fresh-cname(I) = v ∈ {x:Cname| ¬(x ∈ I)} 
7. v1 : Cname
8. ¬(v1 ∈ J)
9. fresh-cname(J) = v1 ∈ {x:Cname| ¬(x ∈ J)} 
10. extd-nameset(J) ⊆r extd-nameset([v1 / J])
11. i : nameset([v / I])
12. j : nameset([v / I])
13. j ≠ v
14. i = v ∈ ℤ
15. j ∈ nameset(I)
16. ↑tt
17. ↑isname(f j)
⊢ (v1 = (f j) ∈ extd-nameset([v1 / J])) 
⇒ (i = j ∈ nameset([v / I]))
BY
{ TACTIC:D 0 }
1
1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. v : Cname
5. ¬(v ∈ I)
6. fresh-cname(I) = v ∈ {x:Cname| ¬(x ∈ I)} 
7. v1 : Cname
8. ¬(v1 ∈ J)
9. fresh-cname(J) = v1 ∈ {x:Cname| ¬(x ∈ J)} 
10. extd-nameset(J) ⊆r extd-nameset([v1 / J])
11. i : nameset([v / I])
12. j : nameset([v / I])
13. j ≠ v
14. i = v ∈ ℤ
15. j ∈ nameset(I)
16. ↑tt
17. ↑isname(f j)
18. v1 = (f j) ∈ extd-nameset([v1 / J])
⊢ i = j ∈ nameset([v / I])
2
.....wf..... 
1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. v : Cname
5. ¬(v ∈ I)
6. fresh-cname(I) = v ∈ {x:Cname| ¬(x ∈ I)} 
7. v1 : Cname
8. ¬(v1 ∈ J)
9. fresh-cname(J) = v1 ∈ {x:Cname| ¬(x ∈ J)} 
10. extd-nameset(J) ⊆r extd-nameset([v1 / J])
11. i : nameset([v / I])
12. j : nameset([v / I])
13. j ≠ v
14. i = v ∈ ℤ
15. j ∈ nameset(I)
16. ↑tt
17. ↑isname(f j)
⊢ istype(v1 = (f j) ∈ extd-nameset([v1 / J]))
Latex:
Latex:
1.  I  :  Cname  List
2.  J  :  Cname  List
3.  f  :  name-morph(I;J)
4.  v  :  Cname
5.  \mneg{}(v  \mmember{}  I)
6.  fresh-cname(I)  =  v
7.  v1  :  Cname
8.  \mneg{}(v1  \mmember{}  J)
9.  fresh-cname(J)  =  v1
10.  extd-nameset(J)  \msubseteq{}r  extd-nameset([v1  /  J])
11.  i  :  nameset([v  /  I])
12.  j  :  nameset([v  /  I])
13.  j  \mneq{}  v
14.  i  =  v
15.  j  \mmember{}  nameset(I)
16.  \muparrow{}tt
17.  \muparrow{}isname(f  j)
\mvdash{}  (v1  =  (f  j))  {}\mRightarrow{}  (i  =  j)
By
Latex:
TACTIC:D  0
Home
Index