let length u v = succ (sub v u)