---

Step * 2 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. exception-type(T)
⊢ (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
{ (DupHyp (-1)
   THEN ((With ⌜a⌝ (D (-2))⋅ THENA Auto) THEN D -1 THEN Auto)
   THEN (With ⌜b⌝ (D (-2))⋅ THENA Auto)
   THEN D -1
   THEN Auto) }

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)
⊢ (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

---

Latex:

---

Latex:

1.  T  :  Type
2.  a  :  Base
3.  b  :  Base
4.  c  :  a  =  b
5.  A  :  Top
6.  B  :  Top
7.  exception-type(T)
\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:
(DupHyp  (-1)
  THEN  ((With  \mkleeneopen{}a\mkleeneclose{}  (D  (-2))\mcdot{}  THENA  Auto)  THEN  D  -1  THEN  Auto)
  THEN  (With  \mkleeneopen{}b\mkleeneclose{}  (D  (-2))\mcdot{}  THENA  Auto)
  THEN  D  -1
  THEN  Auto)

---

Home Index