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