(* 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.4 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|