add_key_equivalence has_add.add nat.add
add_key_equivalence nat.add nat.succ
add_key_equivalence has_mul.mul nat.mul
#print key_equivalences