let
length u v = succ (sub v u)