src/Pure/Isar/isar_thy.ML
changeset 8615 419166fa66d0
parent 8588 b7c3f264f8ac
child 8681 957a5fe9b212
equal deleted inserted replaced
8614:30cc975727f1 8615:419166fa66d0
    74   val with_facts_i: (thm * Proof.context attribute list) list * Comment.text
    74   val with_facts_i: (thm * Proof.context attribute list) list * Comment.text
    75     -> ProofHistory.T -> ProofHistory.T
    75     -> ProofHistory.T -> ProofHistory.T
    76   val chain: Comment.text -> ProofHistory.T -> ProofHistory.T
    76   val chain: Comment.text -> ProofHistory.T -> ProofHistory.T
    77   val fix: ((string list * string option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    77   val fix: ((string list * string option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    78   val fix_i: ((string list * typ option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    78   val fix_i: ((string list * typ option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    79   val match_bind: ((string list * string) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    79   val let_bind: ((string list * string) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    80   val match_bind_i: ((term list * term) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    80   val let_bind_i: ((term list * term) * Comment.text) list -> ProofHistory.T -> ProofHistory.T
    81   val invoke_case: (string * Args.src list) * Comment.text -> ProofHistory.T -> ProofHistory.T
    81   val invoke_case: (string * Args.src list) * Comment.text -> ProofHistory.T -> ProofHistory.T
    82   val invoke_case_i: (string * Proof.context attribute list) * Comment.text
    82   val invoke_case_i: (string * Proof.context attribute list) * Comment.text
    83     -> ProofHistory.T -> ProofHistory.T
    83     -> ProofHistory.T -> ProofHistory.T
    84   val theorem: (bstring * Args.src list * (string * (string list * string list)))
    84   val theorem: (bstring * Args.src list * (string * (string list * string list)))
    85     * Comment.text -> bool -> theory -> ProofHistory.T
    85     * Comment.text -> bool -> theory -> ProofHistory.T
   286 
   286 
   287 (* context *)
   287 (* context *)
   288 
   288 
   289 val fix = ProofHistory.apply o Proof.fix o map Comment.ignore;
   289 val fix = ProofHistory.apply o Proof.fix o map Comment.ignore;
   290 val fix_i = ProofHistory.apply o Proof.fix_i o map Comment.ignore;
   290 val fix_i = ProofHistory.apply o Proof.fix_i o map Comment.ignore;
   291 val match_bind = ProofHistory.apply o Proof.match_bind o map Comment.ignore;
   291 val let_bind = ProofHistory.apply o Proof.let_bind o map Comment.ignore;
   292 val match_bind_i = ProofHistory.apply o Proof.match_bind_i o map Comment.ignore;
   292 val let_bind_i = ProofHistory.apply o Proof.let_bind_i o map Comment.ignore;
   293 
   293 
   294 fun invoke_case ((name, src), comment_ignore) = ProofHistory.apply (fn state =>
   294 fun invoke_case ((name, src), comment_ignore) = ProofHistory.apply (fn state =>
   295   Proof.invoke_case (name, map (Attrib.local_attribute (Proof.theory_of state)) src) state);
   295   Proof.invoke_case (name, map (Attrib.local_attribute (Proof.theory_of state)) src) state);
   296 val invoke_case_i = ProofHistory.apply o Proof.invoke_case o Comment.ignore;
   296 val invoke_case_i = ProofHistory.apply o Proof.invoke_case o Comment.ignore;
   297 
   297