Step * of Lemma transEquiv-trans-eq

No Annotations
[G:j⊢]. ∀[A,B:{G ⊢ _:c𝕌}]. ∀[p:{G ⊢ _:(Path_c𝕌 B)}].
  (transEquivFun(p)
  I,a,J,f,u. ((snd((p(s(a)) I+new-name(I) 1 <new-name(I)>))) new-name(J) f,new-name(I)=new-name(J) 0 ⋅ 
                  (compOp(A) new-name(J) s(f(a)) 0 ⋅ u)))
  ∈ {G ⊢ _:(decode(A) ⟶ decode(B))})
BY
(Intros⋅
   THEN (InstLemma  `cubical-term-at_wf`  [⌜parm{j}⌝;⌜parm{i'}⌝;⌜G⌝;⌜(Path_c𝕌 B)⌝;⌜p⌝]⋅ THENA Auto)
   THEN (CubicalTermEqual THENA Auto)
   THEN Reduce 0) }

1
1. CubicalSet{j}
2. {G ⊢ _:c𝕌}
3. {G ⊢ _:c𝕌}
4. {G ⊢ _:(Path_c𝕌 B)}
5. ∀[I:fset(ℕ)]. ∀[a:G(I)].  (p(a) ∈ (Path_c𝕌 B)(a))
6. fset(ℕ)
7. G(I)
⊢ (transEquivFun(p) a)
J,f,u. ((snd((p(s(a)) I+new-name(I) 1 <new-name(I)>))) new-name(J) f,new-name(I)=new-name(J) 0 ⋅ 
            (compOp(A) new-name(J) s(f(a)) 0 ⋅ u)))
∈ (decode(A) ⟶ decode(B))(a)


Latex:


Latex:
No  Annotations
\mforall{}[G:j\mvdash{}].  \mforall{}[A,B:\{G  \mvdash{}  \_:c\mBbbU{}\}].  \mforall{}[p:\{G  \mvdash{}  \_:(Path\_c\mBbbU{}  A  B)\}].
    (transEquivFun(p)
    =  (\mlambda{}I,a,J,f,u.  ((snd((p(s(a))  I+new-name(I)  1  <new-name(I)>)))  J  new-name(J) 
                                    f,new-name(I)=new-name(J) 
                                    0 
                                    \mcdot{} 
                                    (compOp(A)  J  new-name(J)  s(f(a))  0  \mcdot{}  u))))


By


Latex:
(Intros\mcdot{}
  THEN  (InstLemma    `cubical-term-at\_wf`    [\mkleeneopen{}parm\{j\}\mkleeneclose{};\mkleeneopen{}parm\{i'\}\mkleeneclose{};\mkleeneopen{}G\mkleeneclose{};\mkleeneopen{}(Path\_c\mBbbU{}  A  B)\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (CubicalTermEqual  THENA  Auto)
  THEN  Reduce  0)




Home Index