---

Step * 1 of Lemma cubical-type-ap-rename-one-equal

.....assertion..... 
1. X : CubicalSet
2. A : {X ⊢ _}
3. I : Cname List
4. x : Cname
5. y : Cname
6. a : X([x / I])
7. u : A(a)
8. v : A(a)
9. ¬(y ∈ I)
10. ¬(x ∈ I)
11. (u a rename-one-name(x;y)) = (v a rename-one-name(x;y)) ∈ A(rename-one-name(x;y)(a))
⊢ (rename-one-name(x;y) o rename-one-name(y;x)) = 1 ∈ name-morph([x / I];[x / I])
BY
{ ((InstLemma `rename-one-comp` [⌜I⌝]⋅ THENA Auto) THEN RWO "-1" 0 THEN Auto THEN EAuto 1) }

---

Latex:

---

Latex:
.....assertion..... 
1.  X  :  CubicalSet
2.  A  :  \{X  \mvdash{}  \_\}
3.  I  :  Cname  List
4.  x  :  Cname
5.  y  :  Cname
6.  a  :  X([x  /  I])
7.  u  :  A(a)
8.  v  :  A(a)
9.  \mneg{}(y  \mmember{}  I)
10.  \mneg{}(x  \mmember{}  I)
11.  (u  a  rename-one-name(x;y))  =  (v  a  rename-one-name(x;y))
\mvdash{}  (rename-one-name(x;y)  o  rename-one-name(y;x))  =  1


By

---

Latex:
((InstLemma  `rename-one-comp`  [\mkleeneopen{}I\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  RWO  "-1"  0  THEN  Auto  THEN  EAuto  1)

---

Home Index