# HG changeset patch
# User nipkow
# Date 1367542345 -7200
# Node ID a331fbefcdb1bb52c37e80c933b318e791b067a5
# Parent  d58cd7673b04c930239a1bd5a37ee642e50f668b
added lemma

diff -r d58cd7673b04 -r a331fbefcdb1 src/HOL/IMP/Abs_Int2_ivl.thy
--- a/src/HOL/IMP/Abs_Int2_ivl.thy	Thu May 02 21:04:50 2013 +0200
+++ b/src/HOL/IMP/Abs_Int2_ivl.thy	Fri May 03 02:52:25 2013 +0200
@@ -186,6 +186,9 @@
 lemma inf_ivl_nice: "[l1\<dots>h1] \<sqinter> [l2\<dots>h2] = [max l1 l2\<dots>min h1 h2]"
 by transfer (simp add: inf_rep_def)
 
+lemma top_ivl_nice: "\<top> = [-\<infinity>\<dots>\<infinity>]"
+by (simp add: top_ivl_def)
+
 
 instantiation ivl :: plus
 begin