---

Step * 1 5 1 3 of Lemma face-map-comp2


1. A : Cname List
2. B : Cname List
3. g : nameset(A) ⟶ extd-nameset(B)
4. ∀i,j:nameset(A).  ((↑isname(g i)) ⇒ (↑isname(g j)) ⇒ ((g i) = (g j) ∈ extd-nameset(B)) ⇒ (i = j ∈ nameset(A)))
5. x : nameset(A)
6. y : nameset(A)
7. i : ℕ2
8. j : ℕ2
9. ↑isname(g x)
10. ↑isname(g y)
11. ¬(x = y ∈ Cname)
12. g y ∈ nameset(B)
13. g x ∈ nameset(B)
14. a : nameset(A)
15. a ≠ x
16. a = y ∈ ℤ
⊢ if isname(g a)
then if isname(if (g a =z g x) then i else g a fi )
       then if (if (g a =z g x) then i else g a fi  =z g y) then j
            if (g a =z g x) then i
            else g a
            fi 
     if (g a =z g x) then i
     else g a
     fi 
else g a
fi 
= if isname(if isname(a) then j else a fi ) then g if isname(a) then j else a fi 
  if isname(a) then j
  else a
  fi 
∈ extd-nameset(B-[g x; g y])
BY
{ ((Subst' isname(a) ~ tt 0 THENA (Auto THEN RepeatFor 2 (DVar `a') THEN RepUR ``isname`` 0 THEN Auto))
   THEN Reduce 0
   THEN (Subst' isname(i) ~ ff 0 THENA (RepUR ``isname`` 0 THEN Auto))
   THEN Reduce 0) }

1
1. A : Cname List
2. B : Cname List
3. g : nameset(A) ⟶ extd-nameset(B)
4. ∀i,j:nameset(A).  ((↑isname(g i)) ⇒ (↑isname(g j)) ⇒ ((g i) = (g j) ∈ extd-nameset(B)) ⇒ (i = j ∈ nameset(A)))
5. x : nameset(A)
6. y : nameset(A)
7. i : ℕ2
8. j : ℕ2
9. ↑isname(g x)
10. ↑isname(g y)
11. ¬(x = y ∈ Cname)
12. g y ∈ nameset(B)
13. g x ∈ nameset(B)
14. a : nameset(A)
15. a ≠ x
16. a = y ∈ ℤ
⊢ if isname(g a)
then if isname(if (g a =z g x) then i else g a fi )
       then if (if (g a =z g x) then i else g a fi  =z g y) then j
            if (g a =z g x) then i
            else g a
            fi 
     if (g a =z g x) then i
     else g a
     fi 
else g a
fi 
= if isname(j) then g j else j fi 
∈ extd-nameset(B-[g x; g y])

---

Latex:

---

Latex:

1.  A  :  Cname  List
2.  B  :  Cname  List
3.  g  :  nameset(A)  {}\mrightarrow{}  extd-nameset(B)
4.  \mforall{}i,j:nameset(A).    ((\muparrow{}isname(g  i))  {}\mRightarrow{}  (\muparrow{}isname(g  j))  {}\mRightarrow{}  ((g  i)  =  (g  j))  {}\mRightarrow{}  (i  =  j))
5.  x  :  nameset(A)
6.  y  :  nameset(A)
7.  i  :  \mBbbN{}2
8.  j  :  \mBbbN{}2
9.  \muparrow{}isname(g  x)
10.  \muparrow{}isname(g  y)
11.  \mneg{}(x  =  y)
12.  g  y  \mmember{}  nameset(B)
13.  g  x  \mmember{}  nameset(B)
14.  a  :  nameset(A)
15.  a  \mneq{}  x
16.  a  =  y
\mvdash{}  if  isname(g  a)
then  if  isname(if  (g  a  =\msubz{}  g  x)  then  i  else  g  a  fi  )
              then  if  (if  (g  a  =\msubz{}  g  x)  then  i  else  g  a  fi    =\msubz{}  g  y)  then  j
                        if  (g  a  =\msubz{}  g  x)  then  i
                        else  g  a
                        fi 
          if  (g  a  =\msubz{}  g  x)  then  i
          else  g  a
          fi 
else  g  a
fi 
=  if  isname(if  isname(a)  then  j  else  a  fi  )  then  g  if  isname(a)  then  j  else  a  fi 
    if  isname(a)  then  j
    else  a
    fi 


By

---

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

---

Home Index