Nuprl Lemma : initseg_sum_shift
r:. u:. v: List.  (initseg_sum(r;[u / v]) = (u + initseg_sum(r - 1;v)))
Proof
Definitions occuring in Statement : 
initseg_sum: initseg_sum(r;L), 
cons: [a / b], 
list: T List, 
nat: , 
all: x:A. B[x], 
subtract: n - m, 
add: n + m, 
natural_number: $n, 
int: , 
equal: s = t
Definitions : 
exists: x:A. B[x], 
member: t  T, 
initseg_sum: initseg_sum(r;L), 
firstn: firstn(n;as), 
all: x:A. B[x], 
implies: P  Q, 
btrue: tt, 
ifthenelse: if b then t else f fi , 
bfalse: ff, 
subtype_rel: A r B, 
not: A, 
l_sum: l_sum(L), 
uall: [x:A]. B[x], 
nat: , 
bool: , 
unit: Unit, 
uiff: uiff(P;Q), 
and: P  Q, 
uimplies: b supposing a, 
or: P  Q, 
sq_type: SQType(T), 
guard: {T}, 
bnot: b, 
assert: b, 
false: False, 
le: A  B, 
prop: , 
it:
Lemmas : 
initseg_sum_wf, 
equal-wf-base-T, 
int_subtype_base, 
equal-wf-T-base, 
cons_wf, 
lt_int_wf, 
bool_wf, 
eqtt_to_assert, 
assert_of_lt_int, 
eqff_to_assert, 
equal_wf, 
bool_cases_sqequal, 
subtype_base_sq, 
bool_subtype_base, 
assert-bnot, 
less_than_wf, 
l_sum_wf, 
nil_wf, 
equal-wf-base, 
list_subtype_base
\mforall{}r:\mBbbN{}.  \mforall{}u:\mBbbZ{}.  \mforall{}v:\mBbbZ{}  List.    (initseg\_sum(r;[u  /  v])  =  (u  +  initseg\_sum(r  -  1;v)))
Date html generated:
2014_03_27-PM-01_47_26
Last ObjectModification:
2013_11_04-AM-09_59_19
Home
Index