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

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.