Step * of Lemma cubical-isect_wf

[X:⊢]. ∀[A:{X ⊢ _}]. ∀[B:{X.A ⊢ _}].  X ⊢ ⋂B
BY
(Auto THEN Unfold `cubical-isect` THEN MemTypeCD) }

1
1. CubicalSet
2. {X ⊢ _}
3. {X.A ⊢ _}
⊢ <λI,a. cubical-isect-family(X;A;B;I;a), λI,J,f,a,w,K,g. (w f ⋅ g)> ∈ A:I:fset(ℕ) ⟶ X(I) ⟶ Type × (I:fset(ℕ)
                                                                                     ⟶ J:fset(ℕ)
                                                                                     ⟶ f:J ⟶ I
                                                                                     ⟶ a:X(I)
                                                                                     ⟶ (A a)
                                                                                     ⟶ (A f(a)))

2
.....set predicate..... 
1. CubicalSet
2. {X ⊢ _}
3. {X.A ⊢ _}
⊢ let A,F = <λI,a. cubical-isect-family(X;A;B;I;a), λI,J,f,a,w,K,g. (w f ⋅ g)> 
  in (∀I:fset(ℕ). ∀a:X(I). ∀u:A a.  ((F u) u ∈ (A a)))
     ∧ (∀I,J,K:fset(ℕ). ∀f:J ⟶ I. ∀g:K ⟶ J. ∀a:X(I). ∀u:A a.
          ((F f ⋅ u) (F f(a) (F u)) ∈ (A f ⋅ g(a))))

3
.....wf..... 
1. CubicalSet
2. {X ⊢ _}
3. {X.A ⊢ _}
4. AF A:I:fset(ℕ) ⟶ X(I) ⟶ Type × (I:fset(ℕ) ⟶ J:fset(ℕ) ⟶ f:J ⟶ I ⟶ a:X(I) ⟶ (A a) ⟶ (A f(a)))
⊢ istype(let A,F AF 
         in (∀I:fset(ℕ). ∀a:X(I). ∀u:A a.  ((F u) u ∈ (A a)))
            ∧ (∀I,J,K:fset(ℕ). ∀f:J ⟶ I. ∀g:K ⟶ J. ∀a:X(I). ∀u:A a.
                 ((F f ⋅ u) (F f(a) (F u)) ∈ (A f ⋅ g(a)))))


Latex:


Latex:
\mforall{}[X:\mvdash{}].  \mforall{}[A:\{X  \mvdash{}  \_\}].  \mforall{}[B:\{X.A  \mvdash{}  \_\}].    X  \mvdash{}  \mcap{}A  B


By


Latex:
(Auto  THEN  Unfold  `cubical-isect`  0  THEN  MemTypeCD)




Home Index