Step * of Lemma universe-path-type-lemma-1

No Annotations
G:j⊢. ∀A,B:{G ⊢ _:c𝕌}. ∀p:{G ⊢ _:(Path_c𝕌 B)}. ∀I,J:fset(ℕ). ∀f:J ⟶ I. ∀v:G(I+new-name(I)).
  (universe-type(B;I+new-name(I);v)((new-name(I)1) ⋅ f)
  fst((p(v) I+new-name(I) 1 <new-name(I)>))((new-name(I)1) ⋅ f)
  ∈ Type)
BY
(Intros⋅
   THEN (InstLemma `cubical-term-at_wf` [⌜parm{j}⌝;⌜parm{i'}⌝;⌜G⌝;⌜(Path_c𝕌 B)⌝;⌜p⌝;⌜I+new-name(I)⌝;⌜v⌝]⋅ THENA Auto)
   THEN DupHyp (-1)
   THEN (RWO "path-type-at" (-1) THENA Auto)
   THEN ((MemTypeHD (-1) THENA (D -1 THEN Auto)) THEN Fold `member` (-2))
   THEN (MemTypeHD (-2) THENA (D -1 THEN Auto))
   THEN Fold `member` (-3)
   THEN RepUR ``cubical-universe closed-cubical-universe`` -1
   THEN RepUR ``cubical-universe closed-cubical-universe`` -2
   THEN RepUR ``cubical-universe closed-cubical-universe`` -3
   THEN RepUR ``closed-type-to-type csm-fibrant-type`` -1
   THEN RepUR ``closed-type-to-type csm-fibrant-type`` -2
   THEN RepUR ``closed-type-to-type csm-fibrant-type`` -3
   THEN -1
   THEN Thin (-2)
   ⋅}

1
1. CubicalSet{j}
2. {G ⊢ _:c𝕌}
3. {G ⊢ _:c𝕌}
4. {G ⊢ _:(Path_c𝕌 B)}
5. fset(ℕ)
6. fset(ℕ)
7. J ⟶ I
8. G(I+new-name(I))
9. p(v) ∈ (Path_c𝕌 B)(v)
10. p(v) ∈ J:fset(ℕ) ⟶ f:J ⟶ I+new-name(I) ⟶ u:Point(dM(J)) ⟶ FibrantType(formal-cube(J))
11. ∀J,K:fset(ℕ). ∀f:J ⟶ I+new-name(I). ∀g:K ⟶ J. ∀u:Point(dM(J)).
      (let A,cA p(v) in <(A)<g>(cA)<g>> (p(v) f ⋅ (u f(v) g)) ∈ FibrantType(formal-cube(K)))
12. (p(v) I+new-name(I) 1) B(v) ∈ FibrantType(formal-cube(I+new-name(I)))
⊢ universe-type(B;I+new-name(I);v)((new-name(I)1) ⋅ f)
fst((p(v) I+new-name(I) 1 <new-name(I)>))((new-name(I)1) ⋅ f)
∈ Type


Latex:


Latex:
No  Annotations
\mforall{}G:j\mvdash{}.  \mforall{}A,B:\{G  \mvdash{}  \_:c\mBbbU{}\}.  \mforall{}p:\{G  \mvdash{}  \_:(Path\_c\mBbbU{}  A  B)\}.  \mforall{}I,J:fset(\mBbbN{}).  \mforall{}f:J  {}\mrightarrow{}  I.  \mforall{}v:G(I+new-name(I)).
    (universe-type(B;I+new-name(I);v)((new-name(I)1)  \mcdot{}  f)
    =  fst((p(v)  I+new-name(I)  1  <new-name(I)>))((new-name(I)1)  \mcdot{}  f))


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{};\mkleeneopen{}I+new-name(I)\mkleeneclose{};
              \mkleeneopen{}v\mkleeneclose{}]\mcdot{}
              THENA  Auto
              )
  THEN  DupHyp  (-1)
  THEN  (RWO  "path-type-at"  (-1)  THENA  Auto)
  THEN  ((MemTypeHD  (-1)  THENA  (D  -1  THEN  Auto))  THEN  Fold  `member`  (-2))
  THEN  (MemTypeHD  (-2)  THENA  (D  -1  THEN  Auto))
  THEN  Fold  `member`  (-3)
  THEN  RepUR  ``cubical-universe  closed-cubical-universe``  -1
  THEN  RepUR  ``cubical-universe  closed-cubical-universe``  -2
  THEN  RepUR  ``cubical-universe  closed-cubical-universe``  -3
  THEN  RepUR  ``closed-type-to-type  csm-fibrant-type``  -1
  THEN  RepUR  ``closed-type-to-type  csm-fibrant-type``  -2
  THEN  RepUR  ``closed-type-to-type  csm-fibrant-type``  -3
  THEN  D  -1
  THEN  Thin  (-2)
  \mcdot{})




Home Index