equal
deleted
inserted
replaced
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 _ => |