Hint Rewrite align_0 using omega : norm.

(* Specifications: *)
Lemma align_1: forall n, align n 1 = n.
Hint Rewrite align_1 using omega : norm.
Lemma fold_right_andb: forall bl b, fold_right andb b bl = true -> forall b0, In b0 bl -> b0 = true.
Lemma Z2Nat_inj_0: forall z, z >= 0 -> Z.to_nat z = 0%nat -> z = 0.
Lemma Z2Nat_id': forall n, Z.of_nat (Z.to_nat n) = Z.max 0 n.
Lemma nil_or_non_nil: forall {A} (a: list A), {a = nil} + {a <> nil}.
Lemma Permutation_concat: forall {A} (P Q: list (list A)),
Permutation P Q ->
Permutation (concat P) (concat Q).
Lemma proj_sumbool_is_false:
forall (P: Prop) (a: {P}+{~P}), ~P -> proj_sumbool a = false.