{ 
[T:Id 
 Type]
    
tab:secret-table(T). 
x:Atom1.
      (
isl(st-lookup(tab;x))
      

 
n:
||tab|| . ((n 
 ptr(tab)) 
 (st-atom(tab;n) = x))) }
{ Proof }
Definitions occuring in Statement : 
st-lookup: st-lookup(tab;x), 
st-atom: st-atom(tab;n), 
st-ptr: ptr(tab), 
st-length: ||tab|| , 
secret-table: secret-table(T), 
Id: Id, 
isl: isl(x), 
assert:
b, 
int_seg: {i..j
}, 
uall:
[x:A]. B[x], 
le: A 
 B, 
all:
x:A. B[x], 
exists:
x:A. B[x], 
iff: P 

 Q, 
and: P 
 Q, 
function: x:A 
 B[x], 
natural_number: $n, 
universe: Type, 
equal: s = t, 
atom: Atom$n
Definitions : 
uall:
[x:A]. B[x], 
all:
x:A. B[x], 
st-lookup: st-lookup(tab;x), 
st-length: ||tab|| , 
st-ptr: ptr(tab), 
st-atom: st-atom(tab;n), 
spreadn: spread3, 
pi1: fst(t), 
pi2: snd(t), 
member: t 
 T, 
implies: P 
 Q, 
int_seg: {i..j
}, 
bor: p 
q, 
btrue: tt, 
prop:
, 
and: P 
 Q, 
ifthenelse: if b then t else f fi , 
bfalse: ff, 
top: Top, 
lelt: i 
 j < k, 
subtype: S 
 T, 
exists:
x:A. B[x], 
assert:
b, 
true: True, 
nat:
, 
so_lambda: 
x.t[x], 
or: P 
 Q, 
iff: P 

 Q, 
isl: isl(x), 
false: False, 
rev_implies: P 
 Q, 
let: let, 
squash:
T, 
not:
A, 
le: A 
 B, 
secret-table: secret-table(T), 
uimplies: b supposing a, 
bool:
, 
unit: Unit, 
guard: {T}, 
sq_type: SQType(T), 
so_apply: x[s], 
it:
Lemmas : 
nat_wf, 
secret-table_wf, 
Id_wf, 
mu_wf, 
le_int_wf, 
bool_wf, 
iff_weakening_uiff, 
le_wf, 
uiff_transitivity, 
assert_wf, 
eqtt_to_assert, 
assert_of_le_int, 
bor_wf, 
lt_int_wf, 
btrue_wf, 
bnot_wf, 
eqff_to_assert, 
assert_functionality_wrt_uiff, 
bnot_of_le_int, 
assert_of_lt_int, 
eq_atom_wf1, 
pi1_wf_top, 
data_wf, 
bnot_of_lt_int, 
mu-property, 
subtype_base_sq, 
set_subtype_base, 
int_subtype_base, 
decidable__assert, 
decidable_wf, 
false_wf, 
int_seg_wf, 
band_wf, 
true_wf, 
assert_of_bor, 
or_functionality_wrt_uiff, 
bnot_thru_bor, 
squash_wf, 
assert_of_band, 
and_functionality_wrt_uiff, 
assert_of_eq_atom1, 
not_wf, 
assert_of_bnot, 
not_functionality_wrt_uiff
\mforall{}[T:Id  {}\mrightarrow{}  Type]
    \mforall{}tab:secret-table(T).  \mforall{}x:Atom1.
        (\muparrow{}isl(st-lookup(tab;x))  \mLeftarrow{}{}\mRightarrow{}  \mexists{}n:\mBbbN{}||tab||  .  ((n  \mleq{}  ptr(tab))  \mwedge{}  (st-atom(tab;n)  =  x)))
Date html generated:
2011_08_16-AM-10_59_51
Last ObjectModification:
2011_06_18-AM-09_33_37
Home
Index