---

Step * of Lemma fpf-cap-join-subtype2

∀[A:Type]. ∀[eq:EqDecider(A)]. ∀[f,g:a:A fp-> Type]. ∀[a:A].  f ⊕ g(a)?Top ⊆r g(a)?Top supposing f || g
BY
{ xxx(((Auto THEN RWO "fpf-join-cap-sq" 0) THENA Auto)
      THEN SplitOnConclITE
      THEN Auto
      THEN Unfold `fpf-cap` 0
      THEN SplitOnConclITE
      THEN Auto
      THEN SplitOnConclITE
      THEN Auto)xxx }

---

Latex:

---

Latex:
\mforall{}[A:Type].  \mforall{}[eq:EqDecider(A)].  \mforall{}[f,g:a:A  fp->  Type].  \mforall{}[a:A].
    f  \moplus{}  g(a)?Top  \msubseteq{}r  g(a)?Top  supposing  f  ||  g


By

---

Latex:
xxx(((Auto  THEN  RWO  "fpf-join-cap-sq"  0)  THENA  Auto)
        THEN  SplitOnConclITE
        THEN  Auto
        THEN  Unfold  `fpf-cap`  0
        THEN  SplitOnConclITE
        THEN  Auto
        THEN  SplitOnConclITE
        THEN  Auto)xxx

---

Home Index