src/HOL/Tools/Predicate_Compile/code_prolog.ML
changeset 39761 c2a76ec6e2d9
parent 39724 ada0cd4900c1
child 39798 9e7a0a9d194e
equal deleted inserted replaced
39760:e6a370d35f45 39761:c2a76ec6e2d9
   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)),