proper hiding of facts and constants in AList_Impl and AList theory
authorbulwahn
Tue Jan 10 15:48:10 2012 +0100 (2012-01-10)
changeset 4617119f68d7671f0
parent 46170 1b2e882f42d2
child 46174 de2dc5f5277d
proper hiding of facts and constants in AList_Impl and AList theory
src/HOL/Library/AList.thy
src/HOL/Library/AList_Impl.thy
src/HOL/Library/AList_Mapping.thy
     1.1 --- a/src/HOL/Library/AList.thy	Tue Jan 10 10:48:39 2012 +0100
     1.2 +++ b/src/HOL/Library/AList.thy	Tue Jan 10 15:48:10 2012 +0100
     1.3 @@ -173,6 +173,7 @@
     1.4  
     1.5  hide_const valterm_empty valterm_update random_aux_alist
     1.6  
     1.7 +hide_fact (open) lookup_def empty_def update_def delete_def map_entry_def filter_def map_default_def
     1.8  hide_const (open) impl_of lookup empty update delete map_entry filter map_default 
     1.9  
    1.10  end
    1.11 \ No newline at end of file
     2.1 --- a/src/HOL/Library/AList_Impl.thy	Tue Jan 10 10:48:39 2012 +0100
     2.2 +++ b/src/HOL/Library/AList_Impl.thy	Tue Jan 10 15:48:10 2012 +0100
     2.3 @@ -693,6 +693,6 @@
     2.4    shows "distinct (map fst (map_default k v f xs))"
     2.5  using assms by (induct xs) (auto simp add: dom_map_default)
     2.6  
     2.7 -hide_const (open) map_entry
     2.8 +hide_const (open) update updates delete restrict clearjunk merge compose map_entry
     2.9  
    2.10  end
     3.1 --- a/src/HOL/Library/AList_Mapping.thy	Tue Jan 10 10:48:39 2012 +0100
     3.2 +++ b/src/HOL/Library/AList_Mapping.thy	Tue Jan 10 15:48:10 2012 +0100
     3.3 @@ -30,11 +30,11 @@
     3.4    by (cases xs) (simp_all add: is_empty_def null_def)
     3.5  
     3.6  lemma update_Mapping [code]:
     3.7 -  "Mapping.update k v (Mapping xs) = Mapping (update k v xs)"
     3.8 +  "Mapping.update k v (Mapping xs) = Mapping (AList_Impl.update k v xs)"
     3.9    by (rule mapping_eqI) (simp add: update_conv')
    3.10  
    3.11  lemma delete_Mapping [code]:
    3.12 -  "Mapping.delete k (Mapping xs) = Mapping (delete k xs)"
    3.13 +  "Mapping.delete k (Mapping xs) = Mapping (AList_Impl.delete k xs)"
    3.14    by (rule mapping_eqI) (simp add: delete_conv')
    3.15  
    3.16  lemma ordered_keys_Mapping [code]: