sig val eq_refl : Term.types -> Term.constr -> Term.constr end