---

Step * 3 of Lemma case-type-same1


1. Gamma : CubicalSet{j}
2. phi : {Gamma ⊢ _:𝔽}
3. A : {Gamma, phi ⊢ _}
4. psi : {Gamma ⊢ _:𝔽}
5. B : {Gamma, psi ⊢ _}
⊢ A
= (if phi then A else B)
∈ (A:I:fset(ℕ) ⟶ Gamma, phi(I) ⟶ Type × (I:fset(ℕ)
                                          ⟶ J:fset(ℕ)
                                          ⟶ f:J ⟶ I
                                          ⟶ a:Gamma, phi(I)
                                          ⟶ (A I a)
                                          ⟶ (A J f(a))))
BY
{ (RepeatFor 2 (DVar `A')
   THEN RepUR ``case-type`` 0
   THEN EqCD
   THEN Auto
   THEN Repeat (((FunExt THENA Auto) THEN Reduce 0))) }

1
1. Gamma : CubicalSet{j}
2. phi : {Gamma ⊢ _:𝔽}
3. A1 : I:fset(ℕ) ⟶ Gamma, phi(I) ⟶ Type
4. A2 : I:fset(ℕ) ⟶ J:fset(ℕ) ⟶ f:J ⟶ I ⟶ a:Gamma, phi(I) ⟶ (A1 I a) ⟶ (A1 J f(a))
5. let A,F = <A1, A2> 
   in (∀I:fset(ℕ). ∀a:Gamma, phi(I). ∀u:A I a.  ((F I I 1 a u) = u ∈ (A I a)))
      ∧ (∀I,J,K:fset(ℕ). ∀f:J ⟶ I. ∀g:K ⟶ J. ∀a:Gamma, phi(I). ∀u:A I a.
           ((F I K f ⋅ g a u) = (F J K g f(a) (F I J f a u)) ∈ (A K f ⋅ g(a))))
6. psi : {Gamma ⊢ _:𝔽}
7. B : {Gamma, psi ⊢ _}
8. I : fset(ℕ)
9. x : Gamma, phi(I)
⊢ (A1 I x) = case-cube(phi;<A1, A2>;B;I;x) ∈ Type

2
1. Gamma : CubicalSet{j}
2. phi : {Gamma ⊢ _:𝔽}
3. A1 : I:fset(ℕ) ⟶ Gamma, phi(I) ⟶ Type
4. A2 : I:fset(ℕ) ⟶ J:fset(ℕ) ⟶ f:J ⟶ I ⟶ a:Gamma, phi(I) ⟶ (A1 I a) ⟶ (A1 J f(a))
5. let A,F = <A1, A2> 
   in (∀I:fset(ℕ). ∀a:Gamma, phi(I). ∀u:A I a.  ((F I I 1 a u) = u ∈ (A I a)))
      ∧ (∀I,J,K:fset(ℕ). ∀f:J ⟶ I. ∀g:K ⟶ J. ∀a:Gamma, phi(I). ∀u:A I a.
           ((F I K f ⋅ g a u) = (F J K g f(a) (F I J f a u)) ∈ (A K f ⋅ g(a))))
6. psi : {Gamma ⊢ _:𝔽}
7. B : {Gamma, psi ⊢ _}
8. I : fset(ℕ)
9. J : fset(ℕ)
10. f : J ⟶ I
11. a : Gamma, phi(I)
12. x : A1 I a
⊢ (A2 I J f a x) = if (phi(a)==1) then A2 I J f a x else (x a f) fi  ∈ (A1 J f(a))

---

Latex:

---

Latex:

1.  Gamma  :  CubicalSet\{j\}
2.  phi  :  \{Gamma  \mvdash{}  \_:\mBbbF{}\}
3.  A  :  \{Gamma,  phi  \mvdash{}  \_\}
4.  psi  :  \{Gamma  \mvdash{}  \_:\mBbbF{}\}
5.  B  :  \{Gamma,  psi  \mvdash{}  \_\}
\mvdash{}  A  =  (if  phi  then  A  else  B)


By

---

Latex:
(RepeatFor  2  (DVar  `A')
  THEN  RepUR  ``case-type``  0
  THEN  EqCD
  THEN  Auto
  THEN  Repeat  (((FunExt  THENA  Auto)  THEN  Reduce  0)))

---

Home Index