src/Pure/Isar/toplevel.ML
changeset 60097 d20ca79d50e4
parent 60094 96a4765ba7d1
child 60189 0d3a62127057
equal deleted inserted replaced
60096:7b98dbc1d13e 60097:d20ca79d50e4
    70   val proof: (Proof.state -> Proof.state) -> transition -> transition
    70   val proof: (Proof.state -> Proof.state) -> transition -> transition
    71   val actual_proof: (Proof_Node.T -> Proof_Node.T) -> transition -> transition
    71   val actual_proof: (Proof_Node.T -> Proof_Node.T) -> transition -> transition
    72   val skip_proof: (int -> int) -> transition -> transition
    72   val skip_proof: (int -> int) -> transition -> transition
    73   val skip_proof_to_theory: (int -> bool) -> transition -> transition
    73   val skip_proof_to_theory: (int -> bool) -> transition -> transition
    74   val exec_id: Document_ID.exec -> transition -> transition
    74   val exec_id: Document_ID.exec -> transition -> transition
    75   val unknown_theory: transition -> transition
       
    76   val unknown_context: transition -> transition
       
    77   val setmp_thread_position: transition -> ('a -> 'b) -> 'a -> 'b
    75   val setmp_thread_position: transition -> ('a -> 'b) -> 'a -> 'b
    78   val add_hook: (transition -> state -> state -> unit) -> unit
    76   val add_hook: (transition -> state -> state -> unit) -> unit
    79   val get_timing: transition -> Time.time option
    77   val get_timing: transition -> Time.time option
    80   val put_timing: Time.time option -> transition -> transition
    78   val put_timing: Time.time option -> transition -> transition
    81   val transition: bool -> transition -> state -> state * (exn * string) option
    79   val transition: bool -> transition -> state -> state * (exn * string) option
   352 fun ignored pos = empty |> name "<ignored>" |> position pos |> imperative I;
   350 fun ignored pos = empty |> name "<ignored>" |> position pos |> imperative I;
   353 fun is_ignored tr = name_of tr = "<ignored>";
   351 fun is_ignored tr = name_of tr = "<ignored>";
   354 
   352 
   355 fun malformed pos msg =
   353 fun malformed pos msg =
   356   empty |> name "<malformed>" |> position pos |> imperative (fn () => error msg);
   354   empty |> name "<malformed>" |> position pos |> imperative (fn () => error msg);
   357 
       
   358 val unknown_theory = imperative (fn () => warning "Unknown theory context");
       
   359 val unknown_context = imperative (fn () => warning "Unknown context");
       
   360 
   355 
   361 
   356 
   362 (* theory transitions *)
   357 (* theory transitions *)
   363 
   358 
   364 fun generic_theory f = transaction (fn _ =>
   359 fun generic_theory f = transaction (fn _ =>