Module AsciiOT <: OrderedType.
Definition t := ascii.
Definition eq       := @Logic.eq       ascii.
Definition eq_refl  := @Logic.eq_refl  ascii.
Definition eq_sym   := @Logic.eq_sym   ascii.
Definition eq_trans := @Logic.eq_trans ascii.
Definition eq_dec   := ascii_dec.
Definition lt (c d : ascii) : Prop := (N_of_ascii c < N_of_ascii d)%N.

(* Specifications: *)
Theorem lt_trans : forall c d e : ascii, lt c d -> lt d e -> lt c e.
Theorem compare : forall c d : t, Compare lt eq c d.
End AsciiOT.