---

Step * 1 1 1 of Lemma adjacent-compatible-iff


1. X : CubicalSet
2. I : Cname List
3. L : I-face(X;I) List
4. adjacent-compatible(X;I;L)
5. f1 : I-face(X;I)
6. f2 : I-face(X;I)
7. i : ℕ
8. i < ||L||
9. f1 = L[i] ∈ I-face(X;I)
10. i1 : ℕ
11. i1 < ||L||
12. f2 = L[i1] ∈ I-face(X;I)
13. ¬(dimension(f1) = dimension(f2) ∈ Cname)
14. i < i1
⊢ (dimension(f2):=direction(f2))(cube(f1))
= (dimension(f1):=direction(f1))(cube(f2))
∈ X(I-[dimension(f1); dimension(f2)])
BY
{ ((With ⌜i1⌝ (D 4)⋅ THENA Auto)
   THEN (InstHyp [⌜i⌝] (-1)⋅ THENA Auto)
   THEN (SubstFor ⌜L[i1]⌝ (-1)⋅ THENA Auto)
   THEN (SubstFor ⌜L[i]⌝ (-1)⋅ THENA Auto)
   THEN (DVar  `f1' THEN DVar `f3')
   THEN DVar  `f2'
   THEN DVar `f6'
   THEN All (RepUR ``face-dimension face-direction face-cube face-compatible``)
   THEN ThinTrivial
   THEN Auto) }

---

Latex:

---

Latex:

1.  X  :  CubicalSet
2.  I  :  Cname  List
3.  L  :  I-face(X;I)  List
4.  adjacent-compatible(X;I;L)
5.  f1  :  I-face(X;I)
6.  f2  :  I-face(X;I)
7.  i  :  \mBbbN{}
8.  i  <  ||L||
9.  f1  =  L[i]
10.  i1  :  \mBbbN{}
11.  i1  <  ||L||
12.  f2  =  L[i1]
13.  \mneg{}(dimension(f1)  =  dimension(f2))
14.  i  <  i1
\mvdash{}  (dimension(f2):=direction(f2))(cube(f1))  =  (dimension(f1):=direction(f1))(cube(f2))


By

---

Latex:
((With  \mkleeneopen{}i1\mkleeneclose{}  (D  4)\mcdot{}  THENA  Auto)
  THEN  (InstHyp  [\mkleeneopen{}i\mkleeneclose{}]  (-1)\mcdot{}  THENA  Auto)
  THEN  (SubstFor  \mkleeneopen{}L[i1]\mkleeneclose{}  (-1)\mcdot{}  THENA  Auto)
  THEN  (SubstFor  \mkleeneopen{}L[i]\mkleeneclose{}  (-1)\mcdot{}  THENA  Auto)
  THEN  (DVar    `f1'  THEN  DVar  `f3')
  THEN  DVar    `f2'
  THEN  DVar  `f6'
  THEN  All  (RepUR  ``face-dimension  face-direction  face-cube  face-compatible``)
  THEN  ThinTrivial
  THEN  Auto)

---

Home Index