---

Step * 1 1 of Lemma length-open_box-le-3


1. X : CubicalSet
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : ℕ2
6. box : open_box(X;I;J;x;i)
7. ¬↑null(J)
8. (1 + (||remove-repeats(CnameDeq;J)|| * 2)) ≤ 3
9. CnameDeq ∈ EqDecider(nameset(I))
10. ||remove-repeats(CnameDeq;J)|| ≤ 1
11. j' : nameset(I)
12. (j' ∈ J)
⊢ j' = hd(J) ∈ Cname
BY
{ Assert ⌜||remove-repeats(CnameDeq;J)|| = 1 ∈ ℤ⌝⋅ }

1
.....assertion..... 
1. X : CubicalSet
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : ℕ2
6. box : open_box(X;I;J;x;i)
7. ¬↑null(J)
8. (1 + (||remove-repeats(CnameDeq;J)|| * 2)) ≤ 3
9. CnameDeq ∈ EqDecider(nameset(I))
10. ||remove-repeats(CnameDeq;J)|| ≤ 1
11. j' : nameset(I)
12. (j' ∈ J)
⊢ ||remove-repeats(CnameDeq;J)|| = 1 ∈ ℤ

2
1. X : CubicalSet
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : ℕ2
6. box : open_box(X;I;J;x;i)
7. ¬↑null(J)
8. (1 + (||remove-repeats(CnameDeq;J)|| * 2)) ≤ 3
9. CnameDeq ∈ EqDecider(nameset(I))
10. ||remove-repeats(CnameDeq;J)|| ≤ 1
11. j' : nameset(I)
12. (j' ∈ J)
13. ||remove-repeats(CnameDeq;J)|| = 1 ∈ ℤ
⊢ j' = hd(J) ∈ Cname

---

Latex:

---

Latex:

1.  X  :  CubicalSet
2.  I  :  Cname  List
3.  J  :  nameset(I)  List
4.  x  :  nameset(I)
5.  i  :  \mBbbN{}2
6.  box  :  open\_box(X;I;J;x;i)
7.  \mneg{}\muparrow{}null(J)
8.  (1  +  (||remove-repeats(CnameDeq;J)||  *  2))  \mleq{}  3
9.  CnameDeq  \mmember{}  EqDecider(nameset(I))
10.  ||remove-repeats(CnameDeq;J)||  \mleq{}  1
11.  j'  :  nameset(I)
12.  (j'  \mmember{}  J)
\mvdash{}  j'  =  hd(J)


By

---

Latex:
Assert  \mkleeneopen{}||remove-repeats(CnameDeq;J)||  =  1\mkleeneclose{}\mcdot{}

---

Home Index