---

Step * 1 2 2 2 2 of Lemma lift-reduce-face-map


1. I : Cname List
2. x : nameset(I)
3. c : ℕ2
4. i : ℕ2
5. v : Cname
6. ¬(v ∈ I)
7. ¬(v ∈ [x])
8. I-[x]-[v] = I-[x] ∈ (Cname List)
9. [v / I]-[x]-[v] = I-[x] ∈ (Cname List)
10. [v / I]-[x] = [v / I-[x]] ∈ (Cname List)
⊢ (iota(v) o ((x:=i) o (v:=c))) = (x:=i) ∈ name-morph(I;I-[x])
BY
{ (InstLemma `name-comp-assoc` 
   [⌜I⌝;⌜[v / I]⌝;⌜[v / I]-[x]⌝;⌜[v / I]-[x]-[v]⌝
    ; ⌜iota(v)⌝; ⌜(x:=i)⌝; ⌜(v:=c)⌝
   ]⋅
   THENA Auto
   ) }

1
1. I : Cname List
2. x : nameset(I)
3. c : ℕ2
4. i : ℕ2
5. v : Cname
6. ¬(v ∈ I)
7. ¬(v ∈ [x])
8. I-[x]-[v] = I-[x] ∈ (Cname List)
9. [v / I]-[x]-[v] = I-[x] ∈ (Cname List)
10. [v / I]-[x] = [v / I-[x]] ∈ (Cname List)
11. ((iota(v) o (x:=i)) o (v:=c)) = (iota(v) o ((x:=i) o (v:=c))) ∈ name-morph(I;[v / I]-[x]-[v])
⊢ (iota(v) o ((x:=i) o (v:=c))) = (x:=i) ∈ name-morph(I;I-[x])

---

Latex:

---

Latex:

1.  I  :  Cname  List
2.  x  :  nameset(I)
3.  c  :  \mBbbN{}2
4.  i  :  \mBbbN{}2
5.  v  :  Cname
6.  \mneg{}(v  \mmember{}  I)
7.  \mneg{}(v  \mmember{}  [x])
8.  I-[x]-[v]  =  I-[x]
9.  [v  /  I]-[x]-[v]  =  I-[x]
10.  [v  /  I]-[x]  =  [v  /  I-[x]]
\mvdash{}  (iota(v)  o  ((x:=i)  o  (v:=c)))  =  (x:=i)


By

---

Latex:
(InstLemma  `name-comp-assoc` 
  [\mkleeneopen{}I\mkleeneclose{};\mkleeneopen{}[v  /  I]\mkleeneclose{};\mkleeneopen{}[v  /  I]-[x]\mkleeneclose{};\mkleeneopen{}[v  /  I]-[x]-[v]\mkleeneclose{}
    ;  \mkleeneopen{}iota(v)\mkleeneclose{};  \mkleeneopen{}(x:=i)\mkleeneclose{};  \mkleeneopen{}(v:=c)\mkleeneclose{}
  ]\mcdot{}
  THENA  Auto
  )

---

Home Index