---

Step * of Lemma fpf-compatible-join2

∀[A:Type]. ∀[eq:EqDecider(A)]. ∀[B:A ─→ Type]. ∀[f,g,h:a:A fp-> B[a]].  (f ⊕ g || h) supposing (g || h and f || h)
BY
{ (Auto
   THEN BLemma `fpf-compatible-symmetry`
   THEN Auto
   THEN BLemma `fpf-compatible-join`
   THEN Auto
   THEN BLemma `fpf-compatible-symmetry`
   THEN Auto) }

---

Latex:


\mforall{}[A:Type].  \mforall{}[eq:EqDecider(A)].  \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[f,g,h:a:A  fp->  B[a]].
    (f  \moplus{}  g  ||  h)  supposing  (g  ||  h  and  f  ||  h)


By

(Auto
  THEN  BLemma  `fpf-compatible-symmetry`
  THEN  Auto
  THEN  BLemma  `fpf-compatible-join`
  THEN  Auto
  THEN  BLemma  `fpf-compatible-symmetry`
  THEN  Auto)

---

Home Index