add result.ml; polymorphic variant errors + refacto

src/libtool_version.mli

@@ -0,0 +1,7 @@
+type t
+
+val mte_protocol_version : t
+val is_compatible : implementation:t -> t -> bool
+val of_string : string -> (t, string) result
+val pp : Format.formatter -> t -> unit
+val jsont : t Jsont.t