Step
*
of Lemma
cubical-term-at-morph
∀[X:CubicalSet]. ∀[A:{X ⊢ _}]. ∀[u:{X ⊢ _:A}]. ∀[I:Cname List]. ∀[a:X(I)]. ∀[J:Cname List]. ∀[f:name-morph(I;J)].
  ((u(a) a f) = u(f(a)) ∈ A(f(a)))
BY
{ (Auto
   THEN RepeatFor 2 (DVar `A')
   THEN DVar `u'
   THEN All Reduce
   THEN RepUR ``cubical-term-at cubical-type-ap-morph cubical-type-at`` 0
   THEN BackThruSomeHyp) }
Latex:
Latex:
\mforall{}[X:CubicalSet].  \mforall{}[A:\{X  \mvdash{}  \_\}].  \mforall{}[u:\{X  \mvdash{}  \_:A\}].  \mforall{}[I:Cname  List].  \mforall{}[a:X(I)].  \mforall{}[J:Cname  List].
\mforall{}[f:name-morph(I;J)].
    ((u(a)  a  f)  =  u(f(a)))
By
Latex:
(Auto
  THEN  RepeatFor  2  (DVar  `A')
  THEN  DVar  `u'
  THEN  All  Reduce
  THEN  RepUR  ``cubical-term-at  cubical-type-ap-morph  cubical-type-at``  0
  THEN  BackThruSomeHyp)
Home
Index