YamlWitnessType.InvariantSet
module LoopInvariant : sig ... end
module LocationInvariant : sig ... end
module InvariantType : sig ... end
module Invariant : sig ... end
val to_yaml' :
t ->
(string
* [> `A of
[> `O of
(string
* [> `O of
(string
* [> `O of
(string
* [> `Float of float | `String of string ])
list
| `String of string ])
list ])
list ]
list ])
list
val of_yaml : Yaml.value -> (t, [ `Msg of string ]) Stdlib.result