Module Ortac_runtime_qcheck_stm

include module type of struct include Ortac_runtime end
type location = Ortac_runtime.location = {
  1. start : Stdlib.Lexing.position;
  2. stop : Stdlib.Lexing.position;
}
type term_kind = Ortac_runtime.term_kind =
  1. | Check
  2. | Pre
  3. | Post
  4. | XPost
type error = Ortac_runtime.error =
  1. | Violated_axiom
  2. | Axiom_failure of {
    1. exn : exn;
    }
  3. | Violated_invariant of {
    1. term : string;
    2. position : term_kind;
    }
  4. | Violated_condition of {
    1. term : string;
    2. term_kind : term_kind;
    }
  5. | Specification_failure of {
    1. term : string;
    2. term_kind : term_kind;
    3. exn : exn;
    }
  6. | Unexpected_exception of {
    1. allowed_exn : string list;
    2. exn : exn;
    }
  7. | Uncaught_checks of {
    1. term : string;
    }
  8. | Unexpected_checks of {
    1. terms : string list;
    }
type error_report = Ortac_runtime.error_report = {
  1. loc : location;
  2. fun_name : string;
  3. mutable errors : error list;
}
val pp_loc : Stdlib.Format.formatter -> location -> unit
val pp_error_report : Stdlib.Format.formatter -> error_report -> unit
exception Error of error_report
module Errors = Ortac_runtime.Errors
exception Partial_function of exn * location
type integer = Ortac_runtime.integer
val string_of_integer : integer -> string
module Gospelstdlib = Ortac_runtime.Gospelstdlib
module Z = Ortac_runtime.Z
type expected_result =
  1. | Value of STM.res
  2. | Protected_value of STM.res
  3. | Exception of string
type report = {
  1. mod_name : string;
  2. init_sut : string;
  3. ret : expected_result;
  4. cmd : string;
  5. terms : (string * location) list;
}
val report : string -> string -> expected_result -> string -> (string * location) list -> report
val append : report option -> report option -> report option
type STM.ty +=
  1. | Dummy : 'a STM.ty
val dummy : 'a STM.ty * ('b -> string)
val is_dummy : STM.res -> bool
module Model : sig ... end
module SUT : sig ... end
module Make (Spec : STM.Spec) : sig ... end