equal
deleted
inserted
replaced
335 #> (fn (ctxt, ((asmflag, occL), inthms)) => |
335 #> (fn (ctxt, ((asmflag, occL), inthms)) => |
336 (if asmflag then eqsubst_asm_meth else eqsubst_meth) ctxt occL inthms); |
336 (if asmflag then eqsubst_asm_meth else eqsubst_meth) ctxt occL inthms); |
337 |
337 |
338 |
338 |
339 val setup = |
339 val setup = |
340 Method.add_method ("subst", subst_meth, "substiution with an equation"); |
340 Method.add_method ("subst", subst_meth, "single-step substitution"); |
341 |
341 |
342 end; |
342 end; |