{ [s:Name]. [avoid:Name List].
    (maybe-new(s;avoid)  {s':Name| (s'  avoid)} ) }

{ Proof }



Definitions occuring in Statement :  maybe-new: maybe-new(s;avoid) name: Name uall: [x:A]. B[x] not: A member: t  T set: {x:A| B[x]}  list: type List l_member: (x  l)
Definitions :  uall: [x:A]. B[x] name: Name member: t  T maybe-new: maybe-new(s;avoid) name-deq: NameDeq all: x:A. B[x] so_lambda: x.t[x] nat: exists: x:A. B[x] not: A cand: A c B le: A  B implies: P  Q false: False pi1: fst(t) top: Top subtype: S  T int_seg: {i..j} lelt: i  j < k and: P  Q inject: Inj(A;B;f) prop: squash: T true: True or: P  Q ifthenelse: if b then t else f fi  btrue: tt bfalse: ff let: let rev_implies: P  Q iff: P  Q uimplies: b supposing a so_apply: x[s] decidable: Dec(P) l_member: (x  l) guard: {T} bool: unit: Unit it:
Lemmas :  nat_wf assert_wf bnot_wf deq-member_wf list-deq_wf atom-deq_wf append_wf nat-to-str_wf not_wf l_member_wf exists_functionality_wrt_iff iff_transitivity iff_weakening_uiff assert_of_bnot not_functionality_wrt_iff assert-deq-member decidable__ex_int_seg add_wf length_wf1 le_wf int_seg_wf decidable__not decidable__l_member decidable__equal_list decidable__atom_equal select_wf pigeon-hole non_neg_length length_wf_nat top_wf squash_wf general-append-cancellation str-to-nat-to-str str-to-nat_wf true_wf bool_wf eqtt_to_assert eqff_to_assert mu-property mu_wf

\mforall{}[s:Name].  \mforall{}[avoid:Name  List].    (maybe-new(s;avoid)  \mmember{}  \{s':Name|  \mneg{}(s'  \mmember{}  avoid)\}  )


Date html generated: 2011_08_10-AM-07_43_09
Last ObjectModification: 2011_06_18-AM-08_09_50

Home Index