Module Ident <: UsualOrderedType := Positive_as_OT.
Parameter minid: Ident.t.
Parameter id2pos: Ident.t -> positive.

Axiom minid_eq: id2pos minid = 1%positive.
Axiom Ilt_morphism: forall x y, Ident.lt x y -> Plt (id2pos x) (id2pos y).