---

Step * 1 3 of Lemma csm-equiv-comp

.....subterm..... T:t
3:n
1. H : CubicalSet{j}
2. K : CubicalSet{j}
3. tau : K j⟶ H
4. A : {H ⊢ _}
5. E : {H ⊢ _}
6. cA : H ⊢ CompOp(A)
7. cE : H ⊢ CompOp(E)
8. K ⊢ CompOp((Equiv(A;E))tau) = K ⊢ CompOp(Equiv((A)tau;(E)tau)) ∈ 𝕌{[i'' | j'']}
9. (cfun-to-cop(H;Equiv(A;E);equiv_comp(H;A;E;cop-to-cfun(cA);cop-to-cfun(cE))))tau
= cfun-to-cop(K;(Equiv(A;E))tau;(equiv_comp(H;A;E;cop-to-cfun(cA);cop-to-cfun(cE)))tau)
∈ K ⊢ CompOp((Equiv(A;E))tau)
⊢ cfun-to-cop(K;Equiv((A)tau;(E)tau);equiv_comp(K;(A)tau;(E)tau;cop-to-cfun((cA)tau);cop-to-cfun((cE)tau)))
= cfun-to-cop(K;(Equiv(A;E))tau;(equiv_comp(H;A;E;cop-to-cfun(cA);cop-to-cfun(cE)))tau)
∈ K ⊢ CompOp(Equiv((A)tau;(E)tau))
BY
{ (EqCDA THEN InstLemma `csm-cubical-equiv` [⌜H⌝;⌜K⌝;⌜tau⌝;⌜A⌝;⌜E⌝]⋅ THEN Auto) }

---

Latex:

---

Latex:
.....subterm.....  T:t
3:n
1.  H  :  CubicalSet\{j\}
2.  K  :  CubicalSet\{j\}
3.  tau  :  K  j{}\mrightarrow{}  H
4.  A  :  \{H  \mvdash{}  \_\}
5.  E  :  \{H  \mvdash{}  \_\}
6.  cA  :  H  \mvdash{}  CompOp(A)
7.  cE  :  H  \mvdash{}  CompOp(E)
8.  K  \mvdash{}  CompOp((Equiv(A;E))tau)  =  K  \mvdash{}  CompOp(Equiv((A)tau;(E)tau))
9.  (cfun-to-cop(H;Equiv(A;E);equiv\_comp(H;A;E;cop-to-cfun(cA);cop-to-cfun(cE))))tau
=  cfun-to-cop(K;(Equiv(A;E))tau;(equiv\_comp(H;A;E;cop-to-cfun(cA);cop-to-cfun(cE)))tau)
\mvdash{}  cfun-to-cop(K;Equiv((A)tau;(E)tau)
            ;equiv\_comp(K;(A)tau;(E)tau;cop-to-cfun((cA)tau);cop-to-cfun((cE)tau)))
=  cfun-to-cop(K;(Equiv(A;E))tau;(equiv\_comp(H;A;E;cop-to-cfun(cA);cop-to-cfun(cE)))tau)


By

---

Latex:
(EqCDA  THEN  InstLemma  `csm-cubical-equiv`  [\mkleeneopen{}H\mkleeneclose{};\mkleeneopen{}K\mkleeneclose{};\mkleeneopen{}tau\mkleeneclose{};\mkleeneopen{}A\mkleeneclose{};\mkleeneopen{}E\mkleeneclose{}]\mcdot{}  THEN  Auto)

---

Home Index