Ltac is_Type_or_type T :=
  match type of T with
  | Type => idtac
  | type => idtac
  end.

(* Specifications: *)
Lemma fun_equal: forall {A B} (f g : A -> B) (x y : A), f = g -> x = y -> f x = g y.
Lemma fun_equal': forall {A B} (f g : forall (x:A), B x) (y : A), f = g -> f y = g y.