Step * of Lemma decide-spread-sq2

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


Latex:


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


By


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




Home Index