Step
*
2
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)
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
BY
{ (ExceptionSqequal (-5) THEN HypSubst' (-1) 0 THEN Reduce 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)
12. u1 : Base
13. v1 : Base
14. a ~ exception(u1; v1)
⊢ ↓(exception(u1; v1) ~ exception(u1; v1)) = (exception(u; 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)
9.  u  :  Base
10.  v  :  Base
11.  b  \msim{}  exception(u;  v)
\mvdash{}  \mdownarrow{}(case  a  of  inl(u)  =>  A[u]  |  inr(v)  =>  B[v]  \msim{}  a)
      =  (case  exception(u;  v)  of  inl(u)  =>  A[u]  |  inr(v)  =>  B[v]  \msim{}  exception(u;  v))
By
Latex:
(ExceptionSqequal  (-5)  THEN  HypSubst'  (-1)  0  THEN  Reduce  0)
Home
Index