---

Step * of Lemma decide-decide

∀[x:Top + Top]. ∀[f1,f2,g,h:Top].
  (case case x of inl(z) => f1[z] | inr(z) => f2[z] of inl(z) => g[z] | inr(z) => h[z] ~ case x
   of inl(z) =>
   case f1[z] of inl(z) => g[z] | inr(z) => h[z]
   | inr(z) =>
   case f2[z] of inl(z) => g[z] | inr(z) => h[z])
BY
{ ((D 0 THENA Auto) THEN D -1 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x:Top  +  Top].  \mforall{}[f1,f2,g,h:Top].
    (case  case  x  of  inl(z)  =>  f1[z]  |  inr(z)  =>  f2[z]  of  inl(z)  =>  g[z]  |  inr(z)  =>  h[z]  \msim{}  case  x
      of  inl(z)  =>
      case  f1[z]  of  inl(z)  =>  g[z]  |  inr(z)  =>  h[z]
      |  inr(z)  =>
      case  f2[z]  of  inl(z)  =>  g[z]  |  inr(z)  =>  h[z])


By

---

Latex:
((D  0  THENA  Auto)  THEN  D  -1  THEN  Reduce  0  THEN  Auto)

---

Home Index