---

Step * 1 2 4 of Lemma face-maps-commute


1. I : Cname List
2. x : nameset(I)
3. i : ℕ2
4. y : nameset(I)
5. j : ℕ2
6. ¬(x = y ∈ Cname)
7. (y:=j) ∈ name-morph(I-[x];I-[x; y])
8. a : nameset(I)
9. a ≠ y
10. a ≠ x
⊢ if isname(a) then a else a fi  = if isname(a) then a else a fi  ∈ extd-nameset(I-[x; y])
BY
{ ((Subst' isname(a) ~ tt 0 THENA (RepeatFor 2 (DVar `a') THEN RepUR ``isname`` 0 THEN Auto)) THEN Reduce 0) }

1
1. I : Cname List
2. x : nameset(I)
3. i : ℕ2
4. y : nameset(I)
5. j : ℕ2
6. ¬(x = y ∈ Cname)
7. (y:=j) ∈ name-morph(I-[x];I-[x; y])
8. a : nameset(I)
9. a ≠ y
10. a ≠ x
⊢ a = a ∈ extd-nameset(I-[x; y])

---

Latex:

---

Latex:

1.  I  :  Cname  List
2.  x  :  nameset(I)
3.  i  :  \mBbbN{}2
4.  y  :  nameset(I)
5.  j  :  \mBbbN{}2
6.  \mneg{}(x  =  y)
7.  (y:=j)  \mmember{}  name-morph(I-[x];I-[x;  y])
8.  a  :  nameset(I)
9.  a  \mneq{}  y
10.  a  \mneq{}  x
\mvdash{}  if  isname(a)  then  a  else  a  fi    =  if  isname(a)  then  a  else  a  fi 


By

---

Latex:
((Subst'  isname(a)  \msim{}  tt  0  THENA  (RepeatFor  2  (DVar  `a')  THEN  RepUR  ``isname``  0  THEN  Auto))
  THEN  Reduce  0
  )

---

Home Index