---

Step * 2 1 of Lemma decide-exception-type


1. T : Type
2. a : Base
3. b : Base
4. c : a = b ∈ T
5. A : Top
6. B : Top
7. is-exception(a)
8. is-exception(b)
⊢ (case a of inl(u) => A[u] | inr(v) => B[v] ~ a) = (case b of inl(u) => A[u] | inr(v) => B[v] ~ b) ∈ Type
BY
{ (SquashConcl THEN ExceptionSqequal (-1) THEN HypSubst' (-1) 0) }

1
1. T : Type
2. a : Base
3. b : Base
4. c : a = b ∈ T
5. A : Top
6. B : Top
7. is-exception(a)
8. is-exception(b)
9. u : Base
10. v : Base
11. b ~ exception(u; v)
⊢ ↓(case a of inl(u) => A[u] | inr(v) => B[v] ~ a)
   = (case exception(u; v) of inl(u) => A[u] | inr(v) => B[v] ~ exception(u; v))
   ∈ Type

---

Latex:

---

Latex:

1.  T  :  Type
2.  a  :  Base
3.  b  :  Base
4.  c  :  a  =  b
5.  A  :  Top
6.  B  :  Top
7.  is-exception(a)
8.  is-exception(b)
\mvdash{}  (case  a  of  inl(u)  =>  A[u]  |  inr(v)  =>  B[v]  \msim{}  a)  =  (case  b  of  inl(u)  =>  A[u]  |  inr(v)  =>  B[v]  \msim{}  b)


By

---

Latex:
(SquashConcl  THEN  ExceptionSqequal  (-1)  THEN  HypSubst'  (-1)  0)

---

Home Index