Definition function_beq (x1 x2 : function) : bool :=
if function_eq_dec x1 x2 then true else false.

(* Specifications: *)
Lemma function_beq_eq : forall x1 x2, function_beq x1 x2 = true <-> x1 = x2.
Variable constructor_eq_dec : forall (x1 x2 : constructor), {x1=x2}+{x1<>x2}.