Nuprl Lemma : int-decr-map-remove-prop
∀[Value:Type]. ∀[m:int-decr-map-type(Value)]. ∀[k1,k2:ℤ].
  (int-decr-map-find(k1;int-decr-map-remove(k2;m))
  = if (k1 =z k2) then inr ⋅  else int-decr-map-find(k1;m) fi 
  ∈ (Value?))
Proof
Definitions occuring in Statement : 
int-decr-map-remove: int-decr-map-remove(k;m)
, 
int-decr-map-find: int-decr-map-find(k;m)
, 
int-decr-map-type: int-decr-map-type(Value)
, 
ifthenelse: if b then t else f fi 
, 
eq_int: (i =z j)
, 
it: ⋅
, 
uall: ∀[x:A]. B[x]
, 
unit: Unit
, 
inr: inr x 
, 
union: left + right
, 
int: ℤ
, 
universe: Type
, 
equal: s = t ∈ T
Lemmas : 
nat_properties, 
less_than_transitivity1, 
less_than_irreflexivity, 
ge_wf, 
less_than_wf, 
l-ordered_wf, 
gt_wf, 
equal-wf-T-base, 
colength_wf_list, 
list-cases, 
eq_int_wf, 
bool_wf, 
eqtt_to_assert, 
assert_of_eq_int, 
it_wf, 
eqff_to_assert, 
equal_wf, 
bool_cases_sqequal, 
subtype_base_sq, 
bool_subtype_base, 
assert-bnot, 
neg_assert_of_eq_int, 
nil_wf, 
product_subtype_list, 
spread_cons_lemma, 
sq_stable__le, 
le_antisymmetry_iff, 
add_functionality_wrt_le, 
add-associates, 
add-zero, 
zero-add, 
le-add-cancel, 
nat_wf, 
decidable__le, 
false_wf, 
not-le-2, 
condition-implies-le, 
minus-add, 
minus-one-mul, 
add-commutes, 
le_wf, 
subtract_wf, 
not-ge-2, 
less-iff-le, 
minus-minus, 
add-swap, 
set_subtype_base, 
int_subtype_base, 
cons_wf, 
int-decr-map-type_wf, 
remove-combine-cons, 
sqequal-tt-to-assert, 
l-ordered-cons, 
int-decr-map-find-not-in, 
l_all_iff, 
l_member_wf, 
not_wf, 
equal-wf-base-T, 
sqequal-ff-to-assert, 
find-combine-cons, 
value-type-has-value, 
int-value-type, 
lt_int_wf, 
assert_of_lt_int, 
int-decr-map-find_wf, 
cons_wf_listp, 
subtype_rel_sets, 
list_wf, 
assert_wf, 
length_wf, 
subtype_rel_sum, 
null_wf3, 
subtype_rel_list, 
top_wf, 
squash_wf, 
l_all_wf2, 
unit_wf2, 
null_cons_lemma, 
subtype_rel-equal
\mforall{}[Value:Type].  \mforall{}[m:int-decr-map-type(Value)].  \mforall{}[k1,k2:\mBbbZ{}].
    (int-decr-map-find(k1;int-decr-map-remove(k2;m))
    =  if  (k1  =\msubz{}  k2)  then  inr  \mcdot{}    else  int-decr-map-find(k1;m)  fi  )
Date html generated:
2015_07_17-AM-08_23_38
Last ObjectModification:
2015_04_02-PM-05_44_33
Home
Index