Abort.

(* Specifications: *)
Lemma rel_expr_array_load: True.
Theorem sumList_perm : forall (ls1 ls2 : list A)(f1 f2 : A -> Rat),
Permutation ls1 ls2 ->
(forall b, (f1 b) == (f2 b)) ->
(sumList ls1 f1) == (sumList ls2 f2).
Lemma fold_add_init : forall (ls : list A)(f : A -> Rat) init1 init2,
fold_left (fun (r : Rat) (a : A) => r + (f a)) ls (init1 + init2) ==
init1 + (fold_left (fun (r : Rat) (a : A) => r + (f a)) ls init2).
Theorem shiftOut_1_None : forall (n1 n2 : nat)(s : Blist),
shiftOut s n1 = None ->
n2 >= n1 ->
shiftOut s n2 = None.