---

Step * of Lemma inl-do-apply

∀[A,B:Type]. ∀[f:A ⟶ (B + Top)]. ∀[x:A].  inl do-apply(f;x) ~ f x supposing ↑can-apply(f;x)
BY
{ ((UnivCD THENA Auto)
   THEN (MoveToConcl (-1))
   THEN Unfolds ``can-apply do-apply`` 0
   THEN ((GenConclAtAddr [1; 1; 1]) THENA Auto)
   THEN D -2
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:Type].  \mforall{}[f:A  {}\mrightarrow{}  (B  +  Top)].  \mforall{}[x:A].    inl  do-apply(f;x)  \msim{}  f  x  supposing  \muparrow{}can-apply(f;x)


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  (MoveToConcl  (-1))
  THEN  Unfolds  ``can-apply  do-apply``  0
  THEN  ((GenConclAtAddr  [1;  1;  1])  THENA  Auto)
  THEN  D  -2
  THEN  Reduce  0
  THEN  Auto)

---

Home Index