Witness.Result
module R : ResultQuery.SpecSysSol2
module Query : sig ... end
module ArgTool : sig ... end
module NHT = ArgTool.NHT
module type BiArgInvariant = sig ... end
val determine_result :
((MyCFG.node * R.SpecSys.Spec.C.t) * 'a) list ->
(module Svcomp.Task) ->
(module WitnessTaskResult)
val write :
(Svcomp.Result.t, string) Stdlib.result option ->
((MyCFG.node * R.SpecSys.Spec.C.t) * 'a) list ->
unit