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