src/Pure/Isar/isar_thy.ML
changeset 6888 d0c68ebdabc5
parent 6885 1dcac1789759
child 6890 05732285677e
equal deleted inserted replaced
6887:12b5fb35a688 6888:d0c68ebdabc5
   119     -> Toplevel.transition -> Toplevel.transition
   119     -> Toplevel.transition -> Toplevel.transition
   120   val qed: (Method.text * Comment.interest) option -> Toplevel.transition -> Toplevel.transition
   120   val qed: (Method.text * Comment.interest) option -> Toplevel.transition -> Toplevel.transition
   121   val terminal_proof: Method.text * Comment.interest -> Toplevel.transition -> Toplevel.transition
   121   val terminal_proof: Method.text * Comment.interest -> Toplevel.transition -> Toplevel.transition
   122   val immediate_proof: Toplevel.transition -> Toplevel.transition
   122   val immediate_proof: Toplevel.transition -> Toplevel.transition
   123   val default_proof: Toplevel.transition -> Toplevel.transition
   123   val default_proof: Toplevel.transition -> Toplevel.transition
       
   124   val skip_proof: Toplevel.transition -> Toplevel.transition
   124   val also: ((string * Args.src list) list * Comment.interest) option * Comment.text
   125   val also: ((string * Args.src list) list * Comment.interest) option * Comment.text
   125     -> Toplevel.transition -> Toplevel.transition
   126     -> Toplevel.transition -> Toplevel.transition
   126   val also_i: (thm list * Comment.interest) option * Comment.text
   127   val also_i: (thm list * Comment.interest) option * Comment.text
   127     -> Toplevel.transition -> Toplevel.transition
   128     -> Toplevel.transition -> Toplevel.transition
   128   val finally: ((string * Args.src list) list * Comment.interest) option * Comment.text
   129   val finally: ((string * Args.src list) list * Comment.interest) option * Comment.text
   329 val local_terminal_proof =
   330 val local_terminal_proof =
   330   proof'' o (ProofHistory.applys_close oo Method.local_terminal_proof) o Comment.ignore_interest;
   331   proof'' o (ProofHistory.applys_close oo Method.local_terminal_proof) o Comment.ignore_interest;
   331 
   332 
   332 val local_immediate_proof = proof'' (ProofHistory.applys_close o Method.local_immediate_proof);
   333 val local_immediate_proof = proof'' (ProofHistory.applys_close o Method.local_immediate_proof);
   333 val local_default_proof = proof'' (ProofHistory.applys_close o Method.local_default_proof);
   334 val local_default_proof = proof'' (ProofHistory.applys_close o Method.local_default_proof);
       
   335 val local_skip_proof = proof'' (ProofHistory.applys_close o SkipProof.local_skip_proof);
   334 
   336 
   335 
   337 
   336 (* global endings *)
   338 (* global endings *)
   337 
   339 
   338 val kill_proof = Proof.theory_of o ProofHistory.current;
   340 val kill_proof = Proof.theory_of o ProofHistory.current;
   355 val global_qed = global_qed_with (None, None);
   357 val global_qed = global_qed_with (None, None);
   356 
   358 
   357 val global_terminal_proof = global_result o Method.global_terminal_proof o Comment.ignore_interest;
   359 val global_terminal_proof = global_result o Method.global_terminal_proof o Comment.ignore_interest;
   358 val global_immediate_proof = global_result Method.global_immediate_proof;
   360 val global_immediate_proof = global_result Method.global_immediate_proof;
   359 val global_default_proof = global_result Method.global_default_proof;
   361 val global_default_proof = global_result Method.global_default_proof;
       
   362 val global_skip_proof = global_result SkipProof.global_skip_proof;
   360 
   363 
   361 
   364 
   362 (* common endings *)
   365 (* common endings *)
   363 
   366 
   364 fun qed meth = local_qed meth o global_qed meth;
   367 fun qed meth = local_qed meth o global_qed meth;
   365 fun terminal_proof meth = local_terminal_proof meth o global_terminal_proof meth;
   368 fun terminal_proof meth = local_terminal_proof meth o global_terminal_proof meth;
   366 val immediate_proof = local_immediate_proof o global_immediate_proof;
   369 val immediate_proof = local_immediate_proof o global_immediate_proof;
   367 val default_proof = local_default_proof o global_default_proof;
   370 val default_proof = local_default_proof o global_default_proof;
       
   371 val skip_proof = local_skip_proof o global_skip_proof;
   368 
   372 
   369 
   373 
   370 (* calculational proof commands *)
   374 (* calculational proof commands *)
   371 
   375 
   372 local
   376 local