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 false_beq_id : forall x y : id, x <> y -> beq_id x y = false.