Step * of Lemma cubical-type-restriction-eq

No Annotations
[X:j⊢]. ∀[T,A:{X ⊢ _}]. ∀[a:{X ⊢ _:A}]. ∀[g:I:fset(ℕ) ⟶ alpha:X(I) ⟶ T(alpha) ⟶ A(alpha)].
  cubical-type-restriction(X;T;I,alpha,t.(g alpha t) a(alpha) ∈ A(alpha)) 
  supposing ∀I,J:fset(ℕ). ∀f:J ⟶ I. ∀alpha:X(I). ∀t:T(alpha).
              ((g f(alpha) (t alpha f)) (g alpha alpha f) ∈ A(f(alpha)))
BY
(Unfold `cubical-type-restriction` 0
   THEN Intros
   THEN (RWO "cubical-term-at-morph<THENA Auto)
   THEN RWO  "-1<0
   THEN Auto) }


Latex:


Latex:
No  Annotations
\mforall{}[X:j\mvdash{}].  \mforall{}[T,A:\{X  \mvdash{}  \_\}].  \mforall{}[a:\{X  \mvdash{}  \_:A\}].  \mforall{}[g:I:fset(\mBbbN{})  {}\mrightarrow{}  alpha:X(I)  {}\mrightarrow{}  T(alpha)  {}\mrightarrow{}  A(alpha)].
    cubical-type-restriction(X;T;I,alpha,t.(g  I  alpha  t)  =  a(alpha)) 
    supposing  \mforall{}I,J:fset(\mBbbN{}).  \mforall{}f:J  {}\mrightarrow{}  I.  \mforall{}alpha:X(I).  \mforall{}t:T(alpha).
                            ((g  J  f(alpha)  (t  alpha  f))  =  (g  I  alpha  t  alpha  f))


By


Latex:
(Unfold  `cubical-type-restriction`  0
  THEN  Intros
  THEN  (RWO  "cubical-term-at-morph<"  0  THENA  Auto)
  THEN  RWO    "-1<"  0
  THEN  Auto)




Home Index