---

Step * 1 1 2 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)
13. ||remove-repeats(CnameDeq;J)|| = 1 ∈ ℤ
⊢ j' = hd(J) ∈ Cname
BY
{ ((FLemma `length_one` [-1] THENA Auto) THEN ExRepD) }

1
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 ∈ ℤ
14. x1 : nameset(I)
15. remove-repeats(CnameDeq;J) = [x1] ∈ (nameset(I) List)
⊢ 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)
13.  ||remove-repeats(CnameDeq;J)||  =  1
\mvdash{}  j'  =  hd(J)


By

---

Latex:
((FLemma  `length\_one`  [-1]  THENA  Auto)  THEN  ExRepD)

---

Home Index