---

Step * 2 of Lemma csm-cubical-isect

.....subterm..... T:t
2:n
1. X : CubicalSet
2. Delta : CubicalSet
3. A : {X ⊢ _}
4. B : {X.A ⊢ _}
5. s : Delta ⟶ X
⊢ (λI,J,f,a,u,K,g. (u K f ⋅ g))
= (λI,J,f,a,w,K,g. (w K f ⋅ g))
∈ (I:fset(ℕ)
  ⟶ J:fset(ℕ)
  ⟶ f:J ⟶ I
  ⟶ a:Delta(I)
  ⟶ ((λI,a. cubical-isect-family(X;A;B;I;(s)a)) I a)
  ⟶ ((λI,a. cubical-isect-family(X;A;B;I;(s)a)) J f(a)))
BY
{ (RepeatFor 5 ((EqCD THENA Auto)) THEN Reduce (-1) THEN Reduce 0 THEN Fold `member` 0) }

1
1. X : CubicalSet
2. Delta : CubicalSet
3. A : {X ⊢ _}
4. B : {X.A ⊢ _}
5. s : Delta ⟶ X
6. I : fset(ℕ)
7. J : fset(ℕ)
8. f : J ⟶ I
9. a : Delta(I)
10. u : cubical-isect-family(X;A;B;I;(s)a)
⊢ λK,g. (u K f ⋅ g) ∈ cubical-isect-family(X;A;B;J;(s)f(a))

---

Latex:

---

Latex:
.....subterm.....  T:t
2:n
1.  X  :  CubicalSet
2.  Delta  :  CubicalSet
3.  A  :  \{X  \mvdash{}  \_\}
4.  B  :  \{X.A  \mvdash{}  \_\}
5.  s  :  Delta  {}\mrightarrow{}  X
\mvdash{}  (\mlambda{}I,J,f,a,u,K,g.  (u  K  f  \mcdot{}  g))  =  (\mlambda{}I,J,f,a,w,K,g.  (w  K  f  \mcdot{}  g))


By

---

Latex:
(RepeatFor  5  ((EqCD  THENA  Auto))  THEN  Reduce  (-1)  THEN  Reduce  0  THEN  Fold  `member`  0)

---

Home Index