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