ancestry : string -> string list
- load "bossLib";
> val it = () : unit
- current_theory();
> val it = "scratch" : string
- ancestry "-";
> val it =
["one", "option", "pair", "sum", "combin", "relation", "min", "bool",
"num", "prim_rec", "arithmetic", "numeral", "ind_type", "list"] :
string list