ML \<open> let open BNF_FP_Def_Sugar open BNF_LFP_Compat
val compat_plugin = Plugin_Name.declare_setup \<^binding>\<open>compat\<close>;
fun compat fp_sugars =
perhaps (try (datatype_compat (map (dest_Type_name o #T) fp_sugars))); in Theory.setup (fp_sugars_interpretation compat_plugin compat) end \<close>
end
¤ Dauer der Verarbeitung: 0.12 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
