equal
deleted
inserted
replaced
322 |
322 |
323 (* rules *) |
323 (* rules *) |
324 |
324 |
325 fun add_axiom (b, prop) thy = |
325 fun add_axiom (b, prop) thy = |
326 let |
326 let |
327 val b' = if Binding.is_empty b |
327 val b' = if Binding.is_empty b then Binding.name ("axiom_" ^ serial_string ()) else b; |
328 then Binding.name ("axiom_" ^ serial_string ()) else b; |
|
329 val thy' = thy |> Theory.add_axioms_i [(b', prop)]; |
328 val thy' = thy |> Theory.add_axioms_i [(b', prop)]; |
330 val axm = unvarify (Thm.axiom thy' (Sign.full_name thy' b')); |
329 val axm = unvarify (Thm.axiom thy' (Sign.full_name thy' b')); |
331 in (axm, thy') end; |
330 in (axm, thy') end; |
332 |
331 |
333 fun add_def unchecked overloaded (b, prop) thy = |
332 fun add_def unchecked overloaded (b, prop) thy = |