Step * of Lemma unglue-glue

No Annotations
[Gamma:j⊢]. ∀[A:{Gamma ⊢ _}]. ∀[phi:{Gamma ⊢ _:𝔽}]. ∀[T:{Gamma, phi ⊢ _}]. ∀[w:{Gamma, phi ⊢ _:(T ⟶ A)}].
[t:{Gamma, phi ⊢ _:T}]. ∀[a:{Gamma ⊢ _:A[phi |⟶ app(w; t)]}].
  (unglue(glue [phi ⊢→ t] a) a ∈ {Gamma ⊢ _:A})
BY
((Intros THEN DVar `a')
   THEN (CubicalTermEqual THENA Auto)
   THEN RepUR ``unglue-term glue-term cubical-term-at`` 0
   THEN RenameVar `rho' (-1)
   THEN (BoolCase ⌜(phi rho==1)⌝⋅ THENA Auto)
   THEN Fold `cubical-term-at` 0
   THEN MemberAuto) }

1
1. Gamma CubicalSet{j}
2. {Gamma ⊢ _}
3. phi {Gamma ⊢ _:𝔽}
4. {Gamma, phi ⊢ _}
5. {Gamma, phi ⊢ _:(T ⟶ A)}
6. {Gamma, phi ⊢ _:T}
7. {Gamma ⊢ _:A}
8. app(w; t) a ∈ {Gamma, phi ⊢ _:A}
9. fset(ℕ)
10. rho Gamma(I)
11. (phi rho) 1 ∈ Point(face_lattice(I))
⊢ (w(rho)(1) t(rho)) a(rho) ∈ A(rho)


Latex:


Latex:
No  Annotations
\mforall{}[Gamma:j\mvdash{}].  \mforall{}[A:\{Gamma  \mvdash{}  \_\}].  \mforall{}[phi:\{Gamma  \mvdash{}  \_:\mBbbF{}\}].  \mforall{}[T:\{Gamma,  phi  \mvdash{}  \_\}].
\mforall{}[w:\{Gamma,  phi  \mvdash{}  \_:(T  {}\mrightarrow{}  A)\}].  \mforall{}[t:\{Gamma,  phi  \mvdash{}  \_:T\}].  \mforall{}[a:\{Gamma  \mvdash{}  \_:A[phi  |{}\mrightarrow{}  app(w;  t)]\}].
    (unglue(glue  [phi  \mvdash{}\mrightarrow{}  t]  a)  =  a)


By


Latex:
((Intros  THEN  DVar  `a')
  THEN  (CubicalTermEqual  THENA  Auto)
  THEN  RepUR  ``unglue-term  glue-term  cubical-term-at``  0
  THEN  RenameVar  `rho'  (-1)
  THEN  (BoolCase  \mkleeneopen{}(phi  I  rho==1)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  Fold  `cubical-term-at`  0
  THEN  MemberAuto)




Home Index