{ [A,B:Type]. [x:A]. [v:B]. [eqa:EqDecider(A)].
    (x : v  a:A fp-x : B(a)?Top) }

{ Proof }



Definitions occuring in Statement :  fpf-single: x : v fpf-cap: f(x)?z fpf: a:A fp-B[a] uall: [x:A]. B[x] top: Top member: t  T universe: Type deq: EqDecider(T)
Definitions :  uall: [x:A]. B[x] member: t  T so_lambda: x.t[x] fpf-cap: f(x)?z fpf-single: x : v fpf-dom: x  dom(f) deq-member: deq-member(eq;x;L) pi1: fst(t) reduce: reduce(f;k;as) ifthenelse: if b then t else f fi  bor: p q btrue: tt so_apply: x[s]
Lemmas :  fpf-single_wf deq_wf ifthenelse_wf bor_wf eqof_wf bfalse_wf top_wf eqof_eq_btrue subtype_rel_self

\mforall{}[A,B:Type].  \mforall{}[x:A].  \mforall{}[v:B].  \mforall{}[eqa:EqDecider(A)].    (x  :  v  \mmember{}  a:A  fp->  x  :  B(a)?Top)


Date html generated: 2011_08_10-AM-08_02_37
Last ObjectModification: 2011_06_18-AM-08_20_35

Home Index