674 |
674 |
675 (* values command *) |
675 (* values command *) |
676 |
676 |
677 val preprocess_options = Predicate_Compile_Aux.Options { |
677 val preprocess_options = Predicate_Compile_Aux.Options { |
678 expected_modes = NONE, |
678 expected_modes = NONE, |
679 proposed_modes = NONE, |
679 proposed_modes = [], |
680 proposed_names = [], |
680 proposed_names = [], |
681 show_steps = false, |
681 show_steps = false, |
682 show_intermediate_results = false, |
682 show_intermediate_results = false, |
683 show_proof_trace = false, |
683 show_proof_trace = false, |
684 show_modes = false, |
684 show_modes = false, |
685 show_mode_inference = false, |
685 show_mode_inference = false, |
686 show_compilation = false, |
686 show_compilation = false, |
687 show_caught_failures = false, |
687 show_caught_failures = false, |
|
688 show_invalid_clauses = false, |
688 skip_proof = true, |
689 skip_proof = true, |
689 no_topmost_reordering = false, |
690 no_topmost_reordering = false, |
690 function_flattening = true, |
691 function_flattening = true, |
691 specialise = false, |
692 specialise = false, |
692 fail_safe_function_flattening = false, |
693 fail_safe_function_flattening = false, |