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
{ xxx(Auto
      THEN BLemma `fpf-compatible-symmetry`
      THEN Auto
      THEN BLemma `fpf-compatible-join`
      THEN Auto
      THEN BLemma `fpf-compatible-symmetry`
      THEN Auto)xxx }
Latex:
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
Latex:
xxx(Auto
        THEN  BLemma  `fpf-compatible-symmetry`
        THEN  Auto
        THEN  BLemma  `fpf-compatible-join`
        THEN  Auto
        THEN  BLemma  `fpf-compatible-symmetry`
        THEN  Auto)xxx
Home
Index