Definition t := ascii.Definition eqb := Ascii.eqb.Definition eqb_eq := Ascii.eqb_eq.Definition compare (a b : ascii) := N_as_OT.compare (N_of_ascii a) (N_of_ascii b).Definition lt (a b : ascii) := N_as_OT.lt (N_of_ascii a) (N_of_ascii b).#[global]
  Instance lt_compat : Proper (eq==>eq==>iff) lt.#[global]
  Instance lt_strorder : StrictOrder lt.

Lemma compare_spec : forall x y, CompSpec eq lt x y (compare x y).