Instance TraverseFunctorial_my_value_my_value : @TraverseFunctorial my_value _ my_value _.Instance TraverseFunctorial_my_term_my_term : @TraverseFunctorial my_value _ my_term _.Instance TraverseIdentifiesVar_my_value : TraverseIdentifiesVar.

Lemma traverse_relative_my_value_my_value: forall f g p (t : my_value) m l, (forall l x, f (l + p) x = g l x) -> m = l + p -> traverse f m t = traverse g l t with traverse_relative_my_value_my_term: forall f g p (t : my_term) m l, (forall l x, f (l + p) x = g l x) -> m = l + p -> traverse f m t = traverse g l t.