Inductive id : Type :=
  | Id : string -> id.Inductive id : Type :=
  | Id : string -> id.Instance eq_dec_id (x y : id) : Dec (x = y).Definition beq_id x y :=
  match x,y with
    | Id n1, Id n2 => if string_dec n1 n2 then true else false
  end.

Theorem beq_id_true_iff : forall x y : id, beq_id x y = true <-> x = y.