---

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
{ (((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) }

---

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

(((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)

---

Home Index