Ltac word_omega := pre_word_omega; omega.

(* Specifications: *)
Lemma word_le_ge_eq sz (w1 w2: word sz): w1 <= w2 -> w1 >= w2 -> w1 = w2.
Lemma word_le_zero sz (w: word sz): w <= wzero sz -> w = wzero sz.
Close Scope word_scope.