Definition TVar := VarType.t.(* ---------------------------------------------------------------------- *)
(** ** Definitions *)

Definition gen_env A := list (TVar * A).Implicit Types x y : TVar.Implicit Types xs ys : list TVar.Implicit Types v w : A.Implicit Types vs ws : list A.Implicit Types E F G : gen_env A.Implicit Types f g : A -> B.Definition eq_keys_dec := VarType.eq_dec.

(* Specifications: *)
Lemma eq_keys_true : forall A x (a b : A), (if eq_keys_dec x x then a else b) = a.
Lemma eq_keys_false : forall A x y (a b : A), x <> y -> (if eq_keys_dec x y then a else b) = b.