---

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


1. I : Cname List
2. K : Cname List
3. f : name-morph(I;K)
4. z : Cname
5. x : Cname
6. i : ℕ2
7. ¬(x ∈ K)
8. ¬(z ∈ I)
9. x1 : nameset([z / I])
10. x1 = z ∈ Cname
11. x1 = z ∈ ℤ
⊢ if isname(x) then i else x fi  = if isname(i) then f i else i fi  ∈ extd-nameset(K)
BY
{ (TACTIC:(OReduce 0 THENA Auto)
   THEN (Subst' isname(x) ~ tt 0 THENA (DVar `x' THEN RepUR ``isname`` 0 THEN Auto))
   THEN (Subst' isname(i) ~ ff 0 THENA (RepUR ``isname`` 0 THEN Auto))
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  I  :  Cname  List
2.  K  :  Cname  List
3.  f  :  name-morph(I;K)
4.  z  :  Cname
5.  x  :  Cname
6.  i  :  \mBbbN{}2
7.  \mneg{}(x  \mmember{}  K)
8.  \mneg{}(z  \mmember{}  I)
9.  x1  :  nameset([z  /  I])
10.  x1  =  z
11.  x1  =  z
\mvdash{}  if  isname(x)  then  i  else  x  fi    =  if  isname(i)  then  f  i  else  i  fi 


By

---

Latex:
(TACTIC:(OReduce  0  THENA  Auto)
  THEN  (Subst'  isname(x)  \msim{}  tt  0  THENA  (DVar  `x'  THEN  RepUR  ``isname``  0  THEN  Auto))
  THEN  (Subst'  isname(i)  \msim{}  ff  0  THENA  (RepUR  ``isname``  0  THEN  Auto))
  THEN  Reduce  0
  THEN  Auto)

---

Home Index