Module Distance.Distance_data

module Distance_data: sig .. end

type t = (float * float) list * (float * float) list *
       ((float * float) * (float * float)) * float 

val compare : 'a -> 'a -> int