---

Step * of Lemma strictness-subtract-right

∀[a:Top]. (a - ⊥ ~ eval x = a in ⊥)
BY
{ (Unfold `subtract` 0 THEN SqReasoning THEN Assert ⌜(⊥)↓⌝⋅ THEN BotDiv) }

---

Latex:

---

Latex:
\mforall{}[a:Top].  (a  -  \mbot{}  \msim{}  eval  x  =  a  in  \mbot{})


By

---

Latex:
(Unfold  `subtract`  0  THEN  SqReasoning  THEN  Assert  \mkleeneopen{}(\mbot{})\mdownarrow{}\mkleeneclose{}\mcdot{}  THEN  BotDiv)

---

Home Index