src/Pure/global_theory.ML
changeset 67678 b4db2e7e414e
parent 67671 857da80611ab
child 67713 041898537c19
equal deleted inserted replaced
67677:ac4b475fc8c3 67678:b4db2e7e414e
   114   |> (if not official orelse pre andalso Thm.derivation_name thm <> "" then I
   114   |> (if not official orelse pre andalso Thm.derivation_name thm <> "" then I
   115       else Thm.name_derivation name)
   115       else Thm.name_derivation name)
   116   |> (if name = "" orelse pre andalso Thm.has_name_hint thm then I
   116   |> (if name = "" orelse pre andalso Thm.has_name_hint thm then I
   117       else Thm.put_name_hint name);
   117       else Thm.put_name_hint name);
   118 
   118 
   119 fun name_thms pre official name xs =
   119 fun name_thms pre official name thms =
   120   map (uncurry (name_thm pre official)) (name_multi name xs);
   120   map (uncurry (name_thm pre official)) (name_multi name thms);
   121 
   121 
   122 fun name_thmss official name fact =
   122 fun name_thmss official name fact =
   123   burrow_fact (name_thms true official name) fact;
   123   burrow_fact (name_thms true official name) fact;
   124 
   124 
   125 
   125