Step
*
of Lemma
fpf-join-empty-sq
∀[A:Type]. ∀[B:A ─→ Type]. ∀[f:a:A fp-> B[a]]. ∀[eq:EqDecider(A)].  (⊗ ⊕ f ~ <fst(f), λa.((snd(f)) a)>)
BY
{ ((UnivCD THENA Auto)
   THEN DVar `f'
   THEN RepUR ``fpf-join fpf-empty fpf-cap fpf-dom fpf-ap fpf`` 0
   THEN RWO "filter_tt" 0
   THEN Auto) }
Latex:
\mforall{}[A:Type].  \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[f:a:A  fp->  B[a]].  \mforall{}[eq:EqDecider(A)].
    (\motimes{}  \moplus{}  f  \msim{}  <fst(f),  \mlambda{}a.((snd(f))  a)>)
By
((UnivCD  THENA  Auto)
  THEN  DVar  `f'
  THEN  RepUR  ``fpf-join  fpf-empty  fpf-cap  fpf-dom  fpf-ap  fpf``  0
  THEN  RWO  "filter\_tt"  0
  THEN  Auto)
Home
Index