src/HOL/Library/RBT.thy
changeset 49834 b27bbb021df1
parent 48622 caaa1a02c650
child 49927 cde0a46b4224
     1.1 --- a/src/HOL/Library/RBT.thy	Fri Oct 12 15:08:29 2012 +0200
     1.2 +++ b/src/HOL/Library/RBT.thy	Fri Oct 12 18:58:20 2012 +0200
     1.3 @@ -10,7 +10,7 @@
     1.4  
     1.5  subsection {* Type definition *}
     1.6  
     1.7 -typedef (open) ('a, 'b) rbt = "{t :: ('a\<Colon>linorder, 'b) RBT_Impl.rbt. is_rbt t}"
     1.8 +typedef ('a, 'b) rbt = "{t :: ('a\<Colon>linorder, 'b) RBT_Impl.rbt. is_rbt t}"
     1.9    morphisms impl_of RBT
    1.10  proof -
    1.11    have "RBT_Impl.Empty \<in> ?rbt" by simp