---

Step * of Lemma can-apply-compose-sq

∀[A,B,C:Type]. ∀[g:A ⟶ (B + Top)]. ∀[f:B ⟶ (C + Top)]. ∀[x:A].
  (can-apply(f o g;x) ~ can-apply(g;x) ∧b can-apply(f;do-apply(g;x)))
BY
{ ((UnivCD THENA Auto)
   THEN RepUR ``do-apply can-apply p-compose`` 0
   THEN ((GenConclAtAddr [1; 1; 1; 1]) THENA Auto)
   THEN D -2
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B,C:Type].  \mforall{}[g:A  {}\mrightarrow{}  (B  +  Top)].  \mforall{}[f:B  {}\mrightarrow{}  (C  +  Top)].  \mforall{}[x:A].
    (can-apply(f  o  g;x)  \msim{}  can-apply(g;x)  \mwedge{}\msubb{}  can-apply(f;do-apply(g;x)))


By

---

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

---

Home Index