fact: Definition nat_distance {N} `{nd : NatDistance N} (x y : N) := match nat_distance_sig x y with | inl (n;_) => n | inr (n;_) => n end.
imports: HoTT.Classes.interfaces.abstract_algebra HoTT.Classes.interfaces.orders