author | paulson |
Wed, 11 Mar 1998 11:05:30 +0100 | |
changeset 4734 | 6a7c70b053cc |
parent 4733 | 2c984ac036f5 |
child 4735 | 6d544b44a70e |
src/HOL/Vimage.ML | file | annotate | diff | comparison | revisions |
--- a/src/HOL/Vimage.ML Wed Mar 11 11:05:14 1998 +0100 +++ b/src/HOL/Vimage.ML Wed Mar 11 11:05:30 1998 +0100 @@ -78,6 +78,11 @@ qed "UN_vimage"; Addsimps [UN_vimage]; +(*NOT suitable for rewriting*) +goal thy "f-``B = (UN y: B. f-``{y})"; +by (Blast_tac 1); +qed "vimage_eq_UN"; + (** monotonicity **)