(* Author: Pascal Stoop, ETH Zurich
Author: Andreas Lochbihler, Digital Asset *)
theory Case_Converter
imports Main
begin
subsection \<open>Eliminating pattern matches\<close>
definition missing_pattern_match :: "String.literal \ (unit \ 'a) \ 'a" where
[code del]: "missing_pattern_match m f = f ()"
lemma missing_pattern_match_cong [cong]:
"m = m' \ missing_pattern_match m f = missing_pattern_match m' f"
by(rule arg_cong)
lemma missing_pattern_match_code [code_unfold]:
"missing_pattern_match = Code.abort"
unfolding missing_pattern_match_def Code.abort_def ..
ML_file \<open>case_converter.ML\<close>
end
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|