src/HOL/Library/Mapping.thy
changeset 63343 fb5d8a50c641
parent 63239 d562c9948dee
child 63462 c1fe30f2bc32
     1.1 --- a/src/HOL/Library/Mapping.thy	Tue Jun 21 17:35:45 2016 +0200
     1.2 +++ b/src/HOL/Library/Mapping.thy	Wed Jun 22 10:09:20 2016 +0200
     1.3 @@ -14,11 +14,9 @@
     1.4    "map_of xs = foldr (\<lambda>(k, v) m. m(k \<mapsto> v)) xs Map.empty"
     1.5    using map_add_map_of_foldr [of Map.empty] by auto
     1.6  
     1.7 -context
     1.8 +context includes lifting_syntax
     1.9  begin
    1.10  
    1.11 -interpretation lifting_syntax .
    1.12 -
    1.13  lemma empty_parametric:
    1.14    "(A ===> rel_option B) Map.empty Map.empty"
    1.15    by transfer_prover
    1.16 @@ -219,11 +217,9 @@
    1.17  
    1.18  end
    1.19  
    1.20 -context
    1.21 +context includes lifting_syntax
    1.22  begin
    1.23  
    1.24 -interpretation lifting_syntax .
    1.25 -
    1.26  lemma [transfer_rule]:
    1.27    assumes [transfer_rule]: "bi_total A"
    1.28    assumes [transfer_rule]: "bi_unique B"