Step * of Lemma stuck-spread

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