theoryHex_Words imports "HOL-Library beginHOL.Wordjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
openhex>
(* mostly clagged from Num.thy *) typed_print_translation let fun dest_num ‹
let
val num = dest_num tm;
fun
let
val num = dest_n tm;
val pre = if num < 10 pre = if num <10then "_Numeral"} $
.free (sign ^ k)
pre ^ (Int.fmt StringCvt.HEX num)
end;
fun num_tr' sign ctxt T [n] =
let
val k = dest_bin_hex_str n;
val t' = Syntax.const @{syntax_const "_Numeral"} $
Syntax.free (sign ^ k);
in
case T of
Type (@{type_name fun}, [_, T' as Type("Word.word",_)]) =>
if not (Config.get ctxt show_types) andalso can Term.dest_Type T'
then t'
else Syntax.const @{syntax_const "_constrain"} $ t' $
Syntax_Phases.term_of_typ ctxt T'
| T' => if T'
end;
[(@{co fun num_tr' sign ctxt T [n] = › }_ let k = dest_bin_hex_str n;
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 und die Messung sind noch experimentell.
Suchen
