185 val fresh_del = Thm.declaration_attribute (Data.map o fresh_map o Thm.del_thm); |
185 val fresh_del = Thm.declaration_attribute (Data.map o fresh_map o Thm.del_thm); |
186 |
186 |
187 |
187 |
188 |
188 |
189 val setup = |
189 val setup = |
190 Attrib.add_attributes |
190 Attrib.setup @{binding eqvt} (Attrib.add_del eqvt_add eqvt_del) |
191 [("eqvt", Attrib.add_del_args eqvt_add eqvt_del, "equivariance theorem declaration"), |
191 "equivariance theorem declaration" #> |
192 ("eqvt_force", Attrib.add_del_args eqvt_force_add eqvt_force_del, |
192 Attrib.setup @{binding eqvt_force} (Attrib.add_del eqvt_force_add eqvt_force_del) |
193 "equivariance theorem declaration (without checking the form of the lemma)"), |
193 "equivariance theorem declaration (without checking the form of the lemma)" #> |
194 ("fresh", Attrib.add_del_args fresh_add fresh_del, "freshness theorem declaration"), |
194 Attrib.setup @{binding fresh} (Attrib.add_del fresh_add fresh_del) |
195 ("bij", Attrib.add_del_args bij_add bij_del, "bijection theorem declaration")] #> |
195 "freshness theorem declaration" #> |
|
196 Attrib.setup @{binding "bij"} (Attrib.add_del bij_add bij_del) |
|
197 "bijection theorem declaration" #> |
196 PureThy.add_thms_dynamic (Binding.name "eqvts", #eqvts o Data.get) #> |
198 PureThy.add_thms_dynamic (Binding.name "eqvts", #eqvts o Data.get) #> |
197 PureThy.add_thms_dynamic (Binding.name "freshs", #freshs o Data.get) #> |
199 PureThy.add_thms_dynamic (Binding.name "freshs", #freshs o Data.get) #> |
198 PureThy.add_thms_dynamic (Binding.name "bijs", #bijs o Data.get); |
200 PureThy.add_thms_dynamic (Binding.name "bijs", #bijs o Data.get); |
199 |
201 |
200 end; |
202 end; |