Step * 2 of Lemma case-type-comp-partition


1. Gamma CubicalSet{j}
2. phi {Gamma ⊢ _:𝔽}
3. psi {Gamma ⊢ _:𝔽}
4. {Gamma, phi ⊢ _}
5. {Gamma, psi ⊢ _}
6. cA Gamma, phi ⊢ Compositon(A)
7. cB Gamma, psi ⊢ Compositon(B)
8. Gamma ⊢ ((phi ∧ psi)  0(𝔽))
9. Gamma ⊢ (1(𝔽 (phi ∨ psi))
10. case-type-comp(Gamma; phi; psi; A; B; cA; cB) ∈ Gamma, (phi ∨ psi) ⊢ Compositon((if phi then else B))
11. case-type-comp(Gamma; phi; psi; A; B; cA; cB)
case-type-comp(Gamma; phi; psi; A; B; cA; cB)
∈ Gamma, (phi ∨ psi) ⊢ Compositon((if phi then else B))
⊢ Gamma, (phi ∧ psi) ⊢ B
BY
(Unfold `same-cubical-type` THEN SubsumeC ⌜{Gamma, 0(𝔽) ⊢ _}⌝⋅ THEN Try (Fold `same-cubical-type` 0) THEN Auto) }


Latex:


Latex:

1.  Gamma  :  CubicalSet\{j\}
2.  phi  :  \{Gamma  \mvdash{}  \_:\mBbbF{}\}
3.  psi  :  \{Gamma  \mvdash{}  \_:\mBbbF{}\}
4.  A  :  \{Gamma,  phi  \mvdash{}  \_\}
5.  B  :  \{Gamma,  psi  \mvdash{}  \_\}
6.  cA  :  Gamma,  phi  \mvdash{}  Compositon(A)
7.  cB  :  Gamma,  psi  \mvdash{}  Compositon(B)
8.  Gamma  \mvdash{}  ((phi  \mwedge{}  psi)  {}\mRightarrow{}  0(\mBbbF{}))
9.  Gamma  \mvdash{}  (1(\mBbbF{})  {}\mRightarrow{}  (phi  \mvee{}  psi))
10.  case-type-comp(Gamma;  phi;  psi;  A;  B;  cA;  cB)
        \mmember{}  Gamma,  (phi  \mvee{}  psi)  \mvdash{}  Compositon((if  phi  then  A  else  B))
11.  case-type-comp(Gamma;  phi;  psi;  A;  B;  cA;  cB)  =  case-type-comp(Gamma;  phi;  psi;  A;  B;  cA;  cB)
\mvdash{}  Gamma,  (phi  \mwedge{}  psi)  \mvdash{}  A  =  B


By


Latex:
(Unfold  `same-cubical-type`  0
  THEN  SubsumeC  \mkleeneopen{}\{Gamma,  0(\mBbbF{})  \mvdash{}  \_\}\mkleeneclose{}\mcdot{}
  THEN  Try  (Fold  `same-cubical-type`  0)
  THEN  Auto)




Home Index