---

Step * 1 of Lemma iota'-comp


1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. x : nameset(I)
⊢ if isname(f x) then f x else f x fi 
= if isname(x) then if CnameDeq x fresh-cname(I) then fresh-cname(J) else f x fi  else x fi 
∈ extd-nameset(J+)
BY
{ TACTIC:((Subst' isname(x) ~ tt 0 THENA (RepeatFor 2 (DVar `x') THEN RepUR ``isname`` 0 THEN Auto))
          THEN Reduce 0
          THEN Fold `eq-cname` 0
          THEN Assert ⌜¬(x = fresh-cname(I) ∈ Cname)⌝⋅) }

1
.....assertion..... 
1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. x : nameset(I)
⊢ ¬(x = fresh-cname(I) ∈ Cname)

2
1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. x : nameset(I)
5. ¬(x = fresh-cname(I) ∈ Cname)
⊢ if isname(f x) then f x else f x fi 
= if eq-cname(x;fresh-cname(I)) then fresh-cname(J) else f x fi 
∈ extd-nameset(J+)

---

Latex:

---

Latex:

1.  I  :  Cname  List
2.  J  :  Cname  List
3.  f  :  name-morph(I;J)
4.  x  :  nameset(I)
\mvdash{}  if  isname(f  x)  then  f  x  else  f  x  fi 
=  if  isname(x)  then  if  CnameDeq  x  fresh-cname(I)  then  fresh-cname(J)  else  f  x  fi    else  x  fi 


By

---

Latex:
TACTIC:((Subst'  isname(x)  \msim{}  tt  0  THENA  (RepeatFor  2  (DVar  `x')  THEN  RepUR  ``isname``  0  THEN  Auto))
                THEN  Reduce  0
                THEN  Fold  `eq-cname`  0
                THEN  Assert  \mkleeneopen{}\mneg{}(x  =  fresh-cname(I))\mkleeneclose{}\mcdot{})

---

Home Index