---

Step * of Lemma stuck-spread

∀[a:Base]. ∀[F:Top]. (let x,y = a in F[x;y] ~ eval x = a in ⊥) supposing ∀b,c:Base.  (if a is a pair then b otherwise c \000C~ c)
BY
{ (SqReasoning
   THEN (All(InstHyp [⌜tt⌝;⌜ff⌝])⋅ THENA Auto)
   THEN ElimVar `a'⋅
   THEN AllReduce
   THEN InstLemma `not-btrue-sqeq-bfalse` []
   THEN D (-1)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[a:Base].  \mforall{}[F:Top].  (let  x,y  =  a  in  F[x;y]  \msim{}  eval  x  =  a  in  \mbot{})  supposing  \mforall{}b,c:Base.    (if  a  is  a  pair\000C  then  b  otherwise  c  \msim{}  c)


By

---

Latex:
(SqReasoning
  THEN  (All(InstHyp  [\mkleeneopen{}tt\mkleeneclose{};\mkleeneopen{}ff\mkleeneclose{}])\mcdot{}  THENA  Auto)
  THEN  ElimVar  `a'\mcdot{}
  THEN  AllReduce
  THEN  InstLemma  `not-btrue-sqeq-bfalse`  []
  THEN  D  (-1)
  THEN  Auto)

---

Home Index