{ [T:Type]. [g:LabeledDAG(T)]. [y:lg-size(g)]. [x:y].
    (lg-add(g;x;y)  LabeledDAG(T)) }

{ Proof }



Definitions occuring in Statement :  ldag: LabeledDAG(T),  lg-add: lg-add(g;a;b),  lg-size: lg-size(g),  int_seg: {i..j},  uall: [x:A]. B[x],  member: t  T,  natural_number: $n,  universe: Type
Definitions :  uall: [x:A]. B[x],  ldag: LabeledDAG(T),  int_seg: {i..j},  member: t  T,  lelt: i  j < k,  and: P  Q,  le: A  B,  not: A,  implies: P  Q,  false: False,  nat: ,  prop: ,  uimplies: b supposing a
Lemmas :  lg-add_wf,  lg-size_wf,  nat_wf,  le_wf,  is-dag-add,  is-dag_wf,  int_seg_wf,  ldag_wf

\mforall{}[T:Type].  \mforall{}[g:LabeledDAG(T)].  \mforall{}[y:\mBbbN{}lg-size(g)].  \mforall{}[x:\mBbbN{}y].    (lg-add(g;x;y)  \mmember{}  LabeledDAG(T))


Date html generated: 2011_08_16-PM-06_43_39
Last ObjectModification: 2011_06_18-AM-10_55_14

Home Index