src/Provers/eqsubst.ML
changeset 18833 bead1a4e966b
parent 18708 4b3dadb4fe33
child 18988 d6e5fa2ba8b8
equal deleted inserted replaced
18832:6ab4de872a70 18833:bead1a4e966b
   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;