Instance TraverseFunctorial_my_value_my_value : @TraverseFunctorial my_value _ my_value _.
Instance TraverseRelative_my_value_my_value : @TraverseRelative my_value my_value _.
Instance TraverseRelative_my_value_my_term : @TraverseRelative my_value my_term _.

(* Specifications: *)
Lemma traverse_my_value_var_is_identity:
forall f,
(forall l x, f l x = var x) ->
forall (t : my_value) l,
traverse f l t = t
with traverse_my_term_var_is_identity:
forall f,
(forall l x, f l x = var x) ->
forall (t : my_term) l,
traverse f l t = t.