{ [A:Type]. [P:A  ]. [B:A  '].
    (a:{a:A| P[a]}  fp-B[a] r a:A fp-B[a]) }

{ Proof }



Definitions occuring in Statement :  fpf: a:A fp-B[a] subtype_rel: A r B uall: [x:A]. B[x] prop: so_apply: x[s] set: {x:A| B[x]}  function: x:A  B[x] universe: Type
Definitions :  isect: x:A. B[x] uall: [x:A]. B[x] parameter: parm{i} CollapseTHEN: Error :CollapseTHEN,  tactic: Error :tactic
Lemmas :  subtype-fpf-general

\mforall{}[A:Type].  \mforall{}[P:A  {}\mrightarrow{}  \mBbbP{}].  \mforall{}[B:A  {}\mrightarrow{}  \mBbbU{}'].    (a:\{a:A|  P[a]\}    fp->  B[a]  \msubseteq{}r  a:A  fp->  B[a])


Date html generated: 2011_08_10-AM-07_54_30
Last ObjectModification: 2011_06_18-AM-08_15_02

Home Index