{ [A:Type]. [B:A  Type]. [x:A]. [v:B[x]]. [eq:EqDecider(A)].
  [f:x:A fp-B[x]].
    (f
     x : v  x:A fp-B[x]) }

{ Proof }



Definitions occuring in Statement :  fpf-add-single: fpf-add-single fpf: a:A fp-B[a] uall: [x:A]. B[x] so_apply: x[s] member: t  T function: x:A  B[x] universe: Type deq: EqDecider(T)
Definitions :  uall: [x:A]. B[x] so_apply: x[s] member: t  T fpf-add-single: fpf-add-single so_lambda: x.t[x]
Lemmas :  fpf-join_wf fpf-single_wf fpf_wf deq_wf

\mforall{}[A:Type].  \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[x:A].  \mforall{}[v:B[x]].  \mforall{}[eq:EqDecider(A)].  \mforall{}[f:x:A  fp->  B[x]].
    (f
      x  :  v  \mmember{}  x:A  fp->  B[x])


Date html generated: 2011_08_10-AM-08_03_13
Last ObjectModification: 2011_06_18-AM-08_20_59

Home Index