src/HOL/Nominal/nominal_thmdecls.ML
changeset 30528 7173bf123335
parent 30364 577edc39b501
child 30986 047fa04a9fe8
equal deleted inserted replaced
30527:fae488569faf 30528:7173bf123335
   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;