Ltac id_compare x y :=
  destruct (CompSpec2Type (Ident.compare_spec x y)).Ltac id_comp x y H1 H2 H3 :=
  destruct (CompSpec2Type (Ident.compare_spec x y)) as [H1|H2|H3].

Lemma Ilt_irrefl : forall {x}, ~ Ident.lt x x.