src/Pure/Isar/isar_cmd.ML
changeset 13284 20c818c966e6
parent 13273 6fea54cf6fb5
child 13801 6c5c5bdfae84
equal deleted inserted replaced
13283:1051aa66cbf3 13284:20c818c966e6
    52   val print_rules: Toplevel.transition -> Toplevel.transition
    52   val print_rules: Toplevel.transition -> Toplevel.transition
    53   val print_induct_rules: Toplevel.transition -> Toplevel.transition
    53   val print_induct_rules: Toplevel.transition -> Toplevel.transition
    54   val print_trans_rules: Toplevel.transition -> Toplevel.transition
    54   val print_trans_rules: Toplevel.transition -> Toplevel.transition
    55   val print_methods: Toplevel.transition -> Toplevel.transition
    55   val print_methods: Toplevel.transition -> Toplevel.transition
    56   val print_antiquotations: Toplevel.transition -> Toplevel.transition
    56   val print_antiquotations: Toplevel.transition -> Toplevel.transition
    57   val print_thms_containing: string list -> Toplevel.transition -> Toplevel.transition
    57   val print_thms_containing: int option * string list
       
    58     -> Toplevel.transition -> Toplevel.transition
    58   val thm_deps: (string * Args.src list) list -> Toplevel.transition -> Toplevel.transition
    59   val thm_deps: (string * Args.src list) list -> Toplevel.transition -> Toplevel.transition
    59   val print_binds: Toplevel.transition -> Toplevel.transition
    60   val print_binds: Toplevel.transition -> Toplevel.transition
    60   val print_lthms: Toplevel.transition -> Toplevel.transition
    61   val print_lthms: Toplevel.transition -> Toplevel.transition
    61   val print_cases: Toplevel.transition -> Toplevel.transition
    62   val print_cases: Toplevel.transition -> Toplevel.transition
    62   val print_thms: string list * (string * Args.src list) list
    63   val print_thms: string list * (string * Args.src list) list
   222 val print_methods = Toplevel.unknown_theory o
   223 val print_methods = Toplevel.unknown_theory o
   223   Toplevel.keep (Method.print_methods o Toplevel.theory_of);
   224   Toplevel.keep (Method.print_methods o Toplevel.theory_of);
   224 
   225 
   225 val print_antiquotations = Toplevel.imperative IsarOutput.print_antiquotations;
   226 val print_antiquotations = Toplevel.imperative IsarOutput.print_antiquotations;
   226 
   227 
   227 fun print_thms_containing ss = Toplevel.unknown_theory o Toplevel.keep (fn state =>
   228 fun print_thms_containing (lim, spec) = Toplevel.unknown_theory o Toplevel.keep (fn state =>
   228   ProofContext.print_thms_containing
   229   ProofContext.print_thms_containing
   229     (Toplevel.node_case ProofContext.init Proof.context_of state) ss);
   230     (Toplevel.node_case ProofContext.init Proof.context_of state) lim spec);
   230 
   231 
   231 fun thm_deps args = Toplevel.unknown_theory o Toplevel.keep (fn state =>
   232 fun thm_deps args = Toplevel.unknown_theory o Toplevel.keep (fn state =>
   232   ThmDeps.thm_deps (IsarThy.get_thmss args (Toplevel.enter_forward_proof state)));
   233   ThmDeps.thm_deps (IsarThy.get_thmss args (Toplevel.enter_forward_proof state)));
   233 
   234 
   234 
   235