equal
deleted
inserted
replaced
367 |
367 |
368 fun mk_moded_clauses_graph ctxt scc gr = |
368 fun mk_moded_clauses_graph ctxt scc gr = |
369 let |
369 let |
370 val options = Predicate_Compile_Aux.default_options |
370 val options = Predicate_Compile_Aux.default_options |
371 val mode_analysis_options = |
371 val mode_analysis_options = |
372 {use_random = true, reorder_premises = true, infer_pos_and_neg_modes = true} |
372 {use_generators = true, reorder_premises = true, infer_pos_and_neg_modes = true} |
373 fun infer prednames (gr, (pos_modes, neg_modes, random)) = |
373 fun infer prednames (gr, (pos_modes, neg_modes, random)) = |
374 let |
374 let |
375 val (lookup_modes, lookup_neg_modes, needs_random) = |
375 val (lookup_modes, lookup_neg_modes, needs_random) = |
376 ((fn s => the (AList.lookup (op =) pos_modes s)), |
376 ((fn s => the (AList.lookup (op =) pos_modes s)), |
377 (fn s => the (AList.lookup (op =) neg_modes s)), |
377 (fn s => the (AList.lookup (op =) neg_modes s)), |