author | wenzelm |
Mon, 08 May 2000 20:58:49 +0200 | |
changeset 8839 | 31da5b9790c0 |
parent 8838 | 4eaa99f0d223 |
child 8840 | 18b76c137c41 |
src/HOL/Set.ML | file | annotate | diff | comparison | revisions |
--- a/src/HOL/Set.ML Mon May 08 20:57:02 2000 +0200 +++ b/src/HOL/Set.ML Mon May 08 20:58:49 2000 +0200 @@ -44,6 +44,8 @@ by (REPEAT (ares_tac (prems @ [allI,impI]) 1)); qed "ballI"; +bind_thms ("strip", [impI, allI, ballI]); + Goalw [Ball_def] "[| ! x:A. P(x); x:A |] ==> P(x)"; by (Blast_tac 1); qed "bspec";