Step
*
of Lemma
cubical-app_wf
No Annotations
∀[X:CubicalSet]. ∀[A:{X ⊢ _}]. ∀[B:{X.A ⊢ _}]. ∀[w:{X ⊢ _:ΠA B}]. ∀[u:{X ⊢ _:A}].  (app(w; u) ∈ {X ⊢ _:(B)[u]})
BY
{ (Auto
   THEN (MemTypeCD
         THENW (MoveToConcl (-1) THEN (GenConclTerm ⌜(B)[u]⌝⋅ THENA Auto) THEN (D -2 THEN D -3) THEN Reduce 0 THEN Auto)
         )
   ) }
1
1. X : CubicalSet
2. A : {X ⊢ _}
3. B : {X.A ⊢ _}
4. w : {X ⊢ _:ΠA B}
5. u : {X ⊢ _:A}
⊢ app(w; u) ∈ I:(Cname List) ⟶ a:X(I) ⟶ ((fst((B)[u])) I a)
2
.....set predicate..... 
1. X : CubicalSet
2. A : {X ⊢ _}
3. B : {X.A ⊢ _}
4. w : {X ⊢ _:ΠA B}
5. u : {X ⊢ _:A}
⊢ ∀I,J:Cname List. ∀f:name-morph(I;J). ∀a:X(I).
    let A,F = (B)[u] 
    in (F I J f a (app(w; u) I a)) = (app(w; u) J f(a)) ∈ (A J f(a))
Latex:
Latex:
No  Annotations
\mforall{}[X:CubicalSet].  \mforall{}[A:\{X  \mvdash{}  \_\}].  \mforall{}[B:\{X.A  \mvdash{}  \_\}].  \mforall{}[w:\{X  \mvdash{}  \_:\mPi{}A  B\}].  \mforall{}[u:\{X  \mvdash{}  \_:A\}].
    (app(w;  u)  \mmember{}  \{X  \mvdash{}  \_:(B)[u]\})
By
Latex:
(Auto
  THEN  (MemTypeCD
              THENW  (MoveToConcl  (-1)
                            THEN  (GenConclTerm  \mkleeneopen{}(B)[u]\mkleeneclose{}\mcdot{}  THENA  Auto)
                            THEN  (D  -2  THEN  D  -3)
                            THEN  Reduce  0
                            THEN  Auto)
              )
  )
Home
Index