Step * 2 of Lemma name-morph-extend-face-map


1. Cname List
2. Cname List
3. : ℕ2
4. name-morph(I;K)
5. nameset(I+)
6. ¬(x fresh-cname(I) ∈ Cname)
⊢ (uext(f) ((fresh-cname(I):=i) x)) (uext((fresh-cname(K):=i)) (f x)) ∈ extd-nameset(K)
BY
(RepUR ``face-map`` 0⋅
   THEN (AutoSplit THEN Try ((Unfold `guard` -3 THEN Auto)))
   THEN Try ((HypSubst' (-1) (-2) THEN Auto))
   THEN RepUR ``uext`` 0
   THEN (Subst' isname(x) tt THENA (RepeatFor (DVar `x') THEN RepUR ``isname`` THEN Auto))
   THEN Reduce 0
   THEN Assert ⌜x ∈ nameset(I)⌝⋅}

1
.....assertion..... 
1. Cname List
2. Cname List
3. : ℕ2
4. name-morph(I;K)
5. nameset(I+)
6. x ≠ fresh-cname(I)
7. ¬(x fresh-cname(I) ∈ Cname)
⊢ x ∈ nameset(I)

2
1. Cname List
2. Cname List
3. : ℕ2
4. name-morph(I;K)
5. nameset(I+)
6. x ≠ fresh-cname(I)
7. ¬(x fresh-cname(I) ∈ Cname)
8. x ∈ nameset(I)
⊢ (f x) if isname(f x) then if (f =z fresh-cname(K)) then else fi  else fi  ∈ extd-nameset(K)


Latex:


Latex:

1.  I  :  Cname  List
2.  K  :  Cname  List
3.  i  :  \mBbbN{}2
4.  f  :  name-morph(I;K)
5.  x  :  nameset(I+)
6.  \mneg{}(x  =  fresh-cname(I))
\mvdash{}  (uext(f)  ((fresh-cname(I):=i)  x))  =  (uext((fresh-cname(K):=i))  (f  x))


By


Latex:
(RepUR  ``face-map``  0\mcdot{}
  THEN  (AutoSplit  THEN  Try  ((Unfold  `guard`  -3  THEN  Auto)))
  THEN  Try  ((HypSubst'  (-1)  (-2)  THEN  Auto))
  THEN  RepUR  ``uext``  0
  THEN  (Subst'  isname(x)  \msim{}  tt  0  THENA  (RepeatFor  2  (DVar  `x')  THEN  RepUR  ``isname``  0  THEN  Auto))
  THEN  Reduce  0
  THEN  Assert  \mkleeneopen{}x  \mmember{}  nameset(I)\mkleeneclose{}\mcdot{})




Home Index