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.