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