Module GlobdefOrder <: Orders.TotalLeBool.
Definition t := (ident * globdef (fundef function) type)%type.
Definition leb := fun x y : (ident * globdef (fundef function) type)=> Pos.leb (fst x) (fst y).

Theorem leb_total : forall a1 a2, leb a1 a2 = true \/ leb a2 a1 = true.