---

Step * 1 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)
⊢ case a of inl(u) => A[u] | inr(v) => B[v] ~ a
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. u : Base
9. v : Base
10. a ~ exception(u; v)
⊢ ↓case exception(u; v) of inl(u) => A[u] | inr(v) => B[v] ~ exception(u; v)

---

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)
\mvdash{}  case  a  of  inl(u)  =>  A[u]  |  inr(v)  =>  B[v]  \msim{}  a


By

---

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

---

Home Index