(* END Tactics copied from ecm/Coqlib2.v *)

(* Specifications: *)
Lemma f_equal_Some: forall A (x y: A), x=y -> Some x = Some y.
Lemma f_equal_prod: forall A B (x1 x2: A) (y1 y2: B), x1=x2 -> y1=y2 -> (x1,y1) = (x2,y2).
Hint Resolve f_equal_Some f_equal_prod.