show_tags : bool ref
- show_tags := false; > val it = () : unit - pairTheory.PAIR_MAP_THM; > val it = |- !f g x y. (f ## g) (x,y) = (f x,g y) : thm - mk_thm ([],F); > val it = |- F : thm - show_tags := true; > val it = () : unit - pairTheory.PAIR_MAP_THM; > val it = [oracles: ] [axioms: ] [] |- !f g x y. (f ## g) (x,y) = (f x,g y) : thm - mk_thm ([],F); > val it = [oracles: MK_THM] [axioms: ] [] |- F : thm