equal
deleted
inserted
replaced
92 if not minimize orelse is_metis_method meth then |
92 if not minimize orelse is_metis_method meth then |
93 (used_facts, res) |
93 (used_facts, res) |
94 else |
94 else |
95 let |
95 let |
96 val (time', used_names') = |
96 val (time', used_names') = |
97 minimized_isar_step ctxt time (mk_step fact_names [meth]) |
97 minimized_isar_step ctxt chained time (mk_step fact_names [meth]) |
98 ||> (facts_of_isar_step #> snd) |
98 ||> (facts_of_isar_step #> snd) |
99 val used_facts' = filter (member (op =) used_names' o fst) used_facts |
99 val used_facts' = filter (member (op =) used_names' o fst) used_facts |
100 in |
100 in |
101 (used_facts', (meth, Played time')) |
101 (used_facts', (meth, Played time')) |
102 end |
102 end |