# HG changeset patch
# User wenzelm
# Date 911309102 -3600
# Node ID 4cbd726577f7858f5a9818f52f3304f7e81ceeb7
# Parent  dcb669fda86bdccf81502afbeba5f1449d619d53
PureThy.default_name;
have_tthms;

diff -r dcb669fda86b -r 4cbd726577f7 src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Tue Nov 17 14:24:15 1998 +0100
+++ b/src/Pure/Isar/proof.ML	Tue Nov 17 14:25:02 1998 +0100
@@ -6,16 +6,12 @@
 
 TODO:
   - assume: improve schematic Vars handling (!?);
+  - warn_vars;
   - bind: check rhs (extra (T)Vars etc.) (How to handle these anyway?);
   - prep_result: avoid duplicate asms;
-  - goal: need asms field? (may take from goal context!?);
-  - finish: filter results (!??) (no?);
-  - finish_tac: make a parameter (method) (!!?);
   - prep_result error: use error channel (!);
+  - check_finished: trace results (!?);
   - next_block: fetch_facts (!?);
-  - warn_vars;
-  - string constants in one place (e.g. "it", "thesis") (??!);
-  - check_finished: trace results (!?);
 *)
 
 signature PROOF =
@@ -41,8 +37,8 @@
   val bind_i: (indexname * term) list -> state -> state
   val match_bind: (string * string) list -> state -> state
   val match_bind_i: (term * term) list -> state -> state
-  val have_tthms: string -> context attribute list ->
-    (tthm * context attribute list) list -> state -> state
+  val have_tthmss: string -> context attribute list ->
+    (tthm list * context attribute list) list -> state -> state
   val assume: string -> context attribute list -> string list -> state -> state
   val assume_i: string -> context attribute list -> term list -> state -> state
   val fix: (string * string option) list -> state -> state
@@ -70,7 +66,6 @@
   val put_data: Object.kind -> ('a -> Object.T) -> 'a -> state -> state
 end;
 
-
 structure Proof: PROOF_PRIVATE =
 struct
 
@@ -433,14 +428,12 @@
 val match_bind_i = gen_bind ProofContext.match_binds_i;
 
 
-(* have_tthms *)
+(* have_tthmss *)
 
-val def_name = fn "" => "it" | name => name;
-
-fun have_tthms name atts ths_atts state =
+fun have_tthmss name atts ths_atts state =
   state
   |> assert_forward
-  |> map_context_result (ProofContext.have_tthms (def_name name) atts ths_atts)
+  |> map_context_result (ProofContext.have_tthmss (PureThy.default_name name) atts ths_atts)
   |> these_facts;
 
 
@@ -461,7 +454,7 @@
 fun gen_assume f name atts props state =
   state
   |> assert_forward
-  |> map_context_result (f (def_name name) atts props)
+  |> map_context_result (f (PureThy.default_name name) atts props)
   |> these_facts
   |> (fn st => let_tthms ("prems", ProofContext.assumptions (context_of st)) st);
 
@@ -508,7 +501,7 @@
     |> opt_block
 
     |> declare_term prop
-    |> put_goal (Some ((kind atts, (def_name name), casms, prop), ([], thm)))
+    |> put_goal (Some ((kind atts, (PureThy.default_name name), casms, prop), ([], thm)))
     |> bind_props [("thesis", prop)]
     |> (if is_chain state then use_facts else reset_facts)
 
@@ -607,7 +600,7 @@
   in
     state
     |> close_block
-    |> have_tthms name atts [((result, []), [])]
+    |> have_tthmss name atts [([(result, [])], [])]
     |> opt_solve
   end;
 
@@ -636,7 +629,7 @@
     val atts =
       (case kind of
         Theorem atts => if_none alt_atts atts
-      | Lemma atts => Attribute.tag_lemma :: if_none alt_atts atts
+      | Lemma atts => (if_none alt_atts atts) @ [Attribute.tag_lemma]
       | _ => raise STATE ("No global goal!", state));
 
     val (thy', result') = PureThy.store_tthm ((name, (result, [])), atts) (theory_of state);