equal
deleted
inserted
replaced
1120 fun num_of_facts fact_filter num_facts = |
1120 fun num_of_facts fact_filter num_facts = |
1121 string_of_int num_facts ^ |
1121 string_of_int num_facts ^ |
1122 (if show_filter then " " ^ quote fact_filter else "") ^ |
1122 (if show_filter then " " ^ quote fact_filter else "") ^ |
1123 " fact" ^ plural_s num_facts |
1123 " fact" ^ plural_s num_facts |
1124 val _ = |
1124 val _ = |
1125 if verbose andalso is_some outcome then |
1125 if debug then |
1126 quote name ^ " invoked with " ^ |
1126 quote name ^ " invoked with " ^ |
1127 num_of_facts fact_filter num_facts ^ ": " ^ |
1127 num_of_facts fact_filter num_facts ^ ": " ^ |
1128 string_of_failure (failure_of_smt_failure (the outcome)) ^ |
1128 string_of_failure (failure_of_smt_failure (the outcome)) ^ |
1129 " Retrying with " ^ num_of_facts new_fact_filter new_num_facts ^ |
1129 " Retrying with " ^ num_of_facts new_fact_filter new_num_facts ^ |
1130 "..." |
1130 "..." |