Fix typo
ci/woodpecker/push/build Pipeline failed
Details
ci/woodpecker/push/build Pipeline failed
Details
This commit is contained in:
parent
443d63f3b5
commit
e78a114879
|
@ -629,7 +629,7 @@ fun check ctxt cidS mon_id pos_opt =
|
||||||
fun get_level_raw oid = ISA_core.compute_attr_access ctxt "level" oid NONE @{here};
|
fun get_level_raw oid = ISA_core.compute_attr_access ctxt "level" oid NONE @{here};
|
||||||
fun get_level oid = dest_option (snd o HOLogic.dest_number) (get_level_raw (oid));
|
fun get_level oid = dest_option (snd o HOLogic.dest_number) (get_level_raw (oid));
|
||||||
fun check_level_hd a = case (get_level (snd a)) of
|
fun check_level_hd a = case (get_level (snd a)) of
|
||||||
NONE => error("Invariant violation: leading section" ^ snd a ^
|
NONE => error("Invariant violation: leading section " ^ snd a ^
|
||||||
" must have lowest level")
|
" must have lowest level")
|
||||||
| SOME X => X
|
| SOME X => X
|
||||||
fun check_group_elem level_hd a = case (get_level (snd a)) of
|
fun check_group_elem level_hd a = case (get_level (snd a)) of
|
||||||
|
|
Loading…
Reference in New Issue