Within a HOL session there is always a current theory. It is the
theory represented by the current theory segment together with its
ancestry. A call of current_theory() returns the name of the current
theory. Initially HOL has current theory scratch.