---

Step * 1 3 of Lemma cubical-pair_wf

.....wf..... 
1. X : CubicalSet
2. A : {X ⊢ _}
3. B : {X.A ⊢ _}
4. u : I:(Cname List) ⟶ a:X(I) ⟶ ((fst(A)) I a)
5. ∀I,J:Cname List. ∀f:name-morph(I;J). ∀a:X(I).  let A,F = A in (F I J f a (u I a)) = (u J f(a)) ∈ (A J f(a))
6. v : I:(Cname List) ⟶ a:X(I) ⟶ ((fst((B)[u])) I a)
7. ∀I,J:Cname List. ∀f:name-morph(I;J). ∀a:X(I).  let A,F = (B)[u] in (F I J f a (v I a)) = (v J f(a)) ∈ (A J f(a))
8. u ∈ {X ⊢ _:A}
9. u1 : I:(Cname List) ⟶ a:X(I) ⟶ ((fst(Σ A B)) I a)
⊢ ∀I,J:Cname List. ∀f:name-morph(I;J). ∀a:X(I).  let A,F = Σ A B in (F I J f a (u1 I a)) = (u1 J f(a)) ∈ (A J f(a))
  ∈ Type
BY
{ xxx(MoveToConcl (-1) THEN (GenConclTerm ⌜Σ A B⌝⋅ THENA Auto) THEN D -2 THEN D -3 THEN Reduce 0 THEN Auto)xxx }

---

Latex:

---

Latex:
.....wf..... 
1.  X  :  CubicalSet
2.  A  :  \{X  \mvdash{}  \_\}
3.  B  :  \{X.A  \mvdash{}  \_\}
4.  u  :  I:(Cname  List)  {}\mrightarrow{}  a:X(I)  {}\mrightarrow{}  ((fst(A))  I  a)
5.  \mforall{}I,J:Cname  List.  \mforall{}f:name-morph(I;J).  \mforall{}a:X(I).    let  A,F  =  A  in  (F  I  J  f  a  (u  I  a))  =  (u  J  f(a))
6.  v  :  I:(Cname  List)  {}\mrightarrow{}  a:X(I)  {}\mrightarrow{}  ((fst((B)[u]))  I  a)
7.  \mforall{}I,J:Cname  List.  \mforall{}f:name-morph(I;J).  \mforall{}a:X(I).
          let  A,F  =  (B)[u] 
          in  (F  I  J  f  a  (v  I  a))  =  (v  J  f(a))
8.  u  \mmember{}  \{X  \mvdash{}  \_:A\}
9.  u1  :  I:(Cname  List)  {}\mrightarrow{}  a:X(I)  {}\mrightarrow{}  ((fst(\mSigma{}  A  B))  I  a)
\mvdash{}  \mforall{}I,J:Cname  List.  \mforall{}f:name-morph(I;J).  \mforall{}a:X(I).
        let  A,F  =  \mSigma{}  A  B 
        in  (F  I  J  f  a  (u1  I  a))  =  (u1  J  f(a))  \mmember{}  Type


By

---

Latex:
xxx(MoveToConcl  (-1)
        THEN  (GenConclTerm  \mkleeneopen{}\mSigma{}  A  B\mkleeneclose{}\mcdot{}  THENA  Auto)
        THEN  D  -2
        THEN  D  -3
        THEN  Reduce  0
        THEN  Auto)xxx

---

Home Index