src/Pure/more_thm.ML
changeset 35715 9dc39bad4f4d
parent 35408 b48ab741683b
child 35845 e5980f0ad025
equal deleted inserted replaced
35714:68f7603f2aeb 35715:9dc39bad4f4d
   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 =