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 ![](../FONT/eq.png)
 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: ![](../FONT/not.png)
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