(* Title: Pure/thm_name.ML
Author: Makarius
Systematic naming of individual theorems, as selections from multi-facts.
(NAME, 0): the single entry of a singleton fact NAME
(NAME, i): entry i of a non-singleton fact (1 <= i <= length)
*)
signature THM_NAME =
sig
type T = string * int
val ord: T ord
val print: T -> string
val short: T * Position.T -> string * Position.T
val list: string * Position.T -> 'a list -> ((T * Position.T) * 'a) list
val expr: string * Position.T -> ('a list * 'b) list -> (((T * Position.T) * 'a) list * 'b) list
end;
structure Thm_Name: THM_NAME =
struct
type T = string * int;
val ord = prod_ord string_ord int_ord;
fun print (name, index) =
if name = "" orelse index = 0 then name
else name ^ enclose "(" ")" (string_of_int index);
fun short ((name, index), pos: Position.T) =
if name = "" orelse index = 0 then (name, pos)
else (name ^ "_" ^ string_of_int index, pos);
fun list (name, pos: Position.T) [thm] = [(((name, 0): T, pos), thm)]
| list (name, pos) thms = map_index (fn (i, thm) => (((name, i + 1), pos), thm)) thms;
fun expr name = burrow_fst (burrow (list name));
end;