theorem znsubneg (m n: nat): $ m < n -> m -ZN n = b1 (n - suc m) $;
m < n -> if (m < n) (b1 (n - suc m)) (b0 (m - n)) = b1 (n - suc m)
m < n -> m -ZN n = b1 (n - suc m)