---

Step * 2 1 of Lemma paths-are-refl-iff2


1. X : CubicalSet{j}
2. A : {X ⊢ _}
3. ∀Z:j⊢. ∀s:Z j⟶ X. ∀p:{Z ⊢ _:Path((A)s)}.  ∀[x,y:{Z ⊢ _:𝕀}].  (p @ x = p @ y ∈ {Z ⊢ _:(A)s}) 
   supposing ∀Z:j⊢. ∀s:Z j⟶ X. ∀p:{Z ⊢ _:Path((A)s)}.  (p = refl(p @ 0(𝕀)) ∈ {Z ⊢ _:Path((A)s)})
4. ∀Z:j⊢. ∀s:Z j⟶ X. ∀p:{Z.𝕀 ⊢ _:((A)s)p}.  ∀[x,y:{Z ⊢ _:𝕀}].  ((p)[x] = (p)[y] ∈ {Z ⊢ _:(A)s})
5. Z : CubicalSet{j}
6. ∀s:Z j⟶ X. ∀p:{Z.𝕀 ⊢ _:((A)s)p}.  ∀[x,y:{Z ⊢ _:𝕀}].  ((p)[x] = (p)[y] ∈ {Z ⊢ _:(A)s})
7. s : Z j⟶ X
8. ∀p:{Z.𝕀 ⊢ _:((A)s)p}. ∀[x,y:{Z ⊢ _:𝕀}].  ((p)[x] = (p)[y] ∈ {Z ⊢ _:(A)s})
9. p : {Z ⊢ _:Path((A)s)}
10. x : {Z ⊢ _:𝕀}
11. y : {Z ⊢ _:𝕀}
⊢ p @ x = p @ y ∈ {Z ⊢ _:(A)s}
BY
{ ((InstHyp [⌜path-eta(p)⌝;⌜x⌝;⌜y⌝] (-4)⋅ THEN Auto) THEN NthHypEqGen (-1) THEN EqCDA THEN Auto) }

---

Latex:

---

Latex:

1.  X  :  CubicalSet\{j\}
2.  A  :  \{X  \mvdash{}  \_\}
3.  \mforall{}Z:j\mvdash{}.  \mforall{}s:Z  j{}\mrightarrow{}  X.  \mforall{}p:\{Z  \mvdash{}  \_:Path((A)s)\}.    \mforall{}[x,y:\{Z  \mvdash{}  \_:\mBbbI{}\}].    (p  @  x  =  p  @  y) 
      supposing  \mforall{}Z:j\mvdash{}.  \mforall{}s:Z  j{}\mrightarrow{}  X.  \mforall{}p:\{Z  \mvdash{}  \_:Path((A)s)\}.    (p  =  refl(p  @  0(\mBbbI{})))
4.  \mforall{}Z:j\mvdash{}.  \mforall{}s:Z  j{}\mrightarrow{}  X.  \mforall{}p:\{Z.\mBbbI{}  \mvdash{}  \_:((A)s)p\}.    \mforall{}[x,y:\{Z  \mvdash{}  \_:\mBbbI{}\}].    ((p)[x]  =  (p)[y])
5.  Z  :  CubicalSet\{j\}
6.  \mforall{}s:Z  j{}\mrightarrow{}  X.  \mforall{}p:\{Z.\mBbbI{}  \mvdash{}  \_:((A)s)p\}.    \mforall{}[x,y:\{Z  \mvdash{}  \_:\mBbbI{}\}].    ((p)[x]  =  (p)[y])
7.  s  :  Z  j{}\mrightarrow{}  X
8.  \mforall{}p:\{Z.\mBbbI{}  \mvdash{}  \_:((A)s)p\}.  \mforall{}[x,y:\{Z  \mvdash{}  \_:\mBbbI{}\}].    ((p)[x]  =  (p)[y])
9.  p  :  \{Z  \mvdash{}  \_:Path((A)s)\}
10.  x  :  \{Z  \mvdash{}  \_:\mBbbI{}\}
11.  y  :  \{Z  \mvdash{}  \_:\mBbbI{}\}
\mvdash{}  p  @  x  =  p  @  y


By

---

Latex:
((InstHyp  [\mkleeneopen{}path-eta(p)\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{}]  (-4)\mcdot{}  THEN  Auto)  THEN  NthHypEqGen  (-1)  THEN  EqCDA  THEN  Auto)

---

Home Index