hh : Thm.thm list -> Term.term -> unit
- load "holyHammer"; open holyHammer; (* output omitted *) > val it = () : unit - hh [] ``1+1=2``; > Minimization ... val lemmas = [fetch "arithmetic" "TWO", fetch "arithmetic" "SUC_ONE_ADD"]; val it = (): unit - val lemmas = [fetch "arithmetic" "TWO", fetch "arithmetic" "SUC_ONE_ADD"]; > val lemmas = [|- 2 = SUC 1, |- ∀n. SUC n = 1 + n]: - val thm = METIS_PROVE lemmas ``1+1=2``; > val thm = |- 1 + 1 = 2: thm