---

Step * 1 1 1 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])
⊢ ((y:=j) o (x:=i)) ∈ name-morph(I;I-[x; y])
BY
{ (Thin (-1)
   THEN (Assert (x:=i) ∈ name-morph(I-[y];I-[x; y]) BY
               (SubsumeC ⌜name-morph(I-[y];I-[y]-[x])⌝⋅ THEN Auto THEN RWO "list-diff2-sym" 0 THEN Auto))
   ) }

1
1. I : Cname List
2. x : nameset(I)
3. i : ℕ2
4. y : nameset(I)
5. j : ℕ2
6. ¬(x = y ∈ Cname)
7. (x:=i) ∈ name-morph(I-[y];I-[x; y])
⊢ ((y:=j) o (x:=i)) ∈ name-morph(I;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])
\mvdash{}  ((y:=j)  o  (x:=i))  \mmember{}  name-morph(I;I-[x;  y])


By

---

Latex:
(Thin  (-1)
  THEN  (Assert  (x:=i)  \mmember{}  name-morph(I-[y];I-[x;  y])  BY
                          (SubsumeC  \mkleeneopen{}name-morph(I-[y];I-[y]-[x])\mkleeneclose{}\mcdot{}
                            THEN  Auto
                            THEN  RWO  "list-diff2-sym"  0
                            THEN  Auto))
  )

---

Home Index