Instance TraverseVarInjective_my_value_my_value :
@TraverseVarInjective my_value _ my_value _.
Instance TraverseVarInjective_my_value_my_term :
@TraverseVarInjective my_value _ my_term _.

Lemma traverse_functorial_value_value:
forall f g (t : my_value) l,
traverse g l (traverse f l t) = traverse (fun l x => traverse g l (f l x)) l t
with traverse_functorial_value_term:
forall f g (t : my_term) l,
traverse g l (traverse f l t) = traverse (fun l x => traverse g l (f l x)) l t.