---

Step * of Lemma decide-spread-sq1

∀[x:Top × Top]. ∀[f,g,h:Top].  (case let a,b = x in inl f[a;b] of inl(z) => g[z] | inr(z) => h[z] ~ g[f[fst(x);snd(x)]])
BY
{ ((D 0 THENA Auto) THEN D -1 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x:Top  \mtimes{}  Top].  \mforall{}[f,g,h:Top].
    (case  let  a,b  =  x  in  inl  f[a;b]  of  inl(z)  =>  g[z]  |  inr(z)  =>  h[z]  \msim{}  g[f[fst(x);snd(x)]])


By

---

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

---

Home Index