在this线程中,Mathieu演示了subst refl
关闭重复的子目标。如何/为什么这样做?
答案 0 :(得分:3)
我不确定,但是快速浏览一下代码表明subst
出于某种原因调用distinct_subgoals_tac
并将其不限于其正在处理的子目标:
fun eqsubst_tac ctxt occs thms i st =
let val nprems = Thm.nprems_of st in
if nprems < i then Seq.empty else
let
val thmseq = Seq.of_list thms;
fun apply_occ occ st =
thmseq |> Seq.maps (fn r =>
eqsubst_tac' ctxt
(skip_first_occs_search occ searchf_lr_unify_valid) r
(i + (Thm.nprems_of st - nprems)) st);
val sorted_occs = Library.sort (rev_order o int_ord) occs;
in
Seq.maps distinct_subgoals_tac (Seq.EVERY (map apply_occ sorted_occs) st)
end
end;
在我看来,这似乎不是预期的行为–可能是对subst
实施的疏忽。我会在邮件列表中写一封电子邮件,询问有关问题。