38 lines
911 B
OCaml
38 lines
911 B
OCaml
|
type failure_mode =
|
||
|
|
| Preserved
|
||
|
|
| Representation_exposure
|
||
|
|
| Strictness_shift
|
||
|
|
| Type_error of string
|
||
|
|
| Other_failure of string
|
||
|
|
|
||
|
|
type obligation_status =
|
||
|
|
| Discharged
|
||
|
|
| Assumed
|
||
|
|
| Refuted
|
||
|
|
|
||
|
|
type obligation_result = {
|
||
|
|
obligation : Pipeline.obligation;
|
||
|
|
status : obligation_status;
|
||
|
|
note : string;
|
||
|
|
}
|
||
|
|
|
||
|
|
type case_audit = {
|
||
|
|
case : Corpus.case;
|
||
|
|
compiled : Pipeline.compiled;
|
||
|
|
comparison : Relation.comparison;
|
||
|
|
source_trace : Source.trace;
|
||
|
|
specialised_trace : Source.trace;
|
||
|
|
inlined_trace : Source.trace;
|
||
|
|
target_trace : Target.trace;
|
||
|
|
typecheck : (unit, string) result;
|
||
|
|
failure_mode : failure_mode;
|
||
|
|
obligations : obligation_result list;
|
||
|
|
}
|
||
|
|
|
||
|
|
val audit_case : Corpus.case -> case_audit
|
||
|
|
val failure_mode_to_string : failure_mode -> string
|
||
|
|
val obligation_status_to_string : obligation_status -> string
|
||
|
|
val emit_case_audit : case_audit -> string
|
||
|
|
val emit_matrix : case_audit list -> string
|
||
|
|
|