signature GrammarAncestry = sig val ancestry : {thy:string} -> string list val set_ancestry : string list -> unit end
HOL 4, Kananaskis-14