equal
deleted
inserted
replaced
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 |