src/HOL/Boogie/Tools/boogie_loader.ML
changeset 35862 c2039b00ff0d
parent 35856 f81557a124d5
child 35895 387de5db0a74
     1.1 --- a/src/HOL/Boogie/Tools/boogie_loader.ML	Mon Mar 22 09:39:10 2010 +0100
     1.2 +++ b/src/HOL/Boogie/Tools/boogie_loader.ML	Mon Mar 22 09:40:11 2010 +0100
     1.3 @@ -238,10 +238,14 @@
     1.4      |> split_list_kind thy o Termtab.dest
     1.5  in
     1.6  fun add_axioms verbose axs thy =
     1.7 -  let val (used, new) = mark_axioms thy (name_axioms axs)
     1.8 +  let
     1.9 +    val (used, new) = mark_axioms thy (name_axioms axs)
    1.10 +    fun add (n, t) =
    1.11 +      Specification.axiomatization [] [((Binding.name n, []), [t])] #>>
    1.12 +      hd o hd o snd
    1.13    in
    1.14      thy
    1.15 -    |> fold_map (Drule.add_axiom o apfst Binding.name) new
    1.16 +    |> fold_map add new
    1.17      |-> Context.theory_map o fold Boogie_Axioms.add_thm
    1.18      |> log verbose "The following axioms were added:" (map fst new)
    1.19      |> (fn thy' => log verbose "The following axioms already existed:"