---

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

.....equality..... 
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. 3 < 1 + (||remove-repeats(CnameDeq;J)|| * 2)
8. CnameDeq ∈ EqDecider(nameset(I))
9. 1 < ||remove-repeats(CnameDeq;J)||
10. ¬(∃j1∈J. (∃j2∈J. ¬(j1 = j2 ∈ Cname)))
⊢ ||remove-repeats(CnameDeq;J)|| = 1 ∈ ℤ
BY
{ (BLemma `remove-repeats-length-one` THENA Auto) }

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. 3 < 1 + (||remove-repeats(CnameDeq;J)|| * 2)
8. CnameDeq ∈ EqDecider(nameset(I))
9. 1 < ||remove-repeats(CnameDeq;J)||
10. ¬(∃j1∈J. (∃j2∈J. ¬(j1 = j2 ∈ Cname)))
⊢ ∃x:nameset(I). ((x ∈ J) ∧ (∀y:nameset(I). y = x ∈ nameset(I) supposing (y ∈ J)))

---

Latex:

---

Latex:
.....equality..... 
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.  3  <  1  +  (||remove-repeats(CnameDeq;J)||  *  2)
8.  CnameDeq  \mmember{}  EqDecider(nameset(I))
9.  1  <  ||remove-repeats(CnameDeq;J)||
10.  \mneg{}(\mexists{}j1\mmember{}J.  (\mexists{}j2\mmember{}J.  \mneg{}(j1  =  j2)))
\mvdash{}  ||remove-repeats(CnameDeq;J)||  =  1


By

---

Latex:
(BLemma  `remove-repeats-length-one`  THENA  Auto)

---

Home Index